ASP存儲過程的使用方法

　　一使用Command對象和Parameter對象傳遞參數
　　
　　本講將主要使用Microsoft SQL Server數據庫先建立一個連接文件AdoSQLasp備用以後用到時不再特別說明
　　
　　<% AdoSQLasp
　　
　　Option Explicit
　　
　　ResponseExpires =
　　
　　第一部分: 建立連接
　　
　　Dim Cnn StrCnn
　　
　　Set Cnn = ServerCreateObject(ADODBConnection)
　　
　　StrCnn = Provider=sqloledb; User ID=sa; Password=; Initial Catalog=pubs; Data Source=ICBCZJP
　　
　　CnnOpen StrCnn
　　
　　%>
　　
　　注意自己使用時要將Data Source設為你的數據庫服務器所在的機器名
　　
　　另外以前使用Access數據庫時用Microsoft Access可以很方便的查看字段及數據而使用SQL Server數據庫尤其是並不在數據庫服務器而是在另一台機器上調試ASP腳本時要查看字段及數據便需另外安裝工具這裡向你提供一個工具Msqryexe（Microsoft Query）這個文件隨Office安裝一般位於目錄Microsoft Office\Office下
　　
　　例wufasp
　　
　　<%@ LANGUAGE=VBSCRIPT %>
　　
　　<!#include file=AdoSQLasp>
　　
　　<!#include file=adovbsinc>
　　
　　<% wufasp
　　
　　Dim cmdTest prmTest rsTest
　　
　　創建 Command 對象
　　
　　Set cmdTest = ServerCreateObject(ADODBCommand)
　　
　　RecordsetCommand對象都可以通過ActiveConnection屬性來連接Connection對象
　　
　　cmdTestActiveConnection = Cnn
　　
　　SQL命令 含兩個參數 用 ？ 表示
　　
　　cmdTestCommandText = Update jobs Set job_desc = ? Where job_id = ?
　　
　　設命令類型為 SQL 語句
　　
　　cmdTestCommandType = adCmdText
　　
　　Prepared 屬性決定是否將 SQL 命令先行編譯將其設為True可以加快運行
　　
　　cmdTestPrepared = True
　　
　　
　　
　　創建 Parameter 對象
　　
　　Set prmTest=cmdTestCreateParameter(job_descadVarCharadParamInput網絡)
　　
　　將數據追加到 Parameters 數據集合中
　　
　　cmdTestParametersAppend prmTest
　　
　　Set prmTest = cmdTestCreateParameter(job_idadSmallIntadParamInput)
　　
　　cmdTestParametersAppend prmTest
　　
　　執行修改 – 不需要返回結果簡單的使用cmdTestExecute 就可以了
　　
　　cmdTestExecute
　　
　　重新設置參數運行 – 便可修改另一條數據
　　
　　cmdTestParameters(job_id) =
　　
　　cmdTestParameters(job_desc) = 測試
　　
　　cmdTestExecute
　　
　　重新設置參數運行
　　
　　cmdTest(job_id) =
　　
　　cmdTest(job_desc) = 金融
　　
　　cmdTestExecute
　　
　　Set rsTest = CnnExecute(Select job_idjob_desc From jobs)
　　
　　While Not rsTestEOF
　　
　　ResponseWrite rsTest() & rsTest() & <br>
　　
　　rsTestMoveNext
　　
　　Wend
　　
　　Cnnclose : Set prmTest = Nothing
　　
　　Set cmdTest = Nothing: Set Cnn = Nothing
　　
　　%>
　　
　　分析
　　
　　．Command對象的CreateParameter方法用來為SQL命令或存儲過程建立參數對象共有五個參數（五個參數都是可選項）
　　
　　第一個參數參數對象的名稱
　　
　　第二個參數參數對象的數據類型種類太多還是參考ADO幫助吧這裡adVarChar（字符串值）adSmallInt（ 字節帶符號整型）
　　
　　第三個參數參數類型可以是adParamInput（指示輸入參數）adParamOutput（ 指示為輸出參數）adParamReturnValue（指示為返回值）adParamUnknown（指示參數類型無法確定）adParamInputOutput（指示為輸入/輸出參數）
　　
　　第四個參數參數的數據長度最好指定為與數據庫中對應字段長度相等以免使用時出錯尤其數據類型為VarChar時如果是整型或日期型則不必提供該值
　　
　　第五個參數參數的設置初值
　　
　　．cmdTestParametersAppend方法增加一個Parameter對象到Parameters數據集合中從本例中也可看到如何使用多個參數
　　
　　．從本例可以看到只需要重新設定輸入參數便可執行對其他數據的修改非常方便這一思路在編程時也是最常用的方法之一
　　
　　．重設參數既可以使用cmdTestParameters也可以省略為cmdTest(job_id)
　　
　　二在ASP中使用存儲過程
　　
　　什麼是存儲過程（存儲過程位於數據庫服務器中是一個SQL語句的集合可包含一個或多個SQL語句）怎樣創建存儲過程不屬於本講座的內容本講座主要是舉例說明在ASP中如何調用存儲過程
　　
　　使用存儲過程的好處是大大的存儲過程比在ASP腳本中運行SQL命令效率更高可以提高整體性能並減輕網絡負載（減少了在網絡服務器和數據服務器之間的交互）可以優化ASP代碼和增強代碼靈活性等等
　　
　　（一）在存儲過程中使用輸入參數
　　
　　本例中使用的存儲過程為SQL Server自帶的byroyalty裡面的一條SQL語句非常簡單無非是多了一個CREATE PROCEDURE byroyalty並且有一個輸入參數為@percentage
　　
　　CREATE PROCEDURE byroyalty @percentage int
　　
　　AS
　　
　　select au_id from titleauthor
　　
　　where titleauthorroyaltyper = @percentage
　　
　　serve by
　　
　　例wufasp
　　
　　<% @LANGUAGE = VBScript %>
　　
　　<!#include file=AdoSQLasp>
　　
　　<!#include file=adovbsinc>
　　
　　<% wufasp
　　
　　Dim cmdTest prmTest rsTest
　　
　　Set cmdTest = ServerCreateObject(ADODBCommand)
　　
　　cmdTestCommandText = byroyalty　　　　　存儲過程名
　　
　　設命令類型為 存儲過程
　　
　　cmdTestCommandType = adCmdStoredProc
　　
　　創建 Parameter 對象
　　
　　Set prmTest = ServerCreateObject(ADODBParameter)
　　
　　Type屬性對應wufasp中的第二個參數
　　
　　prmTestType = adInteger　　　　 字節的帶符號整型
　　
　　Direction屬性對應wufasp中的第三個參數
　　
　　prmTestDirection = adParamInput
　　
　　Value屬性對應wufasp中的第五個參數
　　
　　prmTestValue =
　　
　　cmdTestParametersAppend prmTest
　　
　　Set cmdTestActiveConnection = Cnn
　　
　　需要返回一個記錄集故使用Set rsTest = cmdTestExecute
　　
　　Set rsTest = cmdTestExecute
　　
　　While Not rsTestEOF
　　
　　ResponseWrite rsTest()　& <br>
　　
　　rsTestMoveNext
　　
　　Wend
　　
　　Cnnclose
　　
　　Set rsTest = Nothing : Set prmTest = Nothing
　　
　　Set cmdTest = Nothing: Set Cnn = Nothing
　　
　　%>
　　
　　CommandText屬性既可以指定SQL命令也可以指定為存儲過程或者是表名稱
　　
　　在本例中創建Parameter對象與wufasp略有不同其實仔細看看意思也是差不多的本例還有兩個屬性未用prmTestNameprmTestSize加上TypeDirection和Value對應於wufasp中的五個參數
　　
　　（二）使用輸出參數
　　
　　從數據庫表中取得一個記錄或計算一個值時需要使用返回輸出參數的存儲過程為了舉例先在SQL Server的pubs庫中新建一存儲過程OUTemploy該存儲過程需要輸入兩個日期然後輸出一個最大值
　　
　　CREATE PROCEDURE OUTemploy
　　
　　(
　　
　　@job_lvl tinyint OUTPUT
　　
　　@hire_date datetime
　　
　　@hire_date datetime
　　
　　)
　　
　　AS
　　
　　select @job_lvl = MAX(job_lvl) from employee
　　
　　where hire_date >= @hire_date and hire_date <= @hire_date
　　
　　有多種方法可以建立存儲過程
　　
　　．使用Microsoft SQL Server的Enterprise Manager打開後在左邊的樹目錄中依次打開Console Root – Microsoft SQL Servers – SQL Server Group – ICBCZJP(Windows NT) – databases – pubs – stored procedure – New stored procedure輸入存儲過程後還可對其進行語法檢測
　　
　　．使用Microsoft SQL Server的Query Analyzer先連接數據庫服務器並選擇pubs數據庫輸入上面的存儲過程並點擊Execute Query(或按F)
　　
　　．使用VB打開菜單視圖/數據視圖窗口後右鍵單擊數據鏈接/新建數據鏈接
　　
　　．使用ASP腳本創建存儲過程例wufasp
　　
　　<% @LANGUAGE = VBScript %>
　　
　　<!#include file=AdoSQLasp>
　　 From:http://tw.wingwit.com/Article/program/net/201311/11987.html