字符	转义后的字符
HTML字符	字符�~�码
and(�?	&	&	&
单引�?/td>	'	'	'
双引�?/td>	"	"	"
大于�?/td>	>	>	>
��于�?/td>	<	<	<

lovajava_ye — Wed, 22 Feb 2006 02:26:00 GMT

ASP与存储过�E?Stored Procedures)的文章不��，但是我怀疑作者们是否真正实践�q�。我在初学时查阅�q�大量相兌��料，发现其中提供的很多方法实际操作�v来�ƈ不是那么回事。对于简单的应用�Q�这些资料也许是有帮助的�Q�但仅限于此�Q�因为它们根本就是千��一律，互相抄袭�Q�稍微复杂点的应用，��全都语焉不详了�?BR> 现在�Q�我基本上通过调用存储�q�程讉K��SQL Server�Q�以下的文字虽不敢保证绝�Ҏ��，但都是实�늚��ȝ��Q�希望对大家能有帮助�?

    存储�q�程��是作�ؓ可执行对象存攑֜�数据库中的一个或多个SQL命��o�?BR>    定义��L��很抽象。存储过�E�其实就是能完成一定操作的一�l�SQL语句�Q�只不过�q�组语句是放在数据库中的(�q�里我们只谈SQL Server)。如果我们通过创徏存储�q�程以及在ASP中调用存储过�E�，��可以避免将SQL语句同ASP代码��h��在一赗��这样做的好处至��有三个�Q?BR>    �W�一、大大提高效率。存储过�E�本�w�的执行速度非常快，而且�Q�调用存储过�E�可以大大减��同数据库的交互�ơ数�?BR>    �W�二、提高安全性。假如将SQL语句混合在ASP代码中，一旦代码失密，同时也就意味着库结构失密�?BR>    �W�三、有利于SQL语句的重用�?BR>
    在ASP中，一般通过command对象调用存储�q�程�Q�根据不同情况，本文也介�l�其它调用方法。�ؓ了方便说明，�Ҏ��存储�q�程的输入输出，作以下简单分�c�：
    1. 只返回单一记录集的存储�q�程
    假设有以下存储过�E?本文的目的不在于讲述T-SQL语法�Q�所以存储过�E�只�l�出代码�Q�不作说�?�Q?/P>

    /*SP1*/
    CREATE PROCEDURE dbo.getUserList
    as
    set nocount on
    begin
       select * from dbo.[userinfo]
    end
    go

    以上存储�q�程取得userinfo表中的所有记录，�q�回一个记录集。通过command对象调用该存储过�E�的ASP代码如下:

    '**通过Command对象调用存储�q�程**
    DIM MyComm,MyRst
    Set MyComm = Server.CreateObject("ADODB.Command")
    MyComm.ActiveConnection = MyConStr          'MyConStr是数据库�q�接字串
    MyComm.CommandText      = "getUserList"     '指定存储�q�程�?/FONT>
    MyComm.CommandType      = 4                 '表明�q�是一个存储过�E?/FONT>
    MyComm.Prepared         = true              '要求��SQL命��o先行�~�译
    Set MyRst = MyComm.Execute
    Set MyComm = Nothing

    存储�q�程取得的记录集赋给MyRst�Q�接下来�Q�可以对MyRst�q�行操作�?BR>    在以上代码中�Q�CommandType属性表明请求的�c�d��Q�取值及说明如下�Q?BR>      -1   表明CommandText参数的类型无法确�?BR>      1    表明CommandText是一般的命��o�c�d��
      2    表明CommandText参数是一个存在的表名�U?BR>      4    表明CommandText参数是一个存储过�E�的名称

    �q�可以通过Connection对象或Recordset对象调用存储�q�程�Q�方法分别如下：

    '**通过Connection对象调用存储�q�程**
    DIM MyConn,MyRst
    Set MyConn = Server.CreateObject("ADODB.Connection")
    MyConn.open MyConStr                            'MyConStr是数据库�q�接字串
    Set MyRst = MyConn.Execute("getUserList",0,4) '最后一个参断含义同CommandType
    Set MyConn = Nothing

    '**通过Recordset对象调用存储�q�程**
    DIM MyRst
    Set MyRst = Server.CreateObject("ADODB.Recordset")
    MyRst.open "getUserList",MyConStr,0,1,4
    'MyConStr是数据库�q�接字串,最后一个参断含义与CommandType相同

