ASP調(diào)用存儲(chǔ)過程詳解

1、用ASP調(diào)用SQLServer的視圖和存儲(chǔ)過程用ASP調(diào)用SQLServer的視圖和存儲(chǔ)過程一、前言ASP (Active Server Pages 是服務(wù)器端的腳本編寫環(huán)境,它由微軟公司的IIS3.0以上版本支持。它可用來創(chuàng)建動(dòng)態(tài) Web 頁或生成功能強(qiáng)大的 Web 應(yīng)用程序。ASP頁是包括 HTML 標(biāo)記、文本和腳本命令的文件。ASP頁可調(diào)用ActiveX組件來執(zhí)行任務(wù),例如連接到數(shù)據(jù)庫或進(jìn)行商務(wù)計(jì)算。通過ASP,可為您的Web頁添加交互內(nèi)容 或用HTML頁構(gòu)成整個(gè)Web應(yīng)用程序,這些應(yīng)用程序使用HTML頁作為您的客戶的界面。二、ASP模型如圖1所示,瀏覽器從Web服務(wù)器上請(qǐng)求 .asp文

2、件時(shí),ASP 腳本開始運(yùn)行。然后Web服務(wù)器調(diào)用ASP,ASP全面讀取請(qǐng)求的文件,執(zhí)行所有腳本命令,并將Web頁傳送給瀏覽器。ASP提供了一個(gè)在HTML頁中使用現(xiàn)有腳本語言如 Microsoft VBScript 和 Microsoft JScript 的框架。ASP提供內(nèi)建對(duì)象,這些對(duì)象使用戶更容易收集通過瀏覽器請(qǐng)求發(fā)送的信息、響應(yīng)瀏覽器以及存儲(chǔ)用戶信息。包括Application、 Request、Response、Server、Session 和ObjectContext 對(duì)象。其中最為常用的為Request、Response 和Server三個(gè)對(duì)象,它們分別用于從瀏覽器請(qǐng)求信息、向?yàn)g覽

