ASP基礎(chǔ)之存儲(chǔ)過程應(yīng)用全接觸（下）

作者：佚名 2011-07-06 15:36:31

本文詳細(xì)介紹ASP開發(fā)中的存儲(chǔ)過程，由于文章比較長(zhǎng)，分為兩篇為大家介紹，希望對(duì)你有幫助，一起來看。

在ASP中，一般通過command對(duì)象調(diào)用存儲(chǔ)過程，根據(jù)不同情況，本文也介紹其它調(diào)用方法。接上篇>>

為了方便說明，根據(jù)存儲(chǔ)過程的輸入輸出，作以下簡(jiǎn)單分類：

5. 同時(shí)具有返回值、輸入?yún)?shù)、輸出參數(shù)的存儲(chǔ)過程

前面說過，在調(diào)用存儲(chǔ)過程時(shí)，聲明參數(shù)的順序要與存儲(chǔ)過程中定義的順序相同。還有一點(diǎn)要特別注意：如果存儲(chǔ)過程同時(shí)具有返回值以及輸入、輸出參數(shù)，返回值要最先聲明。

為了演示這種情況下的調(diào)用方法，我們改善一下上面的例子。還是取得ID為1的用戶的用戶名，但是有可能該用戶不存在(該用戶已刪除，而userid是自增長(zhǎng)的字段)。存儲(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