2. 没有输入输出的存储过�E?BR> ��L��以下存储�q�程�Q?/P>

    /*SP2*/
    CREATE PROCEDURE dbo.delUserAll
    as
    set nocount on
    begin
       delete from dbo.[userinfo]
    end
    go

该存储过�E�删去userinfo表中的所有记录，没有��M��输入及输出，调用�Ҏ��与上面讲�q�的基本相同�Q�只是不用取得记录集�Q?/P>

    '**通过Command对象调用存储�q�程**
    DIM MyComm
    Set MyComm = Server.CreateObject("ADODB.Command")
    MyComm.ActiveConnection = MyConStr          'MyConStr是数据库�q�接字串
    MyComm.CommandText      = "delUserAll"      '指定存储�q�程�?BR>    MyComm.CommandType      = 4                 '表明�q�是一个存储过�E?BR>    MyComm.Prepared         = true              '要求��SQL命��o先行�~�译
    MyComm.Execute                              '此处不必再取得记录集
    Set MyComm = Nothing

当然也可通过Connection对象或Recordset对象调用此类存储�q�程�Q�不�q�徏立Recordset对象是�ؓ了取得记录集�Q�在没有�q�回记录集的情况下，�q�是利用Command对象吧�?/P>

3. 有返回值的存储�q�程
在进行类似SP2的操作时�Q�应充分利用SQL Server强大的事务处理功能，以维护数据的一致性。�ƈ且，我们可能需要存储过�E�返回执行情况，为此�Q�将SP2修改如下�Q?/P>

    /*SP3*/
    CREATE PROCEDURE dbo.delUserAll
    as
    set nocount on
    begin
       BEGIN TRANSACTION
       delete from dbo.[userinfo]
       IF @@error=0
          begin
             COMMIT TRANSACTION
             return 1
          end
       ELSE
          begin
             ROLLBACK TRANSACTION
             return 0
          end
       return
    end
    go

