UC知道以下代码出现的问题是：Microsoft VBScript 运行时错误 (0x800A01A8)
来源：百度知道 编辑：UC知道 时间：2024/05/06 10:08:23
Dim author,pass,email,sqlstr '声明变量
author=Request.Form("xm") '接收留言人姓名
pass=Request.Form("mm")
email=Request.Form("yx") '接收留言人email
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from newuser"
rs.open sqlstr.conn,1,3 '注意参数，锁定类型为可修改
rs.addnew
rs("author")=request("xm")
rs("pass")=request("mm")
rs("email")=Request("yx")
rs.update
rs.close
set rs=nothing
conn.Close
set conn=nothing
Response.Redirect "注册成功！" '重定向回显示留言的页面
我想知道我是怎样缺少对象的？
author=Request.Form("xm") '接收留言人姓名
pass=Request.Form("mm")
email=Request.Form("yx") '接收留言人email
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from newuser"
rs.open sqlstr.conn,1,3 '注意参数，锁定类型为可修改
rs.addnew
rs("author")=request("xm")
rs("pass")=request("mm")
rs("email")=Request("yx")
rs.update
rs.close
set rs=nothing
conn.Close
set conn=nothing
Response.Redirect "注册成功！" '重定向回显示留言的页面
我想知道我是怎样缺少对象的？
没有初始化conn
'======对补充的回答======
1、如果您已经做了数据库连接，并且单独保存了一个文件，那么请把这个文件包含了
2、你也可以直接在这个页面写上连接数据库的语句。
SQL数据库连接：
sServer="地址"
SqlUid="用户"
SqlPwd="密码"
SqlDatabase="数据库"
dbConnStr="driver={SQL SERVER};server=" & sServer & ";uid=" & SqlUid & ";"
dbConnStr=dbConnStr & "pwd=" & SqlPwd & ";database=" & SqlDatabase
set conn=Server.CREATEOBJECT("ADODB.CONNECTION")
conn.open(dbConnStr)