传入参数并返回记录:Set rs=con.Execute("sp_getuserclass(" & intUser & ")",,adCmdStoredProc)
仅传入参数不返回值: Set cmd=Server.CreateObject("ADODB.Command")
cmd.ActiveConnection=con
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "sp_addhits"
cmd.Parameters.Append cmd.CreateParameter("@userid",adInteger,adParamInput,,intUser)
cmd.Execute ,,adExecuteNoRecords
Set cmd=nothing