以上存储�q�程�Q�在delete��利执行�Ӟ��q�回1�Q�否则返�?�Q��ƈ�q�行回滚操作。�ؓ了在ASP中取得返回��|��需要利用Parameters集合来声明参敎ͼ�

    '**调用带有�q�回值的存储�q�程�q�取得返回�?*
    DIM MyComm,MyPara
    Set MyComm = Server.CreateObject("ADODB.Command")
    MyComm.ActiveConnection = MyConStr          'MyConStr是数据库�q�接字串
    MyComm.CommandText      = "delUserAll"      '指定存储�q�程�?BR>    MyComm.CommandType      = 4                 '表明�q�是一个存储过�E?/FONT>
    MyComm.Prepared         = true              '要求��SQL命��o先行�~�译
    '声明�q�回�?BR>    Set Mypara = MyComm.CreateParameter("RETURN",2,4)
    MyComm.Parameters.Append MyPara
    MyComm.Execute
    '取得�q�回�?BR>    DIM retValue
    retValue = MyComm(0)    '或retValue = MyComm.Parameters(0)
    Set MyComm = Nothing

    在MyComm.CreateParameter("RETURN",2,4)中，各参数的含义如下�Q?BR>    �W�一个参�?"RETURE")为参数名。参数名可以��L��讑֮��Q�但一般应与存储过�E�中声明的参数名相同。此处是�q�回��|��我习惯上设�ؓ"RETURE"�Q?BR>    �W�二个参�?2)�Q�表明该参数的数据类型，具体的类型代码请参阅ADO参考，以下�l�出常用的类型代码：
    adBigInt: 20 ;
    adBinary : 128 ;
    adBoolean: 11 ;
    adChar: 129 ;
    adDBTimeStamp: 135 ;
    adEmpty: 0 ;
    adInteger: 3 ;
    adSmallInt: 2 ;
    adTinyInt: 16 ;
    adVarChar: 200 ;
    对于�q�回��|��只能取整形，�?1�?99��Z��留��|��
    �W�三个参�?4)�Q�表明参数的性质�Q�此�?表明�q�是一个返回倹{��此参数取值的说明如下�Q?BR>    0 : �c�d��无法��定�Q?1: 输入参数�Q?: 输入参数�Q?�Q�输入或输出参数�Q?: �q�回�?BR>
    以上�l�出的ASP代码�Q�应该说是完整的代码�Q�也��x��复杂的代码，其实

    Set Mypara = MyComm.CreateParameter("RETURN",2,4)
    MyComm.Parameters.Append MyPara

    可以��化�ؓ

MyComm.Parameters.Append MyComm.CreateParameter("RETURN",2,4)

甚至�q�可以��l�简化，�E�后会做说明�?BR> 对于带参数的存储�q�程�Q�只能��用Command对象调用(也有资料说可通过Connection对象或Recordset对象调用�Q�但我没有试成过)�?/P>

4. 有输入参数和输出参数的存储过�E?/STRONG>
�q�回值其实是一�U�特�D�的输出参数。在大多数情况下�Q�我们用到的是同时有输入及输出参数的存储�q�程�Q�比如我们想取得用户信息表中�Q�某ID用户的用户名�Q�这时候，有一个输入参�?---用户ID�Q�和一个输出参�?---用户名。实现这一功能的存储过�E�如下：

    /*SP4*/
    CREATE PROCEDURE dbo.getUserName
       @UserID int,
       @UserName varchar(40) output
    as
    set nocount on
    begin
       if @UserID is null return
       select @UserName=username
           from dbo.[userinfo]
           where userid=@UserID
       return
    end
    go

    调用该存储过�E�的ASP代码如下�Q?/P>
    '**调用带有输入输出参数的存储过�E?*
    DIM MyComm,UserID,UserName
    UserID = 1
    Set MyComm = Server.CreateObject("ADODB.Command")
    MyComm.ActiveConnection = MyConStr          'MyConStr是数据库�q�接字串
    MyComm.CommandText      = "getUserName"     '指定存储�q�程�?BR>    MyComm.CommandType      = 4                 '表明�q�是一个存储过�E?/FONT>
    MyComm.Prepared         = true              '要求��SQL命��o先行�~�译
    '声明参数
    MyComm.Parameters.append MyComm.CreateParameter("@UserID",3,1,4,UserID)
    MyComm.Parameters.append MyComm.CreateParameter("@UserName",200,2,40)
    MyComm.Execute
    '取得出参
    UserName = MyComm(1)
    Set MyComm = Nothing

    在以上代码中�Q�可以看刎ͼ�与声明返回��g��同，声明输入参数旉��?个参敎ͼ�声明输出参数旉��?个参数。声明输入参数时5个参数分别�ؓ�Q?FONT color=#0000ff>参数名、参数数据类型、参数类型、数据长度、参数�?/FONT>。声明输出参数时�Q�没有最后一个参敎ͼ�参数倹{�?BR>    需要特别注意的是：在声明参数时�Q�顺序一定要与存储过�E�中定义的顺序相同，而且各参数的数据�c�d��、长度也要与存储�q�程中定义的相同�?BR>    如果存储�q�程有多个参敎ͼ�ASP代码会显得繁琐，可以使用with命��o��化代码：

    '**调用带有输入输出参数的存储过�E?��化代�?**
    DIM MyComm,UserID,UserName
    UserID = 1
    Set MyComm = Server.CreateObject("ADODB.Command")
    with MyComm
       .ActiveConnection = MyConStr          'MyConStr是数据库�q�接字串
       .CommandText      = "getUserName"     '指定存储�q�程�?BR>       .CommandType      = 4                 '表明�q�是一个存储过�E?/FONT>
       .Prepared         = true              '要求��SQL命��o先行�~�译
       .Parameters.append .CreateParameter("@UserID",3,1,4,UserID)
       .Parameters.append .CreateParameter("@UserName",200,2,40)
       .Execute
    end with
    UserName = MyComm(1)
    Set MyComm = Nothing

    假如我们要取得ID�?�?0�Q?0位用��L��用户名，是不是要创徏10�ơCommand对象呢？不是的。如果需要多�ơ调用同一存储�q�程�Q�只需改变输入参数�Q�就会得��C��同的输出�Q?/P>
    '**多次调用同一存储�q�程**
    DIM MyComm,UserID,UserName
    UserName = ""
    Set MyComm = Server.CreateObject("ADODB.Command")
    for UserID = 1 to 10
       with MyComm
          .ActiveConnection = MyConStr          'MyConStr是数据库�q�接字串
          .CommandText      = "getUserName"     '指定存储�q�程�?BR>          .CommandType      = 4                 '表明�q�是一个存储过�E?/FONT>
          .Prepared         = true              '要求��SQL命��o先行�~�译
          if UserID = 1 then
             .Parameters.append .CreateParameter("@UserID",3,1,4,UserID)
             .Parameters.append .CreateParameter("@UserName",200,2,40)
             .Execute
          else
             '重新�l�入参赋�?此时参数��g��发生变化的入参以及出参不必重新声�?
             .Parameters("@UserID") = UserID
             .Execute
          end if
       end with
       UserName = UserName + MyComm(1) + ","    '也许你喜�Ƣ用数组存储
    next
    Set MyComm = Nothing

    通过以上代码可以看出�Q?FONT color=#0000ff>重复调用同一存储�q�程�Ӟ��只需为值发生改变的输入参数重新赋值即�?/FONT>�Q�这一�Ҏ��在有多个输入输出参数�Q�且每次调用时只有一个输入参数的值发生变化时�Q�可以大大减��代码量�?/P>

    5. 同时��h��q�回倹{��输入参数、输出参数的存储�q�程
    前面说过�Q�在调用存储�q�程�Ӟ��声明参数的顺序要与存储过�E�中定义的顺序相同。还有一点要特别注意�Q?FONT color=#0000ff>如果存储�q�程同时��h��q�回��g��及输入、输出参敎ͼ��q�回��D��最先声�?/FONT>�?BR>    ��Z��演示�q�种情况下的调用�Ҏ��Q�我们改善一下上面的例子。还是取得ID�?的用��L��用户名，但是有可能该用户不存�?该用户已删除�Q�而userid是自增长的字�D?。存储过�E�根据用户存在与否，�q�回不同的倹{��此�Ӟ��存储�q�程和ASP代码如下�Q?/P>
    /*SP5*/
    CREATE PROCEDURE dbo.getUserName
       --��Z��加深�?��序"的印象，��以下两参数的定义顺序颠倒一�?BR>       @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

    '**调用同时��h��q�回倹{��输入参数、输出参数的存储�q�程**
    DIM MyComm,UserID,UserName
    UserID = 1
    Set MyComm = Server.CreateObject("ADODB.Command")
    with MyComm
       .ActiveConnection = MyConStr          'MyConStr是数据库�q�接字串
       .CommandText      = "getUserName"     '指定存储�q�程�?/FONT>
       .CommandType      = 4                 '表明�q�是一个存储过�E?/FONT>
       .Prepared         = true              '要求��SQL命��o先行�~�译
       '�q�回��D��最先被声明
       .Parameters.Append .CreateParameter("RETURN",2,4)
       '以下两参数的声明��序也做相应颠�?BR>       .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. 同时�q�回参数和记录集的存储过�E?/STRONG>
    有时候，我们需要存储过�E�同时返回参数和记录集，比如在利用存储过�E�分��|��Q�要同时�q�回记录集以及数据总量�{�参数。以下给��Z��个进行分��处理的存储�q�程�Q?/P>
    /*SP6*/
    CREATE PROCEDURE dbo.getUserList
       @iPageCount int OUTPUT,   --总页�?BR>       @iPage int,               --当前��号
       @iPageSize int            --每页记录�?BR>    as
    set nocount on
    begin
       --创徏临时�?/FONT>
       create table #t (ID int IDENTITY,   --自增字段
                        userid int,
                        username varchar(40))
       --向��时表中写入数�?BR>       insert into #t
          select userid,username from dbo.[UserInfo]
             order by userid

       --取得记录��L��
       declare @iRecordCount int
       set @iRecordCount = @@rowcount

       --��定总页�?/FONT>
       IF @iRecordCount%@iPageSize=0
          SET @iPageCount=CEILING(@iRecordCount/@iPageSize)
       ELSE
          SET @iPageCount=CEILING(@iRecordCount/@iPageSize)+1

       --若请求的��号大于总页敎ͼ�则显�C�最后一��?/FONT>
       IF @iPage > @iPageCount
          SELECT @iPage = @iPageCount

       --��定当前��늚�始末记录
       DECLARE @iStart int    --start record
       DECLARE @iEnd int      --end record
       SELECT @iStart = (@iPage - 1) * @iPageSize
       SELECT @iEnd = @iStart + @iPageSize + 1

       --取当前页记录
       select * from #t where ID>@iStart and ID<@iEnd

       --删除临时�?/FONT>
       DROP TABLE #t

       --�q�回记录��L��
       return @iRecordCount
    end
    go

    在上面的存储�q�程中，输入当前��号及每��记录数�Q�返回当前页的记录集�Q�总页数及记录��L��。�ؓ了更具典型性，��记录��L��以返回值的形式�q�回。以下是调用该存储过�E�的ASP代码(具体的分��|��作略�?:

    '**调用分页存储�q�程**
    DIM pagenow,pagesize,pagecount,recordcount
    DIM MyComm,MyRst
    pagenow = Request("pn")
    '自定义函数用于验证自然数
    if CheckNar(pagenow) = false then pagenow = 1
    pagesize = 20
    Set MyComm = Server.CreateObject("ADODB.Command")
    with MyComm
       .ActiveConnection = MyConStr          'MyConStr是数据库�q�接字串
       .CommandText      = "getUserList"     '指定存储�q�程�?/FONT>
       .CommandType      = 4                 '表明�q�是一个存储过�E?/FONT>
       .Prepared         = true              '要求��SQL命��o先行�~�译
       '�q�回�?记录总量)
       .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)
       Set MyRst = .Execute
    end with
    if MyRst.state = 0 then        '未取到数据，MyRst关闭
       recordcount = -1
    else
       MyRst.close    '注意�Q�若要取得参数��|��需先关闭记录集对象
       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 "参数错误"
    end if

    对于以上代码�Q�只有一炚w��要说明：同时�q�回记录集和参数�Ӟ��若要取得参数�Q�需先将记录集关闭，使用记录集时再将其打开�?/P>

    7. �q�回多个记录集的存储�q�程
    本文最先介�l�的是返回记录集的存储过�E�。有时候，需要一个存储过�E�返回多个记录集�Q�在ASP中，如何同时取得�q�些记录集呢�Q��ؓ了说明这一问题�Q�在userinfo表中增加两个字段�Q�usertel及usermail�Q��ƈ讑֮�只有��d��用户可以查看�q�两��内宏V�?/P>
    /*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
       --若�ؓ��d��用户�Q�取usertel及usermail
       if @checklogin=1
          select usertel,usermail
             from dbo.[userinfo]
             where userid=@userid
       return
    end
    go

    以下是ASP代码�Q?/P>
    '**调用�q�回多个记录集的存储�q�程**
    DIM checklg,UserID,UserName,UserTel,UserMail
    DIM MyComm,MyRst
    UserID = 1
    'checklogin()��定义函数�Q�判断访问者是否登�?BR>    checklg = checklogin()
    Set MyComm = Server.CreateObject("ADODB.Command")
    with MyComm
       .ActiveConnection = MyConStr          'MyConStr是数据库�q�接字串
       .CommandText      = "getUserInfo"     '指定存储�q�程�?BR>       .CommandType      = 4                 '表明�q�是一个存储过�E?/FONT>
       .Prepared         = true              '要求��SQL命��o先行�~�译
       .Parameters.append .CreateParameter("@userid",3,1,4,UserID)
       .Parameters.append .CreateParameter("@checklogin",11,1,1,checklg)
       Set MyRst = .Execute
    end with
    Set MyComm = Nothing

    '从第一个记录集中取�?/FONT>
    UserName = MyRst(0)
    '从第二个记录集中取�?/FONT>
    if not MyRst is Nothing then
       Set MyRst = MyRst.NextRecordset()
       UserTel = MyRst(0)
       UserMail = MyRst(1)
    end if
    Set MyRst = Nothing

    以上代码中，利用Recordset对象的NextRecordset�Ҏ��Q�取得了存储�q�程�q�回的多个记录集�?/P>

    ��x��Q�针对ASP调用存储�q�程的各�U�情况，本文已做了较为全面的说明。最后说一下在一个ASP�E�序中，调用多个存储�q�程的不同方法�?BR>    在一个ASP�E�序中，调用多个存储�q�程臛_��有以下三�U�方法是可行的：
    1. 创徏多个Command对象

    DIM MyComm
    Set MyComm = Server.CreateObject("ADODB.Command")
    '调用存储�q�程一
    ......
    Set MyComm = Nothing
    Set MyComm = Server.CreateObject("ADODB.Command")
    '调用存储�q�程�?/FONT>
    ......
    Set MyComm = Nothing
    ......

    2. 只创��Z��个Command对象�Q�结束一�ơ调用时�Q�清除其参数

    DIM MyComm
    Set MyComm = Server.CreateObject("ADODB.Command")
    '调用存储�q�程一
    .....
    '清除参数(假设有三个参�?
    MyComm.Parameters.delete 2
    MyComm.Parameters.delete 1
    MyComm.Parameters.delete 0
    '调用存储�q�程二�ƈ清除参数
    ......
    Set MyComm = Nothing

    此时要注意：清除参数的顺序与参数声明的顺序相反，原因嘛，我也不知道�?/P>
    3. 利用Parameters数据集合的Refresh�Ҏ��重置Parameter对象

    DIM MyComm
    Set MyComm = Server.CreateObject("ADODB.Command")
    '调用存储�q�程一
    .....
    '重置Parameters数据集合中包含的所有Parameter对象
    MyComm.Parameters.Refresh
    '调用存储�q�程�?/FONT>
    .....
    Set MyComm = Nothing

    一般认为，重复创徏对象是效率较低的一�U�方法，但是�l�测�?��试工具为Microsoft Application Center Test)�Q�结果出人意料：
    �Ҏ��2 >= �Ҏ��1 >> �Ҏ��3
    �Ҏ��2的运行速度大于�{�于�Ҏ��1(最多可�?%左右)�Q�这两种�Ҏ��的运行速度�q�大于方�?(最多竟高达130%)�Q�所以徏议在参数多时�Q�采用方�?�Q�在参数较少�Ӟ��采用�Ҏ��2�?/P>
    �׃��一天的旉��Q�终于把我对于在ASP中调用存储过�E�的一些粗��的�l�验形成了文字。这其中�Q�有些是我只知其果而不明其因的�Q�有些可能是错误的，但是�Q�这些都是经�q�我亲��n实践的。各位看官批判地接受吧。有不同意见�Q�希望一定向我指明，先谢了�?/P>

lovajava_ye 2006-02-22 10:26 发表评论

国产成人A亚洲精V品无码,久久精品7亚洲午夜a,亚洲精品视频免费看

手把手教你制作Google Sitemap(详细制作教程和协议讲�?