发信人: wuga(冰雨梦)
整理人: dongbao(2002-04-21 19:26:34), 站内信件
|
<%Set Dataconn = Server.CreateObject("ADODB.Connection")
'建立连接对象
Dataconn.Open "DSN=SinoTrans;SERVER=APP_SERVER;UID=sa;PWD=;APP=Microsoft(R) Developer Studio;WSID=APP_SERVER;Regional=Yes"
Set cmdTemp = Server.CreateObject("ADODB.Command")
'建立命令对象
Set rst = Server.CreateObject("ADODB.Recordset")
'建立记录集对象
cmdTemp.CommandText = "dbo.pd_test" '存储过程名称
cmdTemp.CommandType = 4
'命令类别为4,表示为存储过程
Set cmdTemp.ActiveConnection = Dataconn
Set tmpParam = cmdTemp.CreateParameter("Return Value", 3, 4, 4)
cmdTemp.Parameters.Append tmpParam
Set tmpParam = cmdTemp.CreateParameter("@BeginDate", 135, 1, 16, riqi)
'创建输入参数对象
cmdTemp.Parameters.Append tmpParam
rst.Open cmdTemp, , 1, 3
'生成查询结果
%>
这里调用的存储过程为pd_test，这种是ADO中提供的标准方法，但存在一个问题，就是当在存储过程中有两个以上的SELECT语句，但从逻辑上又不可能同时执行的时候，ADO会提示你存储过程中SELECT语句太多，解决方法是直接用ADO的CONNECTION对象的EXECUTE方法直接执行存储过程，如下：
<%
Set Dataconn = Server.CreateObject("ADODB.Connection")
'建立连接对象
Dataconn.Open "DSN=SinoTrans;SERVER=APP_SERVER;UID=sa;PWD=;APP=Microsoft(R) Developer Studio;WSID=APP_SERVER;Regional=Yes"
ss = "EXECUTE dbo.pd_test " & "'" & riqi1 & "'"
Set rs = dataconn.Execute(ss)
%>
----
因为我, 能相信, 爱你, 是真的, 爱你, 不会让你后悔。
寂寞的冬, 想你的夜, 王子与公主, 世界这分钟永恒。
爱的证据, 如潮水, 已成风。逃, 两个人的森林。
错过你, 错过爱。有你真的快乐吗? 一定可以, 曾经等待。
因为我, 能相信, 爱你, 是真的, 爱你。且行且珍惜。 |
|