3、器發(fā)送信息和訪問服務(wù)器上對(duì)象的屬性和方法。三、ADOASP和后臺(tái)數(shù)據(jù)庫連接使用微軟的ADO(ActiveX Data Objects,ADO 是一項(xiàng)容易使用并且可擴(kuò)展的將數(shù)據(jù)庫訪問添加到Web頁的技術(shù)。可以使用ADO 去編寫緊湊簡明的腳本以便連接到Open Database Connectivity(ODBC兼容的數(shù)據(jù)庫和 OLE DB兼容的數(shù)據(jù)源。ADO包含7個(gè)內(nèi)置對(duì)象,它們分別為Connection、Command、RecordSet、Fields、Error、Parameters和Properties。通過這些對(duì)象,ASP可以完成對(duì)后臺(tái)數(shù)據(jù)庫的所有操作。四、ASP調(diào)用視圖和存儲(chǔ)過程在一般

4、的MIS應(yīng)用中,會(huì)有大量的報(bào)表,此時(shí)我們可以在后臺(tái)數(shù)據(jù)庫編寫相應(yīng)的視圖或存儲(chǔ)過程,用ASP通過ADO調(diào)用以完成報(bào)表工作。下面用一個(gè)例子說明相應(yīng)的操作過程。1.創(chuàng)建 ODBC DSN 文件在創(chuàng)建數(shù)據(jù)庫腳本之前,必須提供一條使ADO定位、標(biāo)識(shí)和與數(shù)據(jù)庫通訊的途徑。數(shù)據(jù)庫驅(qū)動(dòng)程序使用Data Source Name (DSN 定位和標(biāo)識(shí)特定的ODBC 兼容數(shù)據(jù)庫,將信息從 Web 應(yīng)用程序傳遞給數(shù)據(jù)庫。2. 調(diào)用數(shù)據(jù)庫視圖訪問數(shù)據(jù)庫信息的第一步是和數(shù)據(jù)庫源建立連接。ADO提供Connection 對(duì)象,可以使用該對(duì)象建立和管理應(yīng)用程序和 ODBC數(shù)據(jù)庫之間的連接。此時(shí),Customers為視圖,從視

5、圖中查詢數(shù)據(jù)與從基表中查詢數(shù)據(jù)的方法是相同的。3.調(diào)用數(shù)據(jù)庫存儲(chǔ)過程這里調(diào)用的存儲(chǔ)過程為pd_test,這種是ADO中提供的標(biāo)準(zhǔn)方法,但存在一個(gè)問題,就是當(dāng)在存儲(chǔ)過程中有兩個(gè)以上的SELECT語句,但從邏輯 上又不可能同時(shí)執(zhí)行的時(shí)候,ADO會(huì)提示你存儲(chǔ)過程中SELECT語句太多,解決方法是直接用ADO的CONNECTION對(duì)象的EXECUTE方法直接 執(zhí)行存儲(chǔ)過程,如下:有關(guān)ASP和ADO使用的詳細(xì)信息,請(qǐng)參閱 Microsoft ActiveX Data Objects (ADO 和Active Server Pages(ASP的詳細(xì)參考。五、結(jié)束語在B/S結(jié)構(gòu)的開發(fā)中,我們可以把一些商業(yè)規(guī)

6、則或復(fù)雜查詢用存儲(chǔ)過程在DBMS中編寫,然后用ASP中的ADO對(duì)象調(diào)用,完成原來C/S結(jié)構(gòu)中的傳統(tǒng)功能。ASP與存儲(chǔ)過程解析ASP與存儲(chǔ)過程解析ASP與存儲(chǔ)過程(Stored Procedures的文章不少,但是我懷疑作者們是否真正實(shí)踐過。我在初學(xué)時(shí)查閱過大量相關(guān)資料,發(fā)現(xiàn)其中提供的很多方法實(shí)際操作起來并不是那么回事。對(duì)于簡單的應(yīng)用,這些資料也許是有幫助的,但僅限于此,因?yàn)樗鼈兏揪褪乔宦?互相抄襲,稍微復(fù)雜點(diǎn)的應(yīng)用,就全都語焉不詳了?，F(xiàn)在,我基本上通過調(diào)用存儲(chǔ)過程訪問SQL Server,以下的文字雖不敢保證絕對(duì)正確,但都是實(shí)踐的總結(jié),希望對(duì)大家能有幫助。存儲(chǔ)過程就是作為可執(zhí)行對(duì)象存放在

7、數(shù)據(jù)庫中的一個(gè)或多個(gè)SQL命令。定義總是很抽象。存儲(chǔ)過程其實(shí)就是能完成一定操作的一組SQL語句,只不過這組語句是放在數(shù)據(jù)庫中的(這里我們只談SQL Server。如果我們通過創(chuàng)建存儲(chǔ)過程以及在ASP中調(diào)用存儲(chǔ)過程,就可以避免將SQL語句同ASP代碼混雜在一起。這樣做的好處至少有三個(gè):第一、大大提高效率。存儲(chǔ)過程本身的執(zhí)行速度非?？?而且,調(diào)用存儲(chǔ)過程可以大大減少同數(shù)據(jù)庫的交互次數(shù)。第二、提高安全性。假如將SQL語句混合在ASP代碼中,一旦代碼失密,同時(shí)也就意味著庫結(jié)構(gòu)失密。第三、有利于SQL語句的重用。在ASP中,一般通過command對(duì)象調(diào)用存儲(chǔ)過程,根據(jù)不同情況,本文也介紹其它調(diào)用方法。為

8、了方便說明,根據(jù)存儲(chǔ)過程的輸入輸出,作以下簡單分類: 1. 只返回單一記錄集的存儲(chǔ)過程假設(shè)有以下存儲(chǔ)過程(本文的目的不在于講述T-SQL語法,所以存儲(chǔ)過程只給出代碼,不作說明:/*SP1*/CREATE PROCEDURE dbo.getUserListasset nocount onbeginselect * from dbo.userinfoendgo以上存儲(chǔ)過程取得userinfo表中的所有記錄,返回一個(gè)記錄集。通過command 對(duì)象調(diào)用該存儲(chǔ)過程的ASP代碼如下:'*通過Command對(duì)象調(diào)用存儲(chǔ)過程*DIM MyComm,MyRstSet MyComm = Server.C

9、reateObject("ADODB.Command"MyComm.ActiveConnection = MyConStr 'MyConStr是數(shù)據(jù)庫連接字串 MyComm.CommandText = "getUserList" '指定存儲(chǔ)過程名MyComm.CommandType = 4 '表明這是一個(gè)存儲(chǔ)過程MyComm.Prepared = true '要求將SQL命令先行編譯Set MyRst = MyComm.ExecuteSet MyComm = Nothing存儲(chǔ)過程取得的記錄集賦給MyRst,接下來,可以對(duì)

10、MyRst進(jìn)行操作。在以上代碼中,CommandType屬性表明請(qǐng)求的類型,取值及說明如下:-1 表明CommandText參數(shù)的類型無法確定1 表明CommandText是一般的命令類型2 表明CommandText參數(shù)是一個(gè)存在的表名稱4 表明CommandText參數(shù)是一個(gè)存儲(chǔ)過程的名稱還可以通過Connection對(duì)象或Recordset對(duì)象調(diào)用存儲(chǔ)過程,方法分別如下:'*通過Connection對(duì)象調(diào)用存儲(chǔ)過程*DIM MyConn,MyRstSet MyConn = Server.CreateObject("ADODB.Connection"MyConn

11、.open MyConStr 'MyConStr是數(shù)據(jù)庫連接字串Set MyRst = MyConn.Execute("getUserList",0,4 '最后一個(gè)參斷含義同CommandTypeSet MyConn = Nothing'*通過Recordset對(duì)象調(diào)用存儲(chǔ)過程*DIM MyRstSet MyRst = Server.CreateObject("ADODB.Recordset"MyRst.open "getUserList",MyConStr,0,1,4'MyConStr是數(shù)據(jù)庫連接字串

12、,最后一個(gè)參斷含義與CommandType相同2. 沒有輸入輸出的存儲(chǔ)過程請(qǐng)看以下存儲(chǔ)過程:/*SP2*/CREATE PROCEDURE dbo.delUserAllasset nocount onbegindelete from dbo.userinfoendgo該存儲(chǔ)過程刪去userinfo表中的所有記錄,沒有任何輸入及輸出,調(diào)用方法與上面講過的基本相同,只是不用取得記錄集'*通過Command對(duì)象調(diào)用存儲(chǔ)過程*DIM MyCommSet MyComm = Server.CreateObject("ADODB.Command"MyComm.ActiveConn

13、ection = MyConStr 'MyConStr是數(shù)據(jù)庫連接字串MyComm.CommandText = "delUserAll" '指定存儲(chǔ)過程名MyComm.CommandType = 4 '表明這是一個(gè)存儲(chǔ)過程MyComm.Prepared = true '要求將SQL命令先行編譯MyComm.Execute '此處不必再取得記錄集Set MyComm = Nothing當(dāng)然也可通過Connection對(duì)象或Recordset對(duì)象調(diào)用此類存儲(chǔ)過程,不過建立Recordset對(duì)象是為了取得記錄集,在沒有返回記錄集的情況下,還

14、是利用Command對(duì)象吧。3. 有返回值的存儲(chǔ)過程在進(jìn)行類似SP2的操作時(shí),應(yīng)充分利用SQL Server強(qiáng)大的事務(wù)處理功能,以維護(hù)數(shù)據(jù)的一致性。并且,我們可能需要存儲(chǔ)過程返回執(zhí)行情況,為此,將SP2修改如下:/*SP3*/CREATE PROCEDURE dbo.delUserAllasset nocount onbeginBEGIN TRANSACTIONdelete from dbo.userinfoIF error=0beginCOMMIT TRANSACTIONreturn 1endELSEbeginROLLBACK TRANSACTIONreturn 0endreturnendg

15、o以上存儲(chǔ)過程,在delete順利執(zhí)行時(shí),返回1,否則返回0,并進(jìn)行回滾操作。為了在ASP中取得返回值,需要利用Parameters集合來聲明參數(shù):'*調(diào)用帶有返回值的存儲(chǔ)過程并取得返回值*DIM MyComm,MyParaSet MyComm = Server.CreateObject("ADODB.Command"MyComm.ActiveConnection = MyConStr 'MyConStr是數(shù)據(jù)庫連接字串 MyComm.CommandText = "delUserAll" '指定存儲(chǔ)過程名MyComm.Comman

16、dType = 4 '表明這是一個(gè)存儲(chǔ)過程MyComm.Prepared = true '要求將SQL命令先行編譯'聲明返回值Set Mypara = MyComm.CreateParameter("RETURN",2,4MyComm.Execute'取得返回值DIM retValueretValue = MyComm(0 '或retValue = MyComm.Parameters(0Set MyComm = Nothing在MyComm.CreateParameter("RETURN",2,4中,各參數(shù)的含義如

17、下:第一個(gè)參數(shù)("RETURE"為參數(shù)名。參數(shù)名可以任意設(shè)定,但一般應(yīng)與存儲(chǔ)過程中聲明的參數(shù)名相同。此處是返回值,我習(xí)慣上設(shè)為"RETURE"第二個(gè)參數(shù)(2,表明該參數(shù)的數(shù)據(jù)類型,具體的類型代碼請(qǐng)參閱ADO參考,以下給出常用的類型代碼:adBigInt: 20 ;adBinary : 128 ;adBoolean: 11 ;adChar: 129 ;adDBTimeStamp: 135 ;adEmpty: 0 ;adInteger: 3 ;adSmallInt: 2 ;adTinyInt: 16 ;adVarChar: 200 ;對(duì)于返回值,只能取整形,

18、且-1到-99為保留值;第三個(gè)參數(shù)(4,表明參數(shù)的性質(zhì),此處4表明這是一個(gè)返回值。此參數(shù)取值的說明如下:0 : 類型無法確定; 1: 輸入?yún)?shù);2: 輸入?yún)?shù);3:輸入或輸出參數(shù);4: 返回值以上給出的ASP代碼,應(yīng)該說是完整的代碼,也即最復(fù)雜的代碼,其實(shí)Set Mypara = MyComm.CreateParameter("RETURN",2,4可以簡化為甚至還可以繼續(xù)簡化,稍后會(huì)做說明。對(duì)于帶參數(shù)的存儲(chǔ)過程,只能使用Command對(duì)象調(diào)用(也有資料說可通過Connection對(duì)象或Recordset對(duì)象調(diào)用,但我沒有試成過。4. 有輸入?yún)?shù)和輸出參數(shù)的存儲(chǔ)過程返回值其

19、實(shí)是一種特殊的輸入?yún)?shù)。在大多數(shù)情況下,我們用到的是同時(shí)有輸入及輸出參數(shù)的存儲(chǔ)過程,比如我們想取得用戶信息表中,某ID用戶的用戶名,這時(shí)候,有一個(gè)輸入?yún)?shù)-用戶ID,和一個(gè)輸出參數(shù)-用戶名。實(shí)現(xiàn)這一功能的存儲(chǔ)過程如下:/*SP4*/CREATE PROCEDURE dbo.getUserNameUserID int,UserName varchar(40 outputasset nocount onbeginif UserID is null returnselect UserName=usernamefrom dbo.userinfowhere userid=UserIDreturnendg

20、o'*調(diào)用帶有輸入輸出參數(shù)的存儲(chǔ)過程*DIM MyComm,UserID,UserNameUserID = 1Set MyComm = Server.CreateObject("ADODB.Command"MyComm.ActiveConnection = MyConStr 'MyConStr是數(shù)據(jù)庫連接字串 MyComm.CommandText = "getUserName" '指定存儲(chǔ)過程名MyComm.CommandType = 4 '表明這是一個(gè)存儲(chǔ)過程MyComm.Prepared = true '要求將

21、SQL命令先行編譯'聲明參數(shù)MyComm.CreateParameter("UserID",3,1,4,UserID'取得出參UserName = MyComm(1Set MyComm = Nothing在以上代碼中,可以看到,與聲明返回值不同,聲明輸入?yún)?shù)時(shí)需要5個(gè)參數(shù),聲明輸出參數(shù)時(shí)需要4個(gè)參數(shù)。聲明輸入?yún)?shù)時(shí)5個(gè)參數(shù)分別為:參數(shù)名、參數(shù)數(shù)據(jù)類型、參數(shù)類型、數(shù)據(jù)長度、參數(shù)值。聲明輸入?yún)?shù)時(shí),沒有最后一個(gè)參數(shù):參數(shù)值。需要特別注意的是:在聲明參數(shù)時(shí),順序一定要與存儲(chǔ)過程中定義的順序相同,而且各參數(shù)的數(shù)據(jù)類型、長度也要與存儲(chǔ)過程中定義的相同。如果存儲(chǔ)過程有多

