ASP存儲(chǔ)過(guò)程開發(fā)應(yīng)用詳解第2/2頁(yè)
為了演示這種情況下的調(diào)用方法,我們改善一下上面的例子。還是取得ID為1的用戶的用戶名,但是有可能該用戶不存在(該用戶已刪除,而userid是自增長(zhǎng)的字段)。存儲(chǔ)過(guò)程根據(jù)用戶存在與否,返回不同的值。此時(shí),存儲(chǔ)過(guò)程和ASP代碼如下:
以下為引用的內(nèi)容: /*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ǔ)過(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ò)程:
以下為引用的內(nèi)容: /*SP6*/ |
--取得記錄總數(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)容。
以下為引用的內(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代碼:
以下為引用的內(nèi)容: **調(diào)用返回多個(gè)記錄集的存儲(chǔ)過(guò)程** DIM checklg,UserID,UserName,UserTel,UserMail DIM MyComm,MyRst UserID = 1 'checklogin()為自定義函數(shù),判斷訪問(wèn)者是否登錄 checklg = checklogin() Set MyComm = Server.CreateObject("ADODB.Command") with MyComm .ActiveConnection = MyConStr 'MyConStr是數(shù)據(jù)庫(kù)連接字串 .CommandText = "getUserInfo" '指定存儲(chǔ)過(guò)程名 .CommandType = 4 '表明這是一個(gè)存儲(chǔ)過(guò)程 .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è)記錄集中取值 |
以上代碼中,利用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。
- 用ASP開發(fā)網(wǎng)頁(yè)需要牢記的注意事項(xiàng)
- ASP開發(fā)中存儲(chǔ)過(guò)程應(yīng)用全接觸
- ASP開發(fā)中數(shù)據(jù)庫(kù)文件調(diào)用的捷徑
- 動(dòng)態(tài)網(wǎng)站web開發(fā) PHP、ASP還是ASP.NET
- ASP開發(fā)網(wǎng)頁(yè)牢記注意事項(xiàng)
- ASP開發(fā)中可能遇到的錯(cuò)誤信息中文說(shuō)明大全(整理收集)
- 支付寶 接口開發(fā)幫助(asp,php,asp.net,jsp)
- ASP 常見對(duì)象總結(jié)(熟悉一下利用以后的開發(fā)使用)
- ASP開發(fā)準(zhǔn)則是什么
相關(guān)文章
ASP調(diào)用SQL SERVER存儲(chǔ)程序
ASP調(diào)用SQL SERVER存儲(chǔ)程序...2007-03-03asp sqlserver 執(zhí)行存儲(chǔ)過(guò)程返回記錄集報(bào)對(duì)象關(guān)閉時(shí)不允許操作
asp sqlserver 執(zhí)行存儲(chǔ)過(guò)程返回記錄集報(bào)對(duì)象關(guān)閉時(shí)不允許操作的臨時(shí)解決方法。大家有更好的方法,可以說(shuō)下。2009-08-08以前寫的一個(gè)分頁(yè)存儲(chǔ)過(guò)程,剛才不小心翻出來(lái)的
以前寫的一個(gè)分頁(yè)存儲(chǔ)過(guò)程,剛才不小心翻出來(lái)的...2006-06-06Access中使用Create Procedure創(chuàng)建存儲(chǔ)過(guò)程
Access中使用Create Procedure創(chuàng)建存儲(chǔ)過(guò)程...2006-09-09ASP程序與SQL存儲(chǔ)過(guò)程結(jié)合使用詳解
存儲(chǔ)進(jìn)程就是作為可執(zhí)行對(duì)象存放在數(shù)據(jù)庫(kù)中的一個(gè)或多個(gè)SQL命令。2009-11-11