set ConUniID = Server.CreateObject("ADODB.Connection")
ConUniID.Open Application("conStr") '打开命令集
set CmdUniID = Server.CreateObject("ADODB.Command")
set CmdUniID.ActiveConnection = ConUniID
CmdUniID.CommandText = "sp_get_uni_id"
CmdUniID.CommandType = 4 'adCmdStoredProc
CmdUniID.Parameters("@NAME").Value = Str
CmdUniID.Execute
if err.number then
UniId = ""
else
UniId = cmdUniID.Parameters("@VALUE").Value
end if
set CmdUniID = nothing
ConUniID.Close
set conUniID = nothing
End Function
ConUniID.Open Application("conStr") '打开命令集
set CmdUniID = Server.CreateObject("ADODB.Command")
set CmdUniID.ActiveConnection = ConUniID
CmdUniID.CommandText = "sp_get_uni_id"
CmdUniID.CommandType = 4 'adCmdStoredProc
CmdUniID.Parameters("@NAME").Value = Str
CmdUniID.Execute
if err.number then
UniId = ""
else
UniId = cmdUniID.Parameters("@VALUE").Value
end if
set CmdUniID = nothing
ConUniID.Close
set conUniID = nothing
End Function
ConUniID.Open (链接字符串)
'打开命令集
set CmdUniID = Server.CreateObject("ADODB.Command")
set CmdUniID.ActiveConnection = ConUniID
CmdUniID.CommandText = "Procedure1"
CmdUniID.CommandType = 4
CmdUniID.Parameters("@NAME").Value = Str '带一个参数(参数名为name)
CmdUniID.Execute
set CmdUniID = nothing
ConUniID.Close
set conUniID = nothing
选择存贮过程,向你的窗口上一拖,看看那个sqlcommand1生成的代码.那个就是.