22、個(gè)參數(shù),ASP代碼會(huì)顯得繁瑣,可以使用with命令簡化代碼:'*調(diào)用帶有輸入輸出參數(shù)的存儲(chǔ)過程(簡化代碼*DIM MyComm,UserID,UserNameUserID = 1Set MyComm = Server.CreateObject("ADODB.Command"with MyComm.ActiveConnection = MyConStr 'MyConStr是數(shù)據(jù)庫連接字串.CommandText = "getUserName" '指定存儲(chǔ)過程名.CommandType = 4 '表明這是一個(gè)存儲(chǔ)過程.Prep

23、ared = true '要求將SQL命令先行編譯.Parameters.append .CreateParameter("UserID",3,1,4,UserID.Parameters.append .CreateParameter("UserName",200,2,40.Executeend withUserName = MyComm(1Set MyComm = Nothing假如我們要取得ID為1到10,10位用戶的用戶名,是不是要?jiǎng)?chuàng)建10次Command 對(duì)象呢?不是的,如果需要多次調(diào)用同一存儲(chǔ)過程,只需改變輸入?yún)?shù),就會(huì)得到不同的輸入?yún)?/p>

24、數(shù):'*多次調(diào)用同一存儲(chǔ)過程*DIM MyComm,UserID,UserNameUserName = ""Set MyComm = Server.CreateObject("ADODB.Command"for UserID = 1 to 10with MyComm.ActiveConnection = MyConStr 'MyConStr是數(shù)據(jù)庫連接字串.CommandText = "getUserName" '指定存儲(chǔ)過程名.CommandType = 4 '表明這是一個(gè)存儲(chǔ)過程.Prepared

