葉明的javablog

          java學(xué)習(xí)天堂,個(gè)人關(guān)于其他blog:blog.javaworker.cn,歡迎大家訪問
          posts - 64, comments - 50, trackbacks - 0, articles - 3

          ASP與存儲(chǔ)過程

          Posted on 2006-02-22 10:26 天空蒼茫 閱讀(275) 評(píng)論(0)  編輯  收藏 所屬分類: sql2000學(xué)習(xí)
          ASP與存儲(chǔ)過程(Stored Procedures)的文章不少,但是我懷疑作者們是否真正實(shí)踐過。我在初學(xué)時(shí)查閱過大量相關(guān)資料,發(fā)現(xiàn)其中提供的很多方法實(shí)際操作起來并不是那么回事。對(duì)于簡單的應(yīng)用,這些資料也許是有幫助的,但僅限于此,因?yàn)樗鼈兏揪褪乔宦桑ハ喑u,稍微復(fù)雜點(diǎn)的應(yīng)用,就全都語焉不詳了。
              現(xiàn)在,我基本上通過調(diào)用存儲(chǔ)過程訪問SQL Server,以下的文字雖不敢保證絕對(duì)正確,但都是實(shí)踐的總結(jié),希望對(duì)大家能有幫助。

              存儲(chǔ)過程就是作為可執(zhí)行對(duì)象存放在數(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)用方法。為了方便說明,根據(jù)存儲(chǔ)過程的輸入輸出,作以下簡單分類:
              1. 只返回單一記錄集的存儲(chǔ)過程
              假設(shè)有以下存儲(chǔ)過程(本文的目的不在于講述T-SQL語法,所以存儲(chǔ)過程只給出代碼,不作說明):

              /*SP1*/
              CREATE PROCEDURE dbo.getUserList
              as
              set nocount on
              begin
                 select * from dbo.[userinfo]
              end
              go

              以上存儲(chǔ)過程取得userinfo表中的所有記錄,返回一個(gè)記錄集。通過command對(duì)象調(diào)用該存儲(chǔ)過程的ASP代碼如下:
             
              '**通過Command對(duì)象調(diào)用存儲(chǔ)過程**
              DIM MyComm,MyRst
              Set MyComm = Server.CreateObject("ADODB.Command")
              MyComm.ActiveConnection = MyConStr          'MyConStr是數(shù)據(jù)庫連接字串
              MyComm.CommandText      = "getUserList"     '指定存儲(chǔ)過程名
              MyComm.CommandType      = 4                 '表明這是一個(gè)存儲(chǔ)過程
              MyComm.Prepared         = true              '要求將SQL命令先行編譯
              Set MyRst = MyComm.Execute
              Set MyComm = Nothing

              存儲(chǔ)過程取得的記錄集賦給MyRst,接下來,可以對(duì)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,MyRst
              Set MyConn = Server.CreateObject("ADODB.Connection")
              MyConn.open MyConStr                            'MyConStr是數(shù)據(jù)庫連接字串
              Set MyRst  = MyConn.Execute("getUserList",0,4)  '最后一個(gè)參斷含義同CommandType
              Set MyConn = Nothing

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

             
              2. 沒有輸入輸出的存儲(chǔ)過程
              請(qǐng)看以下存儲(chǔ)過程:

              /*SP2*/
              CREATE PROCEDURE dbo.delUserAll
              as
              set nocount on
              begin
                 delete from dbo.[userinfo]
              end
              go

              該存儲(chǔ)過程刪去userinfo表中的所有記錄,沒有任何輸入及輸出,調(diào)用方法與上面講過的基本相同,只是不用取得記錄集:

              '**通過Command對(duì)象調(diào)用存儲(chǔ)過程**
              DIM MyComm
              Set MyComm = Server.CreateObject("ADODB.Command")
              MyComm.ActiveConnection = 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ì)象是為了取得記錄集,在沒有返回記錄集的情況下,還是利用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.delUserAll
              as
              set nocount on
              begin
                 BEGIN TRANSACTION
                 delete from dbo.[userinfo]
                 IF @@error=0
                    begin
                       COMMIT TRANSACTION
                       return 1
                    end
                 ELSE
                    begin
                       ROLLBACK TRANSACTION
                       return 0
                    end        
                 return
              end
              go

              以上存儲(chǔ)過程,在delete順利執(zhí)行時(shí),返回1,否則返回0,并進(jìn)行回滾操作。為了在ASP中取得返回值,需要利用Parameters集合來聲明參數(shù):

              '**調(diào)用帶有返回值的存儲(chǔ)過程并取得返回值**
              DIM MyComm,MyPara
              Set MyComm = Server.CreateObject("ADODB.Command")
              MyComm.ActiveConnection = MyConStr          'MyConStr是數(shù)據(jù)庫連接字串
              MyComm.CommandText      = "delUserAll"      '指定存儲(chǔ)過程名
              MyComm.CommandType      = 4                 '表明這是一個(gè)存儲(chǔ)過程
              MyComm.Prepared         = true              '要求將SQL命令先行編譯
              '聲明返回值
              Set Mypara = MyComm.CreateParameter("RETURN",2,4)
              MyComm.Parameters.Append MyPara
              MyComm.Execute
              '取得返回值
              DIM retValue
              retValue = MyComm(0)    '或retValue = MyComm.Parameters(0)
              Set MyComm = Nothing
             
              在MyComm.CreateParameter("RETURN",2,4)中,各參數(shù)的含義如下:
              第一個(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ì)于返回值,只能取整形,且-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)
              MyComm.Parameters.Append MyPara
                 
              可以簡化為

              MyComm.Parameters.Append 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ǔ)過程
              返回值其實(shí)是一種特殊的輸出參數(shù)。在大多數(shù)情況下,我們用到的是同時(shí)有輸入及輸出參數(shù)的存儲(chǔ)過程,比如我們想取得用戶信息表中,某ID用戶的用戶名,這時(shí)候,有一個(gè)輸入?yún)?shù)----用戶ID,和一個(gè)輸出參數(shù)----用戶名。實(shí)現(xiàn)這一功能的存儲(chǔ)過程如下:

              /*SP4*/
              CREATE PROCEDURE dbo.getUserName
                 @UserID int,
                 @UserName varchar(40) output
              as
              set nocount on
              begin
                 if @UserID is null return
                 select @UserName=username
                     from dbo.[userinfo]
                     where userid=@UserID
                 return
              end
              go

              調(diào)用該存儲(chǔ)過程的ASP代碼如下:

              '**調(diào)用帶有輸入輸出參數(shù)的存儲(chǔ)過程**
              DIM MyComm,UserID,UserName
              UserID = 1
              Set MyComm = Server.CreateObject("ADODB.Command")
              MyComm.ActiveConnection = MyConStr          'MyConStr是數(shù)據(jù)庫連接字串
              MyComm.CommandText      = "getUserName"     '指定存儲(chǔ)過程名
              MyComm.CommandType      = 4                 '表明這是一個(gè)存儲(chǔ)過程
              MyComm.Prepared         = true              '要求將SQL命令先行編譯
              '聲明參數(shù)
              MyComm.Parameters.append MyComm.CreateParameter("@UserID",3,1,4,UserID)
              MyComm.Parameters.append MyComm.CreateParameter("@UserName",200,2,40)
              MyComm.Execute
              '取得出參
              UserName = MyComm(1)
              Set 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ù)值。聲明輸出參數(shù)時(shí),沒有最后一個(gè)參數(shù):參數(shù)值。
              需要特別注意的是:在聲明參數(shù)時(shí),順序一定要與存儲(chǔ)過程中定義的順序相同,而且各參數(shù)的數(shù)據(jù)類型、長度也要與存儲(chǔ)過程中定義的相同
              如果存儲(chǔ)過程有多個(gè)參數(shù),ASP代碼會(huì)顯得繁瑣,可以使用with命令簡化代碼:

              '**調(diào)用帶有輸入輸出參數(shù)的存儲(chǔ)過程(簡化代碼)**
              DIM MyComm,UserID,UserName
              UserID = 1
              Set MyComm = Server.CreateObject("ADODB.Command")
              with MyComm
                 .ActiveConnection = MyConStr          'MyConStr是數(shù)據(jù)庫連接字串
                 .CommandText      = "getUserName"     '指定存儲(chǔ)過程名
                 .CommandType      = 4                 '表明這是一個(gè)存儲(chǔ)過程
                 .Prepared         = true              '要求將SQL命令先行編譯
                 .Parameters.append .CreateParameter("@UserID",3,1,4,UserID)
                 .Parameters.append .CreateParameter("@UserName",200,2,40)
                 .Execute
              end with
              UserName = MyComm(1)
              Set MyComm = Nothing
             
              假如我們要取得ID為1到10,10位用戶的用戶名,是不是要?jiǎng)?chuàng)建10次Command對(duì)象呢?不是的。如果需要多次調(diào)用同一存儲(chǔ)過程,只需改變輸入?yún)?shù),就會(huì)得到不同的輸出:

              '**多次調(diào)用同一存儲(chǔ)過程**
              DIM MyComm,UserID,UserName
              UserName = ""
              Set MyComm = Server.CreateObject("ADODB.Command")
              for UserID = 1 to 10
                 with MyComm
                    .ActiveConnection = MyConStr          'MyConStr是數(shù)據(jù)庫連接字串
                    .CommandText      = "getUserName"     '指定存儲(chǔ)過程名
                    .CommandType      = 4                 '表明這是一個(gè)存儲(chǔ)過程
                    .Prepared         = true              '要求將SQL命令先行編譯
                    if UserID = 1 then
                       .Parameters.append .CreateParameter("@UserID",3,1,4,UserID)
                       .Parameters.append .CreateParameter("@UserName",200,2,40)
                       .Execute
                    else
                       '重新給入?yún)①x值(此時(shí)參數(shù)值不發(fā)生變化的入?yún)⒁约俺鰠⒉槐刂匦侣暶?
                       .Parameters("@UserID") = UserID
                       .Execute
                    end if
                 end with
                 UserName = UserName + MyComm(1) + ","    '也許你喜歡用數(shù)組存儲(chǔ)
              next
              Set MyComm = Nothing

              通過以上代碼可以看出:重復(fù)調(diào)用同一存儲(chǔ)過程時(shí),只需為值發(fā)生改變的輸入?yún)?shù)重新賦值即可,這一方法在有多個(gè)輸入輸出參數(shù),且每次調(diào)用時(shí)只有一個(gè)輸入?yún)?shù)的值發(fā)生變化時(shí),可以大大減少代碼量。


              5. 同時(shí)具有返回值、輸入?yún)?shù)、輸出參數(shù)的存儲(chǔ)過程
              前面說過,在調(diào)用存儲(chǔ)過程時(shí),聲明參數(shù)的順序要與存儲(chǔ)過程中定義的順序相同。還有一點(diǎn)要特別注意:如果存儲(chǔ)過程同時(shí)具有返回值以及輸入、輸出參數(shù),返回值要最先聲明
              為了演示這種情況下的調(diào)用方法,我們改善一下上面的例子。還是取得ID為1的用戶的用戶名,但是有可能該用戶不存在(該用戶已刪除,而userid是自增長的字段)。存儲(chǔ)過程根據(jù)用戶存在與否,返回不同的值。此時(shí),存儲(chǔ)過程和ASP代碼如下:

              /*SP5*/
              CREATE PROCEDURE dbo.getUserName
                 --為了加深對(duì)"順序"的印象,將以下兩參數(shù)的定義順序顛倒一下
                 @UserName varchar(40) output,
                 @UserID int
              as
              set nocount on
              begin
                 if @UserID is null return
                 select @UserName=username
                     from dbo.[userinfo]
                     where userid=@UserID
                 if @@rowcount>0
                    return 1
                 else
                    return 0
                 return
              end
              go

              '**調(diào)用同時(shí)具有返回值、輸入?yún)?shù)、輸出參數(shù)的存儲(chǔ)過程**
              DIM MyComm,UserID,UserName
              UserID = 1
              Set MyComm = Server.CreateObject("ADODB.Command")
              with MyComm
                 .ActiveConnection = MyConStr          'MyConStr是數(shù)據(jù)庫連接字串
                 .CommandText      = "getUserName"     '指定存儲(chǔ)過程名
                 .CommandType      = 4                 '表明這是一個(gè)存儲(chǔ)過程
                 .Prepared         = true              '要求將SQL命令先行編譯
                 '返回值要最先被聲明
                 .Parameters.Append .CreateParameter("RETURN",2,4)
                 '以下兩參數(shù)的聲明順序也做相應(yīng)顛倒
                 .Parameters.append .CreateParameter("@UserName",200,2,40)
                 .Parameters.append .CreateParameter("@UserID",3,1,4,UserID)
                 .Execute
              end with
              if MyComm(0) = 1 then
                 UserName = MyComm(1)
              else
                 UserName = "該用戶不存在"
              end if
              Set MyComm = Nothing


              6. 同時(shí)返回參數(shù)和記錄集的存儲(chǔ)過程
              有時(shí)候,我們需要存儲(chǔ)過程同時(shí)返回參數(shù)和記錄集,比如在利用存儲(chǔ)過程分頁時(shí),要同時(shí)返回記錄集以及數(shù)據(jù)總量等參數(shù)。以下給出一個(gè)進(jìn)行分頁處理的存儲(chǔ)過程:

              /*SP6*/
              CREATE PROCEDURE dbo.getUserList
                 @iPageCount int OUTPUT,   --總頁數(shù)
                 @iPage int,               --當(dāng)前頁號(hào)
                 @iPageSize int            --每頁記錄數(shù)
              as
              set nocount on
              begin
                 --創(chuàng)建臨時(shí)表
                 create table #t (ID int IDENTITY,   --自增字段
                                  userid int,
                                  username varchar(40))
                 --向臨時(shí)表中寫入數(shù)據(jù)
                 insert into #t
                    select userid,username from dbo.[UserInfo]
                       order by userid
                
                 --取得記錄總數(shù)
                 declare @iRecordCount int
                 set @iRecordCount = @@rowcount

                 --確定總頁數(shù)
                 IF @iRecordCount%@iPageSize=0
                    SET @iPageCount=CEILING(@iRecordCount/@iPageSize)
                 ELSE
                    SET @iPageCount=CEILING(@iRecordCount/@iPageSize)+1
           
                 --若請(qǐng)求的頁號(hào)大于總頁數(shù),則顯示最后一頁
                 IF @iPage > @iPageCount
                    SELECT @iPage = @iPageCount

                 --確定當(dāng)前頁的始末記錄
                 DECLARE @iStart int    --start record
                 DECLARE @iEnd int      --end record
                 SELECT @iStart = (@iPage - 1) * @iPageSize
                 SELECT @iEnd = @iStart + @iPageSize + 1

                 --取當(dāng)前頁記錄   
                 select * from #t where ID>@iStart and ID<@iEnd

                 --刪除臨時(shí)表
                 DROP TABLE #t

                 --返回記錄總數(shù)
                 return @iRecordCount
              end
              go

              在上面的存儲(chǔ)過程中,輸入當(dāng)前頁號(hào)及每頁記錄數(shù),返回當(dāng)前頁的記錄集,總頁數(shù)及記錄總數(shù)。為了更具典型性,將記錄總數(shù)以返回值的形式返回。以下是調(diào)用該存儲(chǔ)過程的ASP代碼(具體的分頁操作略去):

              '**調(diào)用分頁存儲(chǔ)過程**
              DIM pagenow,pagesize,pagecount,recordcount
              DIM MyComm,MyRst
              pagenow = Request("pn")
              '自定義函數(shù)用于驗(yàn)證自然數(shù)
              if CheckNar(pagenow) = false then pagenow = 1
              pagesize = 20
              Set MyComm = Server.CreateObject("ADODB.Command")
              with MyComm
                 .ActiveConnection = MyConStr          'MyConStr是數(shù)據(jù)庫連接字串
                 .CommandText      = "getUserList"     '指定存儲(chǔ)過程名
                 .CommandType      = 4                 '表明這是一個(gè)存儲(chǔ)過程
                 .Prepared         = true              '要求將SQL命令先行編譯
                 '返回值(記錄總量)
                 .Parameters.Append .CreateParameter("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,pagesize)
                 Set MyRst = .Execute
              end with
              if MyRst.state = 0 then        '未取到數(shù)據(jù),MyRst關(guān)閉
                 recordcount = -1
              else
                 MyRst.close    '注意:若要取得參數(shù)值,需先關(guān)閉記錄集對(duì)象
                 recordcount = MyComm(0)
                 pagecount   = MyComm(1)
                 if cint(pagenow)>=cint(pagecount) then pagenow=pagecount
              end if
              Set MyComm = Nothing

              '以下顯示記錄
              if recordcount = 0 then
                 Response.Write "無記錄"
              elseif recordcount > 0 then
                 MyRst.open
                 do until MyRst.EOF
                 ......
                 loop
                 '以下顯示分頁信息
                 ......
              else  'recordcount=-1
                 Response.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è)定只有登錄用戶可以查看這兩項(xiàng)內(nèi)容。

              /*SP7*/
              CREATE PROCEDURE dbo.getUserInfo
                 @userid int,
                 @checklogin bit
              as
              set nocount on
              begin
                 if @userid is null or @checklogin is null return
                 select username
                    from dbo.[usrinfo]
                    where userid=@userid
                 --若為登錄用戶,取usertel及usermail
                 if @checklogin=1
                    select usertel,usermail
                       from dbo.[userinfo]
                       where userid=@userid
                 return
              end
              go

              以下是ASP代碼:

              '**調(diào)用返回多個(gè)記錄集的存儲(chǔ)過程**
              DIM checklg,UserID,UserName,UserTel,UserMail
              DIM MyComm,MyRst
              UserID = 1
              'checklogin()為自定義函數(shù),判斷訪問者是否登錄
              checklg = checklogin()
              Set MyComm = Server.CreateObject("ADODB.Command")
              with MyComm
                 .ActiveConnection = MyConStr          'MyConStr是數(shù)據(jù)庫連接字串
                 .CommandText      = "getUserInfo"     '指定存儲(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 = .Execute
              end with
              Set MyComm = Nothing

              '從第一個(gè)記錄集中取值
              UserName = MyRst(0)
              '從第二個(gè)記錄集中取值
              if not MyRst is Nothing then
                 Set MyRst = MyRst.NextRecordset()
                 UserTel  = MyRst(0)
                 UserMail = MyRst(1)
              end if
              Set 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)建多個(gè)Command對(duì)象
              
              DIM MyComm
              Set MyComm = Server.CreateObject("ADODB.Command")
              '調(diào)用存儲(chǔ)過程一
              ......
              Set MyComm = Nothing
              Set MyComm = Server.CreateObject("ADODB.Command")
              '調(diào)用存儲(chǔ)過程二
              ......
              Set MyComm = Nothing
              ......

              2. 只創(chuàng)建一個(gè)Command對(duì)象,結(jié)束一次調(diào)用時(shí),清除其參數(shù)

              DIM MyComm
              Set MyComm = Server.CreateObject("ADODB.Command")
              '調(diào)用存儲(chǔ)過程一
              .....
              '清除參數(shù)(假設(shè)有三個(gè)參數(shù))
              MyComm.Parameters.delete 2
              MyComm.Parameters.delete 1
              MyComm.Parameters.delete 0
              '調(diào)用存儲(chǔ)過程二并清除參數(shù)
              ......
              Set MyComm = Nothing

              此時(shí)要注意:清除參數(shù)的順序與參數(shù)聲明的順序相反,原因嘛,我也不知道。

              3. 利用Parameters數(shù)據(jù)集合的Refresh方法重置Parameter對(duì)象

              DIM MyComm
              Set MyComm = Server.CreateObject("ADODB.Command")
              '調(diào)用存儲(chǔ)過程一
              .....
              '重置Parameters數(shù)據(jù)集合中包含的所有Parameter對(duì)象
              MyComm.Parameters.Refresh
              '調(diào)用存儲(chǔ)過程二
              .....
              Set MyComm = Nothing
           
              一般認(rèn)為,重復(fù)創(chuàng)建對(duì)象是效率較低的一種方法,但是經(jīng)測(cè)試(測(cè)試工具為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。

              花了一天的時(shí)間,終于把我對(duì)于在ASP中調(diào)用存儲(chǔ)過程的一些粗淺的經(jīng)驗(yàn)形成了文字。這其中,有些是我只知其果而不明其因的,有些可能是錯(cuò)誤的,但是,這些都是經(jīng)過我親身實(shí)踐的。各位看官批判地接受吧。有不同意見,希望一定向我指明,先謝了。


          只有注冊(cè)用戶登錄后才能發(fā)表評(píng)論。


          網(wǎng)站導(dǎo)航:
           
          主站蜘蛛池模板: 遵义市| 仙游县| 桃源县| 大连市| 崇阳县| 元阳县| 岳普湖县| 蒙城县| 靖宇县| 霍林郭勒市| 本溪市| 平定县| 砚山县| 清流县| 天水市| 信丰县| 万全县| 济源市| 图木舒克市| 湟源县| 盘锦市| 耒阳市| 彰武县| 肥西县| 江安县| 科尔| 星座| 泗阳县| 武宁县| 岳阳县| 石门县| 钟山县| 贺州市| 宜宾市| 平远县| 兴化市| 鸡西市| 北宁市| 贡嘎县| 东平县| 宣化县|