<%
'创建数据库连接
'Set DataConn = Server.CreateObject("ADODB.Connection")
'DataConn.Open "Driver=Microsoft Access Driver (*.mdb);DBQ=" &Server.MapPath("zonghe.mdb")

'Set cmdTemp = Server.CreateObject("ADODB.Command")
'Set rstContacts = Server.CreateObject("ADODB.Recordset")
Set DataConn = Server.CreateObject("ADODB.Connection")
Set RrstContacts = Server.CreateObject("ADODB.Recordset")
DataConn.Open "Driver=Microsoft Access Driver (*.mdb);DBQ=" &Server.MapPath("zonghe.mdb")
sql = "SELECT * FROM Contacts where ContactID=" & Request("yuangong") & ""
'cmdTemp.CommandType = 1
'Set cmdTemp.ActiveConnection = DataConn

rstContacts.Open sql,, 1, 4 /老是在这里提示错误

If rstContacts.EOF Then
strNotes = "Not Found"
strName=""
strContactID=""
strpass=""
Else
strName = rstContacts ("Name")
strNotes = rstContacts ("Notes")
strContactID=rstContacts ("ContactID")
strpass=rstContacts("pass")
End if
rstContacts.Close
DataConn.Close
'输出MIME格式的内容
Response.write "Name=" & Server.HTMLEncode(strName) & "&"
Response.write "ContactID=" & Server.URLEncode(strContactID) & "&"
Response.write "Notes=" & Server.URLEncode(strNotes) & "&"
Response.write "pass=" & Server.URLEncode(strpass) & "&"


%>
从外部获得一个变量（yuangong),查询zonghe.mdb数据库，以MIM格式返回查询结果。
如果再能加上密码判断就更好了。：）

Microsoft VBScript 运行时错误 (0x800A01A8)
/getdata3.asp, 第 16 行

rstContacts.Open sql, 1, 4