25、= true '要求將SQL命令先行編譯if UserID = 1 then.Parameters.append .CreateParameter("UserID",3,1,4,UserID.Parameters.append .CreateParameter("UserName",200,2,40.Executeelse'重新給入?yún)①x值(此時(shí)參數(shù)值不發(fā)生變化的入?yún)⒁约俺鰠⒉槐刂匦侣暶?Parameters("UserID" = UserID.Executeend ifend withUserName = UserNa

26、me + MyComm(1 + "," '也許你喜歡用數(shù)組存儲(chǔ)nextSet MyComm = Nothing通過以上代碼可以看出:重復(fù)調(diào)用同一存儲(chǔ)過程時(shí),只需為值發(fā)生改變的輸入?yún)?shù)重新賦值即可,這一方法在有多個(gè)輸入輸出參數(shù),且每次調(diào)用時(shí)只有一個(gè)輸入?yún)?shù)的值發(fā)生變化時(shí),可以大大減少代碼量。前面說過,在調(diào)用存儲(chǔ)過程時(shí),聲明參數(shù)的順序要與存儲(chǔ)過程中定義的順序相同。還有一點(diǎn)要特別注意:如果存儲(chǔ)過程同時(shí)具有返回值以及輸入、輸出參數(shù),返回值要最先聲明。為了演示這種情況下的調(diào)用方法,我們改善一下上面的例子。還是取得ID為1的用戶的用戶名,但是有可能該用戶不存在(該用戶已刪除,而

27、userid是自增長的字段。存儲(chǔ)過程根據(jù)用戶存在與否,返回不同的值。此時(shí),存儲(chǔ)過程和ASP 代碼如下:/*SP5*/CREATE PROCEDURE dbo.getUserName-為了加深對(duì)"順序"的印象,將以下兩參數(shù)的定義順序顛倒一下UserName varchar(40 output,UserID intasset nocount onbeginif UserID is null returnselect UserName=usernamefrom dbo.userinfowhere userid=UserIDif rowcount>0return 1elser

28、eturn 0returnendgo'*調(diào)用同時(shí)具有返回值、輸入?yún)?shù)、輸出參數(shù)的存儲(chǔ)過程*DIM MyComm,UserID,UserNameUserID = 1Set MyComm = Server.CreateObject("ADODB.Command"with MyComm.ActiveConnection = MyConStr 'MyConStr是數(shù)據(jù)庫連接字串.CommandText = "getUserName" '指定存儲(chǔ)過程名.CommandType = 4 '表明這是一個(gè)存儲(chǔ)過程.Prepared = t

29、rue '要求將SQL命令先行編譯'返回值要最先被聲明.Parameters.Append .CreateParameter("RETURN",2,4'以下兩參數(shù)的聲明順序也做相應(yīng)顛倒.Parameters.append .CreateParameter("UserName",200,2,40 powered by .Parameters.append .CreateParameter("UserID",3,1,4,UserID.Executeend withif MyComm(0 = 1 thenUserNa

30、me = MyComm(1elseUserName = "該用戶不存在"end ifSet MyComm = Nothing6. 同時(shí)返回參數(shù)和記錄集的存儲(chǔ)過程有時(shí)候,我們需要存儲(chǔ)過程同時(shí)返回參數(shù)和記錄集,比如在利用存儲(chǔ)過程分頁時(shí),要同時(shí)返回記錄集以及數(shù)據(jù)總量等參數(shù)。 以下給出一個(gè)進(jìn)行分頁處理的存儲(chǔ)過程/*SP6*/CREATE PROCEDURE dbo.getUserListiPageCount int OUTPUT, -總頁數(shù) iPage int, -當(dāng)前頁號(hào)iPageSize int -每頁記錄數(shù)asset nocount onbegin-創(chuàng)建臨時(shí)表create t

31、able #t (ID int IDENTITY, -自增字段userid int,username varchar(40-向臨時(shí)表中寫入數(shù)據(jù)insert into #tselect userid,username from dbo.UserInfoorder by userid-取得記錄總數(shù)declare iRecordCount intset iRecordCount = rowcount-確定總頁數(shù)IF iRecordCount%iPageSize=0SET iPageCount=CEILING(iRecordCount/iPageSizeELSESET iPageCount=CEILI

32、NG(iRecordCount/iPageSize+1-若請(qǐng)求的頁號(hào)大于總頁數(shù),則顯示最后一頁IF iPage > iPageCountSELECT iPage = iPageCount-確定當(dāng)前頁的始末記錄DECLARE iStart int -start recordDECLARE iEnd int -end recordSELECT iStart = (iPage - 1 * iPageSizeSELECT iEnd = iStart + iPageSize + 1-取當(dāng)前頁記錄select * from #t where ID>iStart and ID<iEnd-刪

33、除臨時(shí)表DROP TABLE #t-返回記錄總數(shù)return iRecordCountendgo在上面的存儲(chǔ)過程中,輸入當(dāng)前頁號(hào)及每頁記錄數(shù),返回當(dāng)前頁的記錄集,總頁數(shù)及記錄總數(shù)。為了更具典型性,將記錄總數(shù)以返回值的形式返回。以下是調(diào)用該存儲(chǔ)過程的ASP代碼(具體的分頁操作略去:'*調(diào)用分頁存儲(chǔ)過程*DIM pagenow,pagesize,pagecount,recordcountDIM MyComm,MyRstpagenow = Request("pn"'自定義函數(shù)用于驗(yàn)證自然數(shù)if CheckNar(pagenow = false then pagen

34、ow = 1pagesize = 20Set MyComm = Server.CreateObject("ADODB.Command"with MyComm.ActiveConnection = MyConStr 'MyConStr是數(shù)據(jù)庫連接字串.CommandText = "getUserList" '指定存儲(chǔ)過程名.CommandType = 4 '表明這是一個(gè)存儲(chǔ)過程.Prepared = true '要求將SQL命令先行編譯'返回值(記錄總量.Parameters.Append .CreateParame

35、ter("RETURN",2,4'出參(總頁數(shù).Parameters.Append .CreateParameter("iPageCount",3,2'入?yún)?當(dāng)前頁號(hào).Parameters.append .CreateParameter("iPage",3,1,4,pagenow'入?yún)?每頁記錄數(shù).Parameters.append .CreateParameter("iPageSize",3,1,4,pagesizeSet MyRst = .Executeend withif MyRst.

36、state = 0 then '未取到數(shù)據(jù),MyRst關(guān)閉recordcount = -1elseMyRst.close '注意:若要取得參數(shù)值,需先關(guān)閉記錄集對(duì)象recordcount = MyComm(0pagecount = MyComm(1if cint(pagenow>=cint(pagecount then pagenow=pagecountend ifSet MyComm = Nothing'以下顯示記錄if recordcount = 0 thenResponse.Write "無記錄"elseif recordcount &g

37、t; 0 thenMyRst.opendo until MyRst.EOF.loop'以下顯示分頁信息.else 'recordcount=-1Response.Write "參數(shù)錯(cuò)誤"end if對(duì)于以上代碼,只有一點(diǎn)需要說明:同時(shí)返回記錄集和參數(shù)時(shí),若要取得參數(shù),需先將記錄集關(guān)閉,使用記錄集時(shí)再將其打開。7. 返回多個(gè)記錄集的存儲(chǔ)過程本文最先介紹的是返回記錄集的存儲(chǔ)過程。有時(shí)候,需要一個(gè)存儲(chǔ)過程返回多個(gè)記錄集,在ASP中,如何同時(shí)取得這些記錄集呢?為了說明這一問題,在userinfo 表中增加兩個(gè)字段:usertel及usermail,并設(shè)定只有登錄用戶

38、可以查看這兩項(xiàng)內(nèi)容。/*SP7*/CREATE PROCEDURE dbo.getUserInfouserid int,checklogin bitasset nocount onbeginif userid is null or checklogin is null returnselect usernamefrom dbo.usrinfowhere userid=userid-若為登錄用戶,取usertel及usermailif checklogin=1select usertel,usermailfrom dbo.userinfowhere userid=useridreturnendg

39、o以下是ASP代碼:'*調(diào)用返回多個(gè)記錄集的存儲(chǔ)過程*DIM checklg,UserID,UserName,UserTel,UserMailDIM MyComm,MyRstUserID = 1'checklogin(為自定義函數(shù),判斷訪問者是否登錄checklg = checklogin(Set MyComm = Server.CreateObject("ADODB.Command"with MyComm.ActiveConnection = MyConStr 'MyConStr是數(shù)據(jù)庫連接字串.CommandText = "getUse

40、rInfo" '指定存儲(chǔ)過程名.CommandType = 4 '表明這是一個(gè)存儲(chǔ)過程.Prepared = true '要求將SQL命令先行編譯.Parameters.append .CreateParameter("userid",3,1,4,UserID.Parameters.append .CreateParameter("checklogin",11,1,1,checklg Set MyRst = .Executeend withSet MyComm = Nothing'從第一個(gè)記錄集中取值UserNa

41、me = MyRst(0'從第二個(gè)記錄集中取值if not MyRst is Nothing thenSet MyRst = MyRst.NextRecordset(UserTel = MyRst(0UserMail = MyRst(1end ifSet MyRst = Nothing以上代碼中,利用Recordset對(duì)象的NextRecordset方法,取得了存儲(chǔ)過程返回的多個(gè)記錄集。至此,針對(duì)ASP調(diào)用存儲(chǔ)過程的各種情況,本文已做了較為全面的說明。最后說一下在一個(gè)ASP程序中,調(diào)用多個(gè)存儲(chǔ)過程的不同方法。在一個(gè)ASP程序中,調(diào)用多個(gè)存儲(chǔ)過程至少有以下三種方法都是可行的:1. 創(chuàng)建多

42、個(gè)Command對(duì)象。DIM MyCommSet MyComm = Server.CreateObject("ADODB.Command"'調(diào)用存儲(chǔ)過程一.Set MyComm = NothingSet MyComm = Server.CreateObject("ADODB.Command"'調(diào)用存儲(chǔ)過程二.Set MyComm = Nothing.2. 只創(chuàng)建一個(gè)Command對(duì)象,結(jié)束一次調(diào)用時(shí),清除其參數(shù)DIM MyCommSet MyComm = Server.CreateObject("ADODB.Command&qu

43、ot;'調(diào)用存儲(chǔ)過程一.'清除參數(shù)(假設(shè)有三個(gè)參數(shù)'調(diào)用存儲(chǔ)過程二并清除參數(shù).Set MyComm = Nothing此時(shí)要注意:清除參數(shù)的順序與參數(shù)聲明的順序相反,原因嘛,我也不知道。3. 利用Parameters數(shù)據(jù)集合的Refresh方法重置Parameter對(duì)象DIM MyCommSet MyComm = Server.CreateObject("ADODB.Command"'調(diào)用存儲(chǔ)過程一.'重置Parameters數(shù)據(jù)集合中包含的所有Parameter對(duì)象'調(diào)用存儲(chǔ)過程二.Set MyComm = Nothing一

44、般認(rèn)為,重復(fù)創(chuàng)建對(duì)象是效率較低的一種方法,但是經(jīng)測試(測試工具為Microsoft Application Center Test,結(jié)果出人意料:方法2 >= 方法1 >> 方法3方法2的運(yùn)行速度大于等于方法1(最多可高4%左右,這兩種方法的運(yùn)行速度遠(yuǎn)大于方法3(最多竟高達(dá)130%,所以建議在參數(shù)多時(shí),采用方法1,在參數(shù)較少時(shí),采用方法2?；艘惶斓臅r(shí)間,終于把我對(duì)于在ASP中調(diào)用存儲(chǔ)過程的一些粗淺的經(jīng)驗(yàn)形成了文字。這其中,有些是我只知其果而不明其因的,有些可能是錯(cuò)誤的,但是,這些都是經(jīng)過我親身實(shí)踐的。各位看官批判地接受吧。一段測試不用COMMAND對(duì)象來調(diào)用存儲(chǔ)過程的ASP

45、代碼他說如果返回多個(gè)值,比如紀(jì)錄集以及返回值一定要用COMMAND對(duì)象。我現(xiàn)在終于搞定了。:<% Language=VBScript %><%一段測試不用COMMAND對(duì)象來調(diào)用存儲(chǔ)過程的ASP代碼 作者:大自然 信箱:-CREATE PROCEDURE TopNewsSP intTopRow Int, vcInputMsg Varchar(20, vcReturnMsg Varchar(20 OUTPUTAS SET ROWCOUNT intTopRow SELECT id,標(biāo)題,發(fā)布日期,關(guān)鍵字 FROM news WHERE 關(guān)鍵字 =公告通知 ORDER BY 發(fā)布日

46、期 DESC,Id DESC SELECT id,標(biāo)題,發(fā)布日期,關(guān)鍵字 FROM news WHERE 關(guān)鍵字 =娛樂新聞 ORDER BY 發(fā)布日期 DESC,Id DESC IF vcInputMsg = 男 SELECT vcReturnMsg = 男人 ELSE SELECT vcReturnMsg = 女人-Option ExplicitDim Conn, Rs, RsCount, SqlQuerySet Conn = Server.CreateObject("ADODB.Connection"Conn.Open "itrd", "

47、sa"SqlQuery = "DECLARE returnmsg varchar(20" & VbCrLf & "EXEC TopNewsSP 5, 男, returnmsg OUTPUT" & VbCrLf & "SELECT returnmsg"Set Rs = Conn.Execute(SqlQueryRsCount = 1Do Until Rs Is NothingRs.MoveFirstWhile Not Rs.EofResponse.Write Rs(0Rs.MoveNextWen

48、dResponse.Write "第" & RsCount & "個(gè)RS對(duì)象 "RsCount = RsCount + 1Set Rs = Rs.NextRecordSetLoopSet Rs = NothingConn.CloseSet Conn = Nothing%>一些不長見的ASP調(diào)用存儲(chǔ)過程的技巧1、最簡單的如下Dim objConnSet objConn = Server.CreateObject("ADOBD.Connection"objConn.Open Application("Con

49、nection_String"'Call the stored procedure to increment a counter on the pageobjConn.Execute "exec sp_AddHit"沒有參數(shù),沒有返回,沒有錯(cuò)誤處理,就是這個(gè)了2、帶參數(shù)的一種調(diào)用請(qǐng)注意分割參數(shù),該方法也不返回記錄3、返回記錄的Dim objConnDim objRsSet objConn = Server.CreateObject("ADOBD.Connection"Set objRs = Server.CreateObject(&qu

50、ot;ADOBD.Recordset"objConn.Open Application("Connection_String"'Call the stored procedure to increment a counter on the pageobjRs.Open objConn, "exec sp_ListArticles '1/15/2001'"'Loop through recordset and display each article4、Dim objConnDim objCmd'Insta

51、ntiate objectsSet objConn = Server.CreateObject("ADODB.Connection"set objCmd = Server.CreateObject("ADODB.Command"conn.Open Application("ConnectionString"With objCmd.ActiveConnection = conn 'You can also just specify a connection string here.CommandText = "sp_I

52、nsertArticle".CommandType = adCmdStoredProc 'Requires the adovbs.inc file or typelib meta tag'Add Input Parameters.Parameters.Append .CreateParameter("columnist_id", adDouble, adParamInput, , columnist_id.Parameters.Append .CreateParameter("url", adVarChar, adParamIn

53、put, 255, url.Parameters.Append .CreateParameter("title", adVarChar, adParamInput, 99, url.Parameters.Append .CreateParameter("description", adLongVarChar, _adParamInput, 2147483647, description'Add Output Parameters.Parameters.Append .CreateParameter("link_id", adI

54、nteger, adParamOutput, , 0'Execute the function'If not returning a recordset, use the adExecuteNoRecords parameter option.Execute, , adExecuteNoRecordslink_id = .Parameters("link_id"End With5、存儲(chǔ)過程的代碼Create PROCEDURE dbo.sp_InsertArticle(columnist_id int,url varchar(255,title varcha

55、r(99,description textlink_id int OUTPUTASBEGININSERT INTO dbo.t_link (columnist_id,url,title,description VALUES (columnist_id,url,title,descriptionSELECT link_id = IDENTITYEND利用SQLSERVER存儲(chǔ)過程實(shí)現(xiàn)ASP用戶身份驗(yàn)證在我們編寫用戶身份驗(yàn)證程序中,很容易用ASP調(diào)用SQL語句來檢索數(shù)據(jù)表中是否有條件相符的記錄,然后再用ASP進(jìn)行相關(guān)處理。條條道路通羅馬!當(dāng)然,我們也可以用SQL SERVER數(shù)據(jù)庫的存儲(chǔ)過程來輕松實(shí)現(xiàn)這個(gè)功能。雖然相對(duì)而言較復(fù)雜,但其效率的提升是很明顯的,因?yàn)榇鎯?chǔ)過程是在數(shù)據(jù)庫中已經(jīng)編譯好的一段程序,我們只需用ASP將其所用的各種參數(shù)正確傳遞就行了。本文也主要是想通過一個(gè)簡單的事例,向大家介紹一下如何在ASP中調(diào)用帶參數(shù)的存儲(chǔ)過程。希望大家能從中得到更多的啟迪。第一步,建立數(shù)據(jù)表userinfoid int(4 not null,fullname varchar(50 not null,password varchar(20 not null,nikename varchar(50 not null第二步,建立存儲(chǔ)過程userch