本讲将主要使用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" %>

<% '' 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

''执行修改