解析ASP與存儲過程(7)_ASP教程

教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：解析ASP中的常用服務(wù)器檢測源碼
在寫ASP網(wǎng)頁時常用的檢測代碼: 服務(wù)器現(xiàn)在時間: 引用 % =now %> 服務(wù)器CPU型號: 引用 %=Request.ServerVariables(HTTP_UA_CPU)%> 當(dāng)前分辨率: 引用 &l

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

以下為引用的內(nèi)容：

'**調(diào)用分頁存儲過程**
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" '指定存儲過程名
.CommandType = 4 '表明這是一個存儲過程
.Prepared = true '要求將SQL命令先行編譯
'返回值(記錄總量)
.Parameters.Append .CreateParameter("RETURN",2,4)
'出參(總頁數(shù))
.Parameters.Append .CreateParameter("@iPageCount",3,2)
'入?yún)?當(dāng)前頁號)
.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)閉記錄集對象
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ù)錯誤"
end if

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

7. 返回多個記錄集的存儲過程

本文最先介紹的是返回記錄集的存儲過程。有時候，需要一個存儲過程返回多個記錄集，在ASP中，如何同時取得這些記錄集呢？為了說明這一問題，在userinfo表中增加兩個字段：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