ASP 运行时出现Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: '' /index.asp，行 16
ASP运行时出现MicrosoftVBScript运行时错误错误'800a01a8'缺少对象:''/index.asp，行16帮忙看看代码有什么问题代码如下<%@LANG...
ASP 运行时出现Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: '' /index.asp，行 16
帮忙看看代码有什么问题
代码如下
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--#include file="inc/conn.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
dim rs,sql
set rs=server.CreateObject("adodb.recordset") 'recirdset是记录集 虚拟的表
sql="Select * From admin" '查询语句
rs.open sql,conn,1,1 '打开数据库，1，1只有读取权限
do while not re.eof
response.Write(rs("name"))
response.Write("<br />")
rs.movenext
loop
%>
</body>
</html> 展开
帮忙看看代码有什么问题
代码如下
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--#include file="inc/conn.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
dim rs,sql
set rs=server.CreateObject("adodb.recordset") 'recirdset是记录集 虚拟的表
sql="Select * From admin" '查询语句
rs.open sql,conn,1,1 '打开数据库，1，1只有读取权限
do while not re.eof
response.Write(rs("name"))
response.Write("<br />")
rs.movenext
loop
%>
</body>
</html> 展开
3个回答
展开全部
rs.open sql,conn,1,1 '打开数据库，1，1只有读取权限
do while not re.eof
response.Write(rs("name"))
response.Write("<br />")
rs.movenext
loop
上面改成下面这样 注意 你的RS 有一处写出RE了 如果觉得可以，就给个采纳
rs.open sql,conn,1,1 '打开数据库，1，1只有读取权限
if rs.eof or rs.bof then
response.write("参数错误，没有记录集")
response.end()
else
while not rs.eof
response.Write(rs("name"))
response.Write("<br />")
rs.MoveNext
wend
end if
rs.close
set rs = nothing
do while not re.eof
response.Write(rs("name"))
response.Write("<br />")
rs.movenext
loop
上面改成下面这样 注意 你的RS 有一处写出RE了 如果觉得可以，就给个采纳
rs.open sql,conn,1,1 '打开数据库，1，1只有读取权限
if rs.eof or rs.bof then
response.write("参数错误，没有记录集")
response.end()
else
while not rs.eof
response.Write(rs("name"))
response.Write("<br />")
rs.MoveNext
wend
end if
rs.close
set rs = nothing
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
do while not re.eof
写错了，是 rs.eof
写错了，是 rs.eof
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
do while not re.eof
改成 do while not rs.eof
改成 do while not rs.eof
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
