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

解决方案 »

  1.   

    set ConUniID = Server.CreateObject("ADODB.Connection")
        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
      

  2.   

    在服务器管理器中,找到你的存贮过程.
    选择存贮过程,向你的窗口上一拖,看看那个sqlcommand1生成的代码.那个就是.