asp中试用存储过程

function GetUserID(OnlineSn)

OnlineSn = Replace(OnlineSn,"'","''")
Set sqlcmd = Server.CreateObject("ADODB.Command")
'Recordset、Command对象都可以通过ActiveConnection属性来连接Connection对象
sqlcmd.ActiveConnection = Conn
sqlcmd.CommandText  = "Login_OnLine"
sqlcmd.CommandType = adCmdStoredProc

set param1 = sqlcmd.CreateParameter("@OnlineSn",adVarChar,adParamInput,100,OnlineSn)
'param1 = Server.CreateObject("ADODB.Parameter")
'param1.type = adVarChar
'param1.Direction  = adParamInput


sqlcmd.Parameters.Append(param1)

set param2 = sqlcmd.CreateParameter("@LoginTime",adDBTime,adParamInput,,now)
sqlcmd.Parameters.Append(param2)
vau ="  "
set param3 = sqlcmd.CreateParameter("@UserID",adVarChar,adParamOutput,100,vau)
sqlcmd.Parameters.Append(param3)

sqlcmd.Execute
GetUserID = param3.value

set sqlcmd = nothing

end function

注意：要加上一个adovbs.inc常量对应文件