几例在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") = "金融"