Question

ASP提示 缺少对象: ''

Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: ''

/UserSave.asp，行 33

附代码：

<%
Dim sql,name,pass,HVrs '定义变量
'从表单中读取用户名数据，使用Trim()函数去掉字符串前后的空格后，将字符串保存到变量
'name中
name = Trim(Request.Form("name"))
'从表单中读取密码数据，使用Trim()函数去掉字符串前后的空格后，将字符串保存到变量pass中
pass = Trim(Request.Form("pass"))
'如果flag域的值为new，表示添加数据，否则表示修改数据
If Request.Form("flag") = "new" Then
'判断此用户是否存在
Set HVrs = Server.CreateObject("ADODB.RecordSet")
'从数据库中查询name列的值为name的记录
sql = "Select * from hy where name = ' "&name&" ' "
'执行查询，并将结果保存在HVrs中
HVrs.Open sql,conn,1,3
If Not HVrs.EOF Then '不存在满足条件的记录
Response.Write "<script>alert('已经存在此用户名'); _history.back();</script>"
Response.End
Else '存在满足条件的记录
Set Urs = nothing
'在数据库hy中插入新信息
Set Urs = Server.CreateObject("ADODB.RecordSet")
sql = "Select * from hy"
Urs.Open sql,conn,1,3
Urs.addnew '插入新记录
Urs("name") = name '用户名
Urs("pass") = md5(pass) '密码
Urs.update '更新数据库
Urs.Close '关闭RecordSet对象
Set Urs = nothing
End If
End If
HVrs.Close
Set HVrs=nothing
Response.Write "<center>添加成功<br><br><br>"
%>

在线等，谢谢 郁闷不知道哪出错了

Answer 1

Urs.Close '关闭RecordSet对象
Set Urs = nothing

试一下把倒数第七、八行去掉（也就是上面两行），试试

Answer 2

呵呵,因为你没有创建对像当然就没有这个HVrs对象了,你检查一下Request.Form("flag") = "new" 这个参数是否为"new"

Answer 3

<%
Dim sql,name,pass,HVrs '定义变量
'从表单中读取用户名数据，使用Trim()函数去掉字符串前后的空格后，将字符串保存到变量
'name中
name = Trim(Request.Form("name"))
'从表单中读取密码数据，使用Trim()函数去掉字符串前后的空格后，将字符串保存到变量pass中
pass = Trim(Request.Form("pass"))
'如果flag域的值为new，表示添加数据，否则表示修改数据
If Request.Form("flag") = "new" Then
'判断此用户是否存在
Set HVrs = Server.CreateObject("ADODB.RecordSet")
'从数据库中查询name列的值为name的记录
sql = "Select * from hy where name = ' "&name&" ' "
'执行查询，并将结果保存在HVrs中
HVrs.Open sql,conn,1,3
If Not HVrs.EOF Then '不存在满足条件的记录
Response.Write "<script>alert('已经存在此用户名'); _history.back();</script>"
Response.End
Else '存在满足条件的记录
Set Urs = nothing
'在数据库hy中插入新信息
Set Urs = Server.CreateObject("ADODB.RecordSet")
sql = "Select * from hy"
Urs.Open sql,conn,1,3
Urs.addnew '插入新记录
Urs("name") = name '用户名
Urs("pass") = md5(pass) '密码
Urs.update '更新数据库
Urs.Close '关闭RecordSet对象
Set Urs = nothing
End If
HVrs.Close
Set HVrs=nothing
End If
Response.Write "<center>添加成功<br><br><br>"
%>

Answer 4

33行是哪一行啊，告诉我才能帮你解决，因为我也刚学。。。。。。。

Answer 5

md5文件插入了吗