ASP與存儲過程(Stored Procedures)的文章不少，但是我懷疑作者們是否真正實踐過。我在初學時查閱過大量相關資料，發現其中提供的很多方法實際操作起來并不是那么回事。對于簡單的應用，這些資料也許是有幫助的，但僅限于此，因為它們根本就是千篇一律，互相抄襲，稍微復雜點的應用，就全都語焉不詳了。

現在，我基本上通過調用存儲過程訪問SQL Server，以下的文字都是實踐的總結，希望對大家能有幫助。

存儲過程就是作為可執行對象存放在數據庫中的一個或多個SQL命令。

定義總是很抽象。存儲過程其實就是能完成一定操作的一組SQL語句，只不過這組語句是放在數據庫中的(這里我們只談SQL Server)。如果我們通過創建存儲過程以及在ASP中調用存儲過程，就可以避免將SQL語句同ASP代碼混雜在一起。這樣做的好處至少有三個：

• 第一、大大提高效率。存儲過程本身的執行速度非?？欤?，調用存儲過程可以大大減少同數據庫的交互次數。
• 第二、提高安全性。假如將SQL語句混合在ASP代碼中，一旦代碼失密，同時也就意味著庫結構失密。
• 第三、有利于SQL語句的重用。

在ASP中，一般通過command對象調用存儲過程，根據不同情況，本文也介紹其它調用方法。為了方便說明，根據存儲過程的輸入輸出，作以下簡單分類：

1. 只返回單一記錄集的存儲過程

假設有以下存儲過程(本文的目的不在于講述T-SQL語法，所以存儲過程只給出代碼，不作說明)：

 

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

 

以上存儲過程取得userinfo表中的所有記錄，返回一個記錄集。通過command對象調用該存儲過程的ASP代碼如下:

 

'**通過Command對象調用存儲過程**   
DIM MyComm,MyRst   
Set MyComm = Server.CreateObject("ADODB.Command")   
MyComm.ActiveConnection = MyConStr 'MyConStr是數據庫連接字串   
MyComm.CommandText = "getUserList" '指定存儲過程名   
MyComm.CommandType = 4 '表明這是一個存儲過程   
MyComm.Prepared = true '要求將SQL命令先行編譯   
Set MyRst = MyComm.Execute   
Set MyComm = Nothing  

 

存儲過程取得的記錄集賦給MyRst，接下來，可以對MyRst進行操作。

在以上代碼中，CommandType屬性表明請求的類型，取值及說明如下：

• -1 表明CommandText參數的類型無法確定
• 1 表明CommandText是一般的命令類型
• 2 表明CommandText參數是一個存在的表名稱
• 4 表明CommandText參數是一個存儲過程的名稱

還可以通過Connection對象或Recordset對象調用存儲過程，方法分別如下：

 

'**通過Connection對象調用存儲過程**   
DIM MyConn,MyRst   
Set MyConn = Server.CreateObject("ADODB.Connection")   
MyConn.open MyConStr 'MyConStr是數據庫連接字串   
Set MyRst = MyConn.Execute("getUserList",0,4) '最后一個參斷含義同CommandType   
Set MyConn = Nothing   
'**通過Recordset對象調用存儲過程**   
DIM MyRst   
Set MyRst = Server.CreateObject("ADODB.Recordset")   
MyRst.open "getUserList",MyConStr,0,1,4   
'MyConStr是數據庫連接字串,最后一個參斷含義與CommandType相同  

 

2. 沒有輸入輸出的存儲過程

請看以下存儲過程：

 

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

 

該存儲過程刪去userinfo表中的所有記錄，沒有任何輸入及輸出，調用方法與上面講過的基本相同，只是不用取得記錄集：

 

'**通過Command對象調用存儲過程**   
DIM MyComm   
Set MyComm = Server.CreateObject("ADODB.Command")   
MyComm.ActiveConnection = MyConStr 'MyConStr是數據庫連接字串   
MyComm.CommandText = "delUserAll" '指定存儲過程名   
MyComm.CommandType = 4 '表明這是一個存儲過程   
MyComm.Prepared = true '要求將SQL命令先行編譯   
MyComm.Execute '此處不必再取得記錄集   
Set MyComm = Nothing  

 

當然也可通過Connection對象或Recordset對象調用此類存儲過程，不過建立Recordset對象是為了取得記錄集，在沒有返回記錄集的情況下，還是利用Command對象吧。

3. 有返回值的存儲過程

在進行類似SP2的操作時，應充分利用SQL Server強大的事務處理功能，以維護數據的一致性。并且，我們可能需要存儲過程返回執行情況，為此，將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  

 

以上存儲過程，在delete順利執行時，返回1，否則返回0，并進行回滾操作。為了在ASP中取得返回值，需要利用Parameters集合來聲明參數：

 

'**調用帶有返回值的存儲過程并取得返回值**   
DIM MyComm,MyPara   
Set MyComm = Server.CreateObject("ADODB.Command")   
MyComm.ActiveConnection = MyConStr 'MyConStr是數據庫連接字串   
MyComm.CommandText = "delUserAll" '指定存儲過程名   
MyComm.CommandType = 4 '表明這是一個存儲過程   
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)中，各參數的含義如下：

