ASP与存储过程解析.docx
《ASP与存储过程解析.docx》由会员分享,可在线阅读,更多相关《ASP与存储过程解析.docx(20页珍藏版)》请在冰豆网上搜索。
ASP与存储过程解析
经验总结:
ASP与存储过程解析
2007-01-1900:
00T|T
ASP与存储过程(StoredProcedures)的文章不少,但是我怀疑作者们是否真正实践过。
我在初学时查阅过大量相关资料,发现其中提供的很多方法实际操作起来并不是那么回事。
对于简单的应用,这些资料也许是有帮助的,但仅限于此,因为它们根本就是千篇一律,互相抄袭,稍微复杂点的应用,就全都语焉不详了。
现在,我基本上通过调用存储过程访问SQLServer,以下的文字虽不敢保证绝对正确,但都是实践的总结,希望对大家能有帮助。
存储过程就是作为可执行对象存放在数据库中的一个或多个SQL命令。
定义总是很抽象。
存储过程其实就是能完成一定操作的一组SQL语句,只不过这组语句是放在数据库中的(这里我们只谈SQLServer)。
如果我们通过创建存储过程以及在ASP中调用存储过程,就可以避免将SQL语句同ASP代码混杂在一起。
这样做的好处至少有三个:
第一、大大提高效率。
存储过程本身的执行速度非常快,而且,调用存储过程可以大大减少同数据库的交互次数。
第二、提高安全性。
假如将SQL语句混合在ASP代码中,一旦代码失密,同时也就意味着库结构失密。
第三、有利于SQL语句的重用。
在ASP中,一般通过command对象调用存储过程,根据不同情况,本文也介绍其它调用方法。
为了方便说明,根据存储过程的输入输出,作以下简单分类:
1.只返回单一记录集的存储过程
假设有以下存储过程(本文的目的不在于讲述T-SQL语法,所以存储过程只给出代码,不作说明):
/*SP1*/
CREATEPROCEDUREdbo.getUserList
as
setnocounton
begin
select*fromdbo.[userinfo]
end
go
以上存储过程取得userinfo表中的所有记录,返回一个记录集。
通过command对象调用该存储过程的ASP代码如下:
'**通过Command对象调用存储过程**
DIMMyComm,MyRst
SetMyComm=Server.CreateObject("ADODB.Command")
MyComm.ActiveConnection=MyConStr'MyConStr是数据库连接字串
MyComm.CommandText="getUserList"'指定存储过程名
MyComm.CommandType=4'表明这是一个存储过程
MyComm.Prepared=true'要求将SQL命令先行编译
SetMyRst=MyComm.Execute
SetMyComm=Nothing
存储过程取得的记录集赋给MyRst,接下来,可以对MyRst进行操作。
在以上代码中,CommandType属性表明请求的类型,取值及说明如下:
-1表明CommandText参数的类型无法确定
1表明CommandText是一般的命令类型
2表明CommandText参数是一个存在的表名称
4表明CommandText参数是一个存储过程的名称
还可以通过Connection对象或Recordset对象调用存储过程,方法分别如下:
'**通过Connection对象调用存储过程**
DIMMyConn,MyRst
SetMyConn=Server.CreateObject("ADODB.Connection")
MyConn.openMyConStr'MyConStr是数据库连接字串
SetMyRst=MyConn.Execute("getUserList",0,4)'最后一个参断含义同CommandType
SetMyConn=Nothing
'**通过Recordset对象调用存储过程**
DIMMyRst
SetMyRst=Server.CreateObject("ADODB.Recordset")
MyRst.open"getUserList",MyConStr,0,1,4
'MyConStr是数据库连接字串,最后一个参断含义与CommandType相同
2.没有输入输出的存储过程
请看以下存储过程:
/*SP2*/
CREATEPROCEDUREdbo.delUserAll
as
setnocounton
begin
deletefromdbo.[userinfo]
end
go
该存储过程删去userinfo表中的所有记录,没有任何输入及输出,调用方法与上面讲过的基本相同,只是不用取得记录集:
'**通过Command对象调用存储过程**
DIMMyComm
SetMyComm=Server.CreateObject("ADODB.Command")
MyComm.ActiveConnection=MyConStr'MyConStr是数据库连接字串
MyComm.CommandText="delUserAll"'指定存储过程名
MyComm.CommandType=4'表明这是一个存储过程
MyComm.Prepared=true'要求将SQL命令先行编译
MyComm.Execute'此处不必再取得记录集
SetMyComm=Nothing
当然也可通过Connection对象或Recordset对象调用此类存储过程,不过建立Recordset对象是为了取得记录集,在没有返回记录集的情况下,还是利用Command对象吧。
3.有返回值的存储过程
在进行类似SP2的操作时,应充分利用SQLServer强大的事务处理功能,以维护数据的一致性。
并且,我们可能需要存储过程返回执行情况,为此,将SP2修改如下:
/*SP3*/
CREATEPROCEDUREdbo.delUserAll
as
setnocounton
begin
BEGINTRANSACTION
deletefromdbo.[userinfo]
IF@@error=0
begin
COMMITTRANSACTION
return1
end
ELSE
begin
ROLLBACKTRANSACTION
return0
end
return
end
go
以上存储过程,在delete顺利执行时,返回1,否则返回0,并进行回滚操作。
为了在ASP中取得返回值,需要利用Parameters集合来声明参数:
'**调用带有返回值的存储过程并取得返回值**
DIMMyComm,MyPara
SetMyComm=Server.CreateObject("ADODB.Command")
MyComm.ActiveConnection=MyConStr'MyConStr是数据库连接字串
MyComm.CommandText="delUserAll"'指定存储过程名
MyComm.CommandType=4'表明这是一个存储过程
MyComm.Prepared=true'要求将SQL命令先行编译
'声明返回值
SetMypara=MyComm.CreateParameter("RETURN",2,4)
MyComm.Parameters.AppendMyPara
MyComm.Execute
'取得返回值
DIMretValue
retValue=MyComm(0)'或retValue=MyComm.Parameters(0)
SetMyComm=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代码,应该说是完整的代码,也即最复杂的代码,其实
SetMypara=MyComm.CreateParameter("RETURN",2,4)
MyComm.Parameters.AppendMyPara
可以简化为
MyComm.Parameters.AppendMyComm.CreateParameter("RETURN",2,4)
甚至还可以继续简化,稍后会做说明。
对于带参数的存储过程,只能使用Command对象调用(也有资料说可通过Connection对象或Recordset对象调用,但我没有试成过)。
4.有输入参数和输出参数的存储过程
返回值其实是一种特殊的输入参数。
在大多数情况下,我们用到的是同时有输入及输出参数的存储过程,比如我们想取得用户信息表中,某ID用户的用户名,这时候,有一个输入参数----用户ID,和一个输出参数----用户名。
实现这一功能的存储过程如下:
/*SP4*/
CREATEPROCEDUREdbo.getUserName
@UserIDint,
@UserNamevarchar(40)output
as
setnocounton
begin
if@UserIDisnullreturn
select@UserName=username
fromdbo.[userinfo]
whereuserid=@UserID
return
end
go
调用该存储过程的ASP代码如下:
'**调用带有输入输出参数的存储过程**
DIMMyComm,UserID,UserName
UserID=1
SetMyComm=Server.CreateObject("ADODB.Command")
MyComm.ActiveConnection=MyConStr'MyConStr是数据库连接字串
MyComm.CommandText="getUserName"'指定存储过程名
MyComm.CommandType=4'表明这是一个存储过程
MyComm.Prepared=true'要求将SQL命令先行编译
'声明参数
MyComm.Parameters.appendMyComm.CreateParameter("@UserID",3,1,4,UserID)
MyComm.Parameters.appendMyComm.CreateParameter("@UserName",200,2,40)
MyComm.Execute
'取得出参
UserName=MyComm
(1)
SetMyComm=Nothing
在以上代码中,可以看到,与声明返回值不同,声明输入参数时需要5个参数,声明输出参数时需要4个参数。
声明输入参数时5个参数分别为:
参数名、参数数据类型、参数类型、数据长度、参数值。
声明输入参数时,没有最后一个参数:
参数值。
需要特别注意的是:
在声明参数时,顺序一定要与存储过程中定义的顺序相同,而且各参数的数据类型、长度也要与存储过程中定义的相同。
如果存储过程有多个参数,ASP代码会显得繁琐,可以使用with命令简化代码:
'**调用带有输入输出参数的存储过程(简化代码)**
DIMMyComm,UserID,UserName
UserID=1
SetMyComm=Server.CreateObject("ADODB.Command")
withMyComm
.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
endwith
UserName=MyComm
(1)
SetMyComm=Nothing
假如我们要取得ID为1到10,10位用户的用户名,是不是要创建10次Command对象呢?
不是的,如果需要多次调用同一存储过程,只需改变输入参数,就会得到不同的输入参数:
'**多次调用同一存储过程**
DIMMyComm,UserID,UserName
UserName=""
SetMyComm=Server.CreateObject("ADODB.Command")
forUserID=1to10
withMyComm
.ActiveConnection=MyConStr'MyConStr是数据库连接字串
.CommandText="getUserName"'指定存储过程名
.CommandType=4'表明这是一个存储过程
.Prepared=true'要求将SQL命令先行编译
ifUserID=1then
.Parameters.append.CreateParameter("@UserID",3,1,4,UserID)
.Parameters.append.CreateParameter("@UserName",200,2,40)
.Execute
else
'重新给入参赋值(此时参数值不发生变化的入参以及出参不必重新声明)
.Parameters("@UserID")=UserID
.Execute
endif
endwith
UserName=UserName+MyComm
(1)+","'也许你喜欢用数组存储
next
SetMyComm=Nothing
通过以上代码可以看出:
重复调用同一存储过程时,只需为值发生改变的输入参数重新赋值即可,这一方法在有多个输入输出参数,且每次调用时只有一个输入参数的值发生变化时,可以大大减少代码量。
5.同时具有返回值、输入参数、输出参数的存储过程
前面说过,在调用存储过程时,声明参数的顺序要与存储过程中定义的顺序相同。
还有一点要特别注意:
如果存储过程同时具有返回值以及输入、输出参数,返回值要最先声明。
为了演示这种情况下的调用方法,我们改善一下上面的例子。
还是取得ID为1的用户的用户名,但是有可能该用户不存在(该用户已删除,而userid是自增长的字段)。
存储过程根据用户存在与否,返回不同的值。
此时,存储过程和ASP代码如下:
/*SP5*/
CREATEPROCEDUREdbo.getUserName
--为了加深对"顺序"的印象,将以下两参数的定义顺序颠倒一下
@UserNamevarchar(40)output,
@UserIDint
as
setnocounton
begin
if@UserIDisnullreturn
select@UserName=username
fromdbo.[userinfo]
whereuserid=@UserID
if@@rowcount>0
return1
else
return0
return
end
go
'**调用同时具有返回值、输入参数、输出参数的存储过程**
DIMMyComm,UserID,UserName
UserID=1
SetMyComm=Server.CreateObject("ADODB.Command")
withMyComm
.ActiveConnection=MyConStr'MyConStr是数据库连接字串
.CommandText="getUserName"'指定存储过程名
.CommandType=4'表明这是一个存储过程
.Prepared=true'要求将SQL命令先行编译
'返回值要最先被声明
.Parameters.Append.CreateParameter("RETURN",2,4)
'以下两参数的声明顺序也做相应颠倒
.Parameters.append.CreateParameter("@UserName",200,2,40)
.Parameters.append.CreateParameter("@UserID",3,1,4,UserID)
.Execute
endwith
ifMyComm(0)=1then
UserName=MyComm
(1)
else
UserName="该用户不存在"
endif
SetMyComm=Nothing
6.同时返回参数和记录集的存储过程
有时候,我们需要存储过程同时返回参数和记录集,比如在利用存储过程分页时,要同时返回记录集以及数据总量等参数。
以下给出一个进行分页处理的存储过程:
/*SP6*/
CREATEPROCEDUREdbo.getUserList
@iPageCountintOUTPUT,--总页数
@iPageint,--当前页号
@iPageSizeint--每页记录数
as
setnocounton
begin
--创建临时表
createtable#t(IDintIDENTITY,--自增字段
useridint,
usernamevarchar(40))
--向临时表中写入数据
insertinto#t
selectuserid,usernamefromdbo.[UserInfo]
orderbyuserid
--取得记录总数
declare@iRecordCountint
set@iRecordCount=@@rowcount
--确定总页数
IF@iRecordCount%@iPageSize=0
SET@iPageCount=CEILING(@iRecordCount/@iPageSize)
ELSE
SET@iPageCount=CEILING(@iRecordCount/@iPageSize)+1
--若请求的页号大于总页数,则显示最后一页
IF@iPage>@iPageCount
SELECT@iPage=@iPageCount
--确定当前页的始末记录
DECLARE@iStartint--startrecord
DECLARE@iEndint--endrecord
SELECT@iStart=(@iPage-1)*@iPageSize
SELECT@iEnd=@iStart+@iPageSize+1
--取当前页记录
select*from#twhereID>@iStartandID<@iEnd
--删除临时表
DROPTABLE#t
--返回记录总数
return@iRecordCount
end
go
在上面的存储过程中,输入当前页号及每页记录数,返回当前页的记录集,总页数及记录总数。
为了更具典型性,将记录总数以返回值的形式返回。
以下是调用该存储过程的ASP代码(具体的分页操作略去):
'**调用分页存储过程**
DIMpagenow,pagesize,pagecount,recordcount
DIMMyComm,MyRst
pagenow=Request("pn")
'自定义函数用于验证自然数
ifCheckNar(pagenow)=falsethenpagenow=1
pagesize=20
SetMyComm=Server.CreateObject("ADODB.Command")
withMyComm
.ActiveConnection=MyConStr'MyConStr是数据库连接字串
.CommandText="getUserList"'指定存储过程名
.CommandType=4'表明这是一个存储过程
.Prepared=true'要求将SQL命令先行编译
'返回值(记录总量)
.Parameters.Append.CreateParameter("RETURN",2,4)
'出参(总页数)
.Parameters.Append.CreateParameter("@iPageCount",3,2)
'入参(当前页号)
.Parameters.append.CreateParameter("@iPage",3,1,4,pagenow)
'入参(每页记录数)
.Parameters.append.CreateParameter("@iPageSize",3,1,4,pagesize)
SetMyRst=.Execute
endwith
ifMyRst.state=0then'未取到数据,MyRst关闭
recordcount=-1
else
MyRst.close'注意:
若要取得参数值,需先关闭记录集对象
recordcount=MyComm(0)
pagecount=MyComm
(1)
ifcint(pagenow)>=cint(pagecount)thenpagenow=pagecount
endif
SetMyComm=Nothing
'以下显示记录
ifrecordcount=0then
Response.Write"无记录"
elseifrecordcount>0then
MyRst.