• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    几例在ASP存储过程的使用方法
    一、使用Command对象和Parameter对象传递参数 本讲将主要使用Microsoft SQL Server7.0数据库,先建立一个连接文件AdoSQL7.asp备用,以后用到时不再特别说明。

    % ''AdoSQL7.asp

    Option Explicit

    Response.Expires = 0


    ''第一部分: 建立连接

    Dim Cnn, StrCnn

    Set Cnn = Server.CreateObject("ADODB.Connection")

    StrCnn = "Provider=sqloledb; User ID=sa; Password=; Initial Catalog=pubs; Data Source=ICBCZJP"

    Cnn.Open StrCnn

    %>

    注意:自己使用时要将Data Source设为你的数据库服务器所在的机器名。

    另外,以前使用Access数据库时,用Microsoft Access97可以很方便的查看字段及数据,而使用SQL Server数据库,尤其是并不在数据库服务器,而是在另一台机器上调试ASP脚本时,要查看字段及数据便需另外安装工具,这里向你提供一个工具:Msqry32.exe(Microsoft Query),这个文件随Office97安装,一般位于目录“Microsoft Office\Office”下。

    例wuf70.asp:

    %@ LANGUAGE="VBSCRIPT" %>

    !--#include file="AdoSQL7.asp"-->

    !--#include file="adovbs.inc"-->

    % '' wuf70.asp

    Dim cmdTest, prmTest, rsTest

    ''创建 Command 对象

    Set cmdTest = Server.CreateObject("ADODB.Command")

    ‘Recordset、Command对象都可以通过ActiveConnection属性来连接Connection对象

    cmdTest.ActiveConnection = Cnn

    ''SQL命令 - 含两个参数, 用 ? 表示

    cmdTest.CommandText = "Update jobs Set job_desc = ? Where job_id = ?"

    ''设命令类型为 SQL 语句

    cmdTest.CommandType = adCmdText

    ''Prepared 属性决定是否将 SQL 命令先行编译,将其设为True,可以加快运行

    cmdTest.Prepared = True


    ''创建 Parameter 对象

    Set prmTest=cmdTest.CreateParameter("job_desc",adVarChar,adParamInput,50,"网络")

    ''将数据追加到 Parameters 数据集合中

    cmdTest.Parameters.Append prmTest


    Set prmTest = cmdTest.CreateParameter("job_id",adSmallInt,adParamInput,,"12")

    cmdTest.Parameters.Append prmTest


    ''执行修改 – 不需要返回结果,简单的使用cmdTest.Execute 就可以了

    cmdTest.Execute


    ''重新设置参数运行 – 便可修改另一条数据

    cmdTest.Parameters("job_id") = "1"

    cmdTest.Parameters("job_desc") = "测试"

    cmdTest.Execute


    ''重新设置参数运行

    cmdTest("job_id") = "14"

    cmdTest("job_desc") = "金融"

    cmdTest.Execute


    Set rsTest = Cnn.Execute("Select job_id,job_desc From jobs")

    While Not rsTest.EOF

    Response.Write rsTest(0)  rsTest(1)  " "

    rsTest.MoveNext

    Wend


    Cnn.close : Set prmTest = Nothing

    Set cmdTest = Nothing: Set Cnn = Nothing

    %>

    分析:

    1.Command对象的CreateParameter方法用来为SQL命令或存储过程建立参数对象,共有五个参数(五个参数都是可选项):

    第一个参数:参数对象的名称;

    第二个参数:参数对象的数据类型,种类太多,还是参考ADO帮助吧,这里adVarChar(字符串值)、adSmallInt(2 字节带符号整型);

    第三个参数:参数类型。可以是:adParamInput(指示输入参数)、adParamOutput( 指示为输出参数)、adParamReturnValue(指示为返回值)、adParamUnknown(指示参数类型无法确定)、adParamInputOutput(指示为输入/输出参数);

    第四个参数:参数的数据长度,最好指定为与数据库中对应字段长度相等,以免使用时出错,尤其数据类型为VarChar时,如果是整型或日期型则不必提供该值;

    第五个参数:参数的设置初值。

    2.cmdTest.Parameters.Append方法增加一个Parameter对象到Parameters数据集合中,从本例中也可看到如何使用多个参数。

    3.从本例可以看到,只需要重新设定输入参数,便可执行对其他数据的修改,非常方便,这一思路在编程时也是最常用的方法之一。

    4.重设参数,既可以使用cmdTest.Parameters,也可以省略为cmdTest("job_id")。


    二、在ASP中使用存储过程

    什么是存储过程(存储过程位于数据库服务器中,是一个SQL语句的集合,可包含一个或多个SQL语句)、怎样创建存储过程不属于本讲座的内容,本讲座主要是举例说明在ASP中如何调用存储过程。

    使用存储过程的好处是大大的,存储过程比在ASP脚本中运行SQL命令效率更高;可以提高整体性能并减轻网络负载(减少了在网络服务器和数据服务器之间的交互);可以优化ASP代码和增强代码灵活性等等。

    (一)在存储过程中使用输入参数

    本例中使用的存储过程为SQL Server7.0自带的“byroyalty”,里面的一条SQL语句非常简单,无非是多了一个CREATE PROCEDURE byroyalty,并且有一个输入参数为@percentage:

    CREATE PROCEDURE byroyalty @percentage int

    AS

    select au_id from titleauthor

    where titleauthor.royaltyper = @percentage

    serve by www.cidu.net

    例wuf71.asp

    % @LANGUAGE = VBScript %>

    !--#include file="AdoSQL7.asp"-->

    !--#include file="adovbs.inc"-->

    % '' wuf71.asp

    Dim cmdTest, prmTest, rsTest

    Set cmdTest = Server.CreateObject("ADODB.Command")

    cmdTest.CommandText = "byroyalty" ''存储过程名

    ''设命令类型为 存储过程

    cmdTest.CommandType = adCmdStoredProc


    ''创建 Parameter 对象

    Set prmTest = Server.CreateObject("ADODB.Parameter")

    ‘Type属性对应wuf70.asp中的第二个参数

    prmTest.Type = adInteger ''4 字节的带符号整型

    ‘Direction属性对应wuf70.asp中的第三个参数

    prmTest.Direction = adParamInput

    ‘Value属性对应wuf70.asp中的第五个参数

    prmTest.Value = 30

    cmdTest.Parameters.Append prmTest


    Set cmdTest.ActiveConnection = Cnn

    ‘需要返回一个记录集,故使用Set rsTest = cmdTest.Execute

    Set rsTest = cmdTest.Execute


    While Not rsTest.EOF

    Response.Write rsTest(0)  " "

    rsTest.MoveNext

    Wend


    Cnn.close

    Set rsTest = Nothing : Set prmTest = Nothing

    Set cmdTest = Nothing: Set Cnn = Nothing

    %>

    CommandText属性既可以指定SQL命令,也可以指定为存储过程或者是表名称。

    在本例中,创建Parameter对象与wuf70.asp略有不同,其实仔细看看,意思也是差不多的,本例还有两个属性未用:prmTest.Name、prmTest.Size,加上Type、Direction和Value,对应于wuf70.asp中的五个参数。


    (二)使用输出参数

    从数据库表中取得一个记录或计算一个值时,需要使用返回输出参数的存储过程。为了举例,先在SQL Server的pubs库中新建一存储过程OUTemploy,该存储过程需要输入两个日期,然后输出一个最大值。

    CREATE PROCEDURE OUTemploy

    (

    @job_lvl tinyint OUTPUT,

    @hire_date1 datetime, 

    @hire_date2 datetime 

    )

    AS

    select @job_lvl = MAX(job_lvl) from employee

    where hire_date >= @hire_date1 and hire_date = @hire_date2

    有多种方法可以建立存储过程:

    1.使用Microsoft SQL Server的Enterprise Manager,打开后在左边的树目录中依次打开:Console Root – Microsoft SQL Servers – SQL Server Group – ICBCZJP(Windows NT) – databases – pubs – stored procedure – New stored procedure,输入存储过程后,还可对其进行语法检测;

    2.使用Microsoft SQL Server的Query Analyzer,先连接数据库服务器并选择pubs数据库。输入上面的存储过程并点击Execute Query(或按F5);

    3.使用VB6.0,打开菜单“视图”/“数据视图窗口”后,右键单击“数据链接”/“新建数据链接”;

    4.使用ASP脚本创建存储过程,例wuf75.asp:

    % @LANGUAGE = VBScript %>

    !--#include file="AdoSQL7.asp"-->

    !--#include file="adovbs.inc"-->

    % '' wuf75.asp

    Dim StrSQL

    ''注:  Chr(10)  Chr(13) 完全可以不要, 主要是为了好看

    StrSQL="CREATE PROCEDURE OUTemploy ( @job_lvl tinyint OUTPUT, "  Chr(10)  Chr(13) _

    "@hire_date1 datetime, @hire_date2 datetime) AS "  Chr(10)  Chr(13) _

    "select @job_lvl = MAX(job_lvl) from employee " _

    "where hire_date >= @hire_date1 and hire_date = @hire_date2"


    Cnn.Execute StrSQL

    Response.Write "创建存储过程成功"

    Cnn.close: Set Cnn = Nothing

    %>

    存储过程创建后,除了使用菜单,你还可以使用SQL语句“Drop Procedure OUTemploy”删除它。

    例wuf72.asp – 把所需要的输入参数送入存储过程并取得输出结果。

    % @LANGUAGE = VBScript %>

    !--#include file="AdoSQL7.asp"-->

    !--#include file="adovbs.inc"-->

    % '' wuf72.asp

    Dim cmdTest, prmTest

    Set cmdTest = Server.CreateObject("ADODB.Command")

    cmdTest.ActiveConnection = Cnn

    cmdTest.CommandText = "OUTemploy" ''存储过程名

    cmdTest.CommandType = adCmdStoredProc


    ''创建 Parameter 对象

    Set prmTest = cmdTest.CreateParameter("job_lvl",adTinyInt,adParamOutput)

    cmdTest.Parameters.Append prmTest

    ''adTinyInt - 1 字节带符号整型 

    ''adDbDate - 日期值 (yyyymmdd)


    Set prmTest = cmdTest.CreateParameter("hiredate1",adDBDate,adParamInput,,"1993-05-09")

    cmdTest.Parameters.Append prmTest


    Set prmTest = cmdTest.CreateParameter("hiredate2",adDBDate,adParamInput,,"1994-02-01")

    cmdTest.Parameters.Append prmTest


    cmdTest.Execute

    ‘下面三种表达方式意思一样

    Response.Write cmdtest("job_lvl")  " "

    Response.Write cmdTest.Parameters("job_lvl")  " "

    Response.Write cmdTest.Parameters("job_lvl").Value


    Cnn.close

    Set prmTest = Nothing

    Set cmdTest = Nothing: Set Cnn = Nothing

    %>

    (三)使用返回代码参数

    用Return语句可以从存储过程返回不同的返回代码,如下面存储过程先取得一个记录集,然后,若有叫Margaret的雇员则返回1,否则返回0。

    Create Procedure Returnemploy

    AS

    select emp_id, fname from employee

    If Exists(Select fname From employee Where fname=''Margaret'')

    Return(1)

    Else

    Return(0) 

    例wuf73.asp

    % @LANGUAGE = VBScript %>

    !--#include file="AdoSQL7.asp"-->

    !--#include file="adovbs.inc"-->

    % '' wuf73.asp

    Dim cmdTest, prmTest, rsTest

    Set cmdTest = Server.CreateObject("ADODB.Command")

    cmdTest.ActiveConnection = Cnn

    cmdTest.CommandText = "Returnemploy" ''存储过程名

    cmdTest.CommandType = adCmdStoredProc


    Set prmTest = cmdTest.CreateParameter("ReturnValue",adInteger,adParamReturnValue)

    cmdTest.Parameters.Append prmTest


    Set rsTest = cmdTest.Execute()

    While Not rsTest.EOF

    Response.Write rsTest(0)  " ][ "  rsTest(1)  " "

    rsTest.MoveNext

    Wend

    rsTest.Close: Set rsTest = Nothing

    ''返回 cmdtest("ReturnValue") 之前,必须先关闭rsTest, 否则结果错误


    If cmdtest("ReturnValue") = 1 Then

    Response.Write "有该雇员"

    Else

    Response.Write "无该雇员"

    End If 


    Cnn.close

    Set prmTest = Nothing

    Set cmdTest = Nothing: Set Cnn = Nothing

    %>


    三、如何处理大数据

    这里的“大数据”主要是指Text(大文本)和image(图像)字段,采用前面所述的方法无法正确获取其数据。必须首先使用Size = rsTest(0).ActualSize获取字段值的实际长度,然后再使用rsTest(0).GetChunk(Size)取得数据。在实际使用过程中,由于这些字段都比较大,为了节省、合理使用服务器资源,一般均采取分段读取的方法。例wuf74.asp:

    % @LANGUAGE = VBScript %>

    !--#include file="AdoSQL7.asp"-->

    !--#include file="adovbs.inc"-->

    % '' wuf74.asp

    Dim StrSQL, rsTest

    ‘pr_info 是一个文本字段

    StrSQL = "Select pr_info,pub_id From pub_info"

    Set rsTest = Cnn.Execute(StrSQL)


    Dim BasicSize, BeginSize, LText

    Do While Not rsTest.EOF 

    Response.Write rsTest(1)  " "

    ‘每次读取 1024字节

    BasicSize = 1024

    BeginSize = 0

    While BeginSize rsTest(0).ActualSize

    LText = rsTest(0).GetChunk(BasicSize)

    BeginSize = BeginSize + BasicSize

    ‘逐段输出到客户端

    Response.Write LText

    Wend


    Response.Write ""

    rsTest.MoveNext 

    Loop


    Cnn.close

    Set rsTest = Nothing: Set Cnn = Nothing

    %>

    在本例中,每次最多读取1024字节,分多次读完。反之,如果将大数据写至数据库中,方法类似上面,不过不是使用GetChunk方法,而是使用AppendChunk方法:

    rsTest(0).AppendChunk Ltext


    注意:最后介绍一个关于SQL Server数据库的小技巧,如果你遇到过这种情况:数据库的中文数据显示出来均是乱码,请不要惊慌。你只要去我的站点下载sqlsrv32.dll覆盖“C:\Windows\System”下的同名文件就可以了。问题发生的源头是SQL Server驱动程序,典型的情况发生在Windows98第二版(SQL Server驱动程序的版本号为3.70.06.23)或Windows2000中或者安装了MDAC2.5(版本号为3.70.08.20)。
    上一篇:SQL Server--怎样用ADO在SQL SERVER中建库,建表
    下一篇:用ASP+XML打造留言本
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    几例在ASP存储过程的使用方法 几例,在,ASP,存储,过程,的,