第一個參數("RETURE")為參數名。參數名可以任意設定，但一般應與存儲過程中聲明的參數名相同。此處是返回值，我習慣上設為"RETURE"；

第二個參數(2)，表明該參數的數據類型，具體的類型代碼請參閱ADO參考，以下給出常用的類型代碼：

• adBigInt: 20 ;
• adBinary : 128 ;
• adBoolean: 11 ;
• adChar: 129 ;
• adDBTimeStamp: 135 ;
• adEmpty: 0 ;
• adInteger: 3 ;
• adSmallInt: 2 ;
• adTinyInt: 16 ;
• adVarChar: 200 ;

對于返回值，只能取整形，且-1到-99為保留值；

第三個參數(4)，表明參數的性質，此處4表明這是一個返回值。此參數取值的說明如下：

• 0 : 類型無法確定；
• 1: 輸入參數；
• 2: 輸入參數；
• 3：輸入或輸出參數；
• 4: 返回值

以上給出的ASP代碼，應該說是完整的代碼，也即最復雜的代碼，其實

 

Set Mypara = MyComm.CreateParameter("RETURN",2,4)   
MyComm.Parameters.Append MyPara  

 

可以簡化為

 

MyComm.Parameters.Append MyComm.CreateParameter("RETURN",2,4)  

 

甚至還可以繼續簡化，稍后會做說明。

對于帶參數的存儲過程，只能使用Command對象調用(也有資料說可通過Connection對象或Recordset對象調用，但我沒有試成過)。

4. 有輸入參數和輸出參數的存儲過程

返回值其實是一種特殊的輸出參數。在大多數情況下，我們用到的是同時有輸入及輸出參數的存儲過程，比如我們想取得用戶信息表中，某ID用戶的用戶名，這時候，有一個輸入參數----用戶ID，和一個輸出參數----用戶名。實現這一功能的存儲過程如下：

 

/*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  

 

調用該存儲過程的ASP代碼如下：

 

'**調用帶有輸入輸出參數的存儲過程**   
DIM MyComm,UserID,UserName   
UserID = 1   
Set MyComm = Server.CreateObject("ADODB.Command") 
MyComm.ActiveConnection = MyConStr 'MyConStr是數據庫連接字串   
MyComm.CommandText = "getUserName" '指定存儲過程名   
MyComm.CommandType = 4 '表明這是一個存儲過程   
MyComm.Prepared = true '要求將SQL命令先行編譯   
'聲明參數   
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  

 

在以上代碼中，可以看到，與聲明返回值不同，聲明輸入參數時需要5個參數，聲明輸出參數時需要4個參數。聲明輸入參數時5個參數分別為：參數名、參數數據類型、參數類型、數據長度、參數值。聲明輸出參數時，沒有最后一個參數：參數值。

需要特別注意的是：在聲明參數時，順序一定要與存儲過程中定義的順序相同，而且各參數的數據類型、長度也要與存儲過程中定義的相同。

如果存儲過程有多個參數，ASP代碼會顯得繁瑣，可以使用with命令簡化代碼：

 

'**調用帶有輸入輸出參數的存儲過程(簡化代碼)**   
DIM MyComm,UserID,UserName   
UserID = 1   
Set MyComm = Server.CreateObject("ADODB.Command")   
with MyComm   
　.ActiveConnection = MyConStr 'MyConStr是數據庫連接字串   
　.CommandText = "getUserName" '指定存儲過程名   
　.CommandType = 4 '表明這是一個存儲過程   
　.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位用戶的用戶名，是不是要創建10次Command對象呢？不是的。如果需要多次調用同一存儲過程，只需改變輸入參數，就會得到不同的輸出：

 

'**多次調用同一存儲過程**   
DIM MyComm,UserID,UserName   
UserName = ""   
Set MyComm = Server.CreateObject("ADODB.Command")   
for UserID = 1 to 10   
　with MyComm   
　　.ActiveConnection = MyConStr 'MyConStr是數據庫連接字串   
　　.CommandText = "getUserName" '指定存儲過程名   
　　.CommandType = 4 '表明這是一個存儲過程   
　　.Prepared = true '要求將SQL命令先行編譯   
　　if UserID = 1 then   
　　　.Parameters.append .CreateParameter("@UserID",3,1,4,UserID)   
　　　.Parameters.append .CreateParameter("@UserName",200,2,40)   
　　　.Execute   
　　else   
　　　'重新給入參賦值(此時參數值不發生變化的入參以及出參不必重新聲明)   
　　.Parameters("@UserID") = UserID   
　　　.Execute   
　　end if   
　end with   
　UserName = UserName + MyComm(1) + "," '也許你喜歡用數組存儲   
next   
Set MyComm = Nothing  

 

通過以上代碼可以看出：重復調用同一存儲過程時，只需為值發生改變的輸入參數重新賦值即可，這一方法在有多個輸入輸出參數，且每次調用時只有一個輸入參數的值發生變化時，可以大大減少代碼量。

請看本文下篇>>

【編輯推薦】

1. 利用ASP和SQL Server構建網頁防火墻
2. ASP新手之常用源代碼的總結（上）
3. ASP新手之常用源代碼的總結（下）
4. ASP新手之常用錯誤處理解析
5. 解決ASP無法更新ACCESS數據庫的問題