<%
Dim CmdSP
Dim adoRS
Dim adCmdSPStoredProc
Dim adParamReturnValue
Dim adParaminput
Dim adParamOutput
Dim adInteger
Dim iVal
Dim oVal
Dim adoField
Dim adVarChar
'这些值在 VB 中是预定义常量,可以直接调用,但在 VBScript 中没有预定义
adCmdSPStoredProc = 4
adParamReturnValue = 4
adParaminput = 1
adParamOutput = 2
adInteger = 3
adVarChar = 200
iVal = 5
oVal = 3
'建一个command对象
set CmdSP = Server.CreateObject("ADODB.Command")
'建立连结
'CmdSP.ActiveConnection = "PROVIDER=SQLNCLI;SERVER=localhost;DATABASE=newmz;UID=sa;PWD="
'CmdSP.ActiveConnection = "Driver={SQL Server};server=localhost;Uid=nm;Pwd=;Database=newmz"
CmdSP.ActiveConnection ="Provider=sqloledb;Data Source=localhost;Initial Catalog=sqpt;User Id=sa;Password=simplesoft2008;"
'定义command 对象调用名称
CmdSP.CommandText = "p_splitpage"
'设置command调用类型是存储过程 (adCmdSPStoredProc = 4)
CmdSP.CommandType = adCmdSPStoredProc
'往command 对象中加参数
'定义存储过程有直接返回值,并且是个整数,省缺值是4
'CmdSP.Parameters.Append CmdSP.CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, 4)
'定义一个字符型输入参数
CmdSP.Parameters.Append CmdSP.CreateParameter("@sql", adVarChar, adParaminput, 2000, "select * from b_code")
'定义一个整型输入参数
CmdSP.Parameters.Append CmdSP.CreateParameter("@page", adInteger, adParamInput, , 2)
CmdSP.Parameters.Append CmdSP.CreateParameter("@pageSize", adInteger, adParamInput, ,5)
'定义一个整型输出参数
CmdSP.Parameters.Append CmdSP.CreateParameter("@pageCount", adInteger, adParamOutput)
CmdSP.Parameters.Append CmdSP.CreateParameter("@recordCount", adInteger, adParamOutput)
'运行存储过程,并得到返回记录集
Set adoRS = CmdSP.Execute
'把每个记录打印出来,其中的字段是虚拟的,可以不用管
While Not adoRS.EOF
for each adoField in adoRS.Fields
Response.Write adoField.Name & "=" & adoField.Value & "<br>" & vbCRLF
Next
Response.Write "<br>"
adoRS.MoveNext
Wend
'adoRS.close
'打印两个输出值:
Response.Write "<p>@pageCount = " & CmdSP.Parameters("@pageCount").Value & "</p>"
'Response.Write "<p>@recordCount = " & CmdSP.Parameters("@recordCount").Value & "</p>"
'Response.Write "<p>Return value = " & CmdSP.Parameters("RETURN_VALUE").Value & "</p>"
'大扫除
Set adoRS = nothing
Set CmdSP.ActiveConnection = nothing
Set CmdSP = nothing
%>
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。