ASP調用SQL SERVER儲存程式

ASP調用SQL SERVER儲存程式
出處 http://www.bmj2000.com/vb/techniccolumn/subDetail.asp?MainId=2&BoardId=asp&ItemId=%CA%FD%BE%DD%BF%E2%B2%D9%D7%F7&RecId=2216

調用資料庫預存程序
<%
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)
%>