求救：ASP 缺少对象: '' 咋整！各位大虾帮帮忙！

来源：百度知道 编辑：UC知道 时间：2024/06/01 22:33:33
我想在文章的显示页面下方加上网友评论，可是总显示下面的错误

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

缺少对象: ''

/view.asp，行 253

253行：<%do while not r6.eof%>

代码：

<%

Submit=request.form("Submit")
if Submit<>"" then
nicheng=request.form("nicheng")
neirong=request.form("neirong")

set r6=server.createobject("adodb.recordset")
s6="Select * from pinglun "
r6.open s6,conn,1,3

r6.addnew
r6("nicheng")=nicheng
r6("neirong")=neirong
r6.update

r6.close
set r6=nothing
conn.close
set conn=nothing
end if
%>

<%do while not r6.eof%>
<table width="100%" border="0" cellspacing="0">
<tr bgcolor="#E1F4EE">

把<%

Submit=request.form("Submit")
if Submit<>"" then
nicheng=request.form("nicheng")
neirong=request.form("neirong")

set r6=server.createobject("adodb.recordset")
s6="Select * from pinglun "
r6.open s6,conn,1,3

r6.addnew
r6("nicheng")=nicheng
r6("neirong")=neirong
r6.update

r6.close
set r6=nothing
conn.close
set conn=nothing
end if
%>
改成
<%

set r6=server.createobject("adodb.recordset")
s6="Select * from pinglun "

Submit=request.form("Submit")
if Submit<>"" then
nicheng=request.form("nicheng")
neirong=request.form("neirong")
r6.open s6,conn,1,3

r6.addnew
r6("nicheng")=nicheng
r6(&qu