為了演示這種情況下的調(diào)用方法，我們改善一下上面的例子。還是取得ID為1的用戶的用戶名，但是有可能該用戶不存在(該用戶已刪除，而userid是自增長(zhǎng)的字段)。存儲(chǔ)過(guò)程根據(jù)用戶存在與否，返回不同的值。此時(shí)，存儲(chǔ)過(guò)程和ASP代碼如下：

'**調(diào)用同時(shí)具有返回值、輸入?yún)?shù)、輸出參數(shù)的存儲(chǔ)過(guò)程**
DIM MyComm,UserID,UserName
UserID = 1
Set MyComm = Server.CreateObject("ADODB.Command")
with MyComm
.ActiveConnection = MyConStr 'MyConStr是數(shù)據(jù)庫(kù)連接字串
.CommandText = "getUserName" '指定存儲(chǔ)過(guò)程名
.CommandType = 4 '表明這是一個(gè)存儲(chǔ)過(guò)程
.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ǔ)過(guò)程

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

--取得記錄總數(shù)
declare @iRecordCount int
set @iRecordCount = @@rowcount

--確定總頁(yè)數(shù)
IF @iRecordCount%@iPageSize=0
SET @iPageCount=CEILING(@iRecordCount/@iPageSize)
ELSE
SET @iPageCount=CEILING(@iRecordCount/@iPageSize)+1

--若請(qǐng)求的頁(yè)號(hào)大于總頁(yè)數(shù)，則顯示最后一頁(yè)
IF @iPage > @iPageCount
SELECT @iPage = @iPageCount

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

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

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

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

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

'**調(diào)用分頁(yè)存儲(chǔ)過(guò)程**
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ù)庫(kù)連接字串
.CommandText = "getUserList" '指定存儲(chǔ)過(guò)程名
.CommandType = 4 '表明這是一個(gè)存儲(chǔ)過(guò)程
.Prepared = true '要求將SQL命令先行編譯
'返回值(記錄總量)
.Parameters.Append .CreateParameter("RETURN",2,4)
'出參(總頁(yè)數(shù))
.Parameters.Append .CreateParameter("@iPageCount",3,2)
'入?yún)?當(dāng)前頁(yè)號(hào))
.Parameters.append .CreateParameter("@iPage",3,1,4,pagenow)
'入?yún)?每頁(yè)記錄數(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 "無(wú)記錄"
elseif recordcount > 0 then
MyRst.open
do until MyRst.EOF
......
loop
'以下顯示分頁(yè)信息
......
else 'recordcount=-1
Response.Write "參數(shù)錯(cuò)誤"
end if

對(duì)于以上代碼，只有一點(diǎn)需要說(shuō)明：同時(shí)返回記錄集和參數(shù)時(shí)，若要取得參數(shù)，需先將記錄集關(guān)閉，使用記錄集時(shí)再將其打開。

7. 返回多個(gè)記錄集的存儲(chǔ)過(guò)程

本文最先介紹的是返回記錄集的存儲(chǔ)過(guò)程。有時(shí)候，需要一個(gè)存儲(chǔ)過(guò)程返回多個(gè)記錄集，在ASP中，如何同時(shí)取得這些記錄集呢？為了說(shuō)明這一問(wèn)題，在userinfo表中增加兩個(gè)字段：usertel及usermail，并設(shè)定只有登錄用戶可以查看這兩項(xiàng)內(nèi)容。

以下是ASP代碼：

以上代碼中，利用Recordset對(duì)象的NextRecordset方法，取得了存儲(chǔ)過(guò)程返回的多個(gè)記錄集。

至此，針對(duì)ASP調(diào)用存儲(chǔ)過(guò)程的各種情況，本文已做了較為全面的說(shuō)明。最后說(shuō)一下在一個(gè)ASP程序中，調(diào)用多個(gè)存儲(chǔ)過(guò)程的不同方法。
在一個(gè)ASP程序中，調(diào)用多個(gè)存儲(chǔ)過(guò)程至少有以下三種方法是可行的：

1. 創(chuàng)建多個(gè)Command對(duì)象

DIM MyComm
Set MyComm = Server.CreateObject("ADODB.Command")
'調(diào)用存儲(chǔ)過(guò)程一
......
Set MyComm = Nothing
Set MyComm = Server.CreateObject("ADODB.Command")
'調(diào)用存儲(chǔ)過(guò)程二
......
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ǔ)過(guò)程一
.....
'清除參數(shù)(假設(shè)有三個(gè)參數(shù))
MyComm.Parameters.delete 2
MyComm.Parameters.delete 1
MyComm.Parameters.delete 0
'調(diào)用存儲(chǔ)過(guò)程二并清除參數(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ǔ)過(guò)程一
.....
'重置Parameters數(shù)據(jù)集合中包含的所有Parameter對(duì)象
MyComm.Parameters.Refresh
'調(diào)用存儲(chǔ)過(guò)程二
.....
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。

最新評(píng)論