[求助]十天学会ASP第八天出问题了！ - ASP技术论坛

楼主

问题点数：0 回复次数：24

[求助]十天学会ASP第八天出问题了！

请各位高手指点迷津，我在运行文件时出现在了如下问题：

错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
/biaodan8.asp, 第 19 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)

页：
GET /biaodan8.asp
源程序如下：
id=request.querystring("id")
if id<>"" then
exec="select * from guestbook where id="&id
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
end if
%>
<form name="form1" method="post" action="modifysave.asp">
<table width="748" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>aa</td>
<td>bb</td>
</tr>
<tr>
<td>
<input type="text" name="aa" value="<%=rs(aa)%>">
</td>
<td>
<input type="text" name="bb" value="<%=rs("bb")%>">
<input type="submit" name="Submit" value="提交">
<input type="hidden" name="id" value="<%=request.querystring("id")%>">
</td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

搜索更多相关主题的帖子: ASP　学会　

第 2 楼

得分:0

第19行是哪一行？

我是新手,但我很虚心,对我发的问题请不要取笑,谢谢

第 3 楼

得分:0

看起来没错～

第 4 楼

得分:0

if id<>"" then
exec="select * from guestbook where id="&id
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
end if
如果ID等于空时，红色部分是不会出错，但后面的程序就会出错了，<%=rs(aa)%>，ID 空时 RS 就没有定义

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

第 5 楼

得分:0

同上

Microsoft VBScript 运行时错误 (0x800A000D)

错误引用rs变量(rs对像已关闭或未定义)

这些错误码很有用，建议了解一下！

易点通WEB源http://www..cn/ QQ:14339095 E-mail:adleyliu@

第 6 楼

得分:0

如果ID等于空时，红色部分是不会出错，但后面的程序就会出错了，<%=rs(aa)%>，ID 空时 RS 就没有定义
那这个问题怎么解决,因为
if id<>"" then
exec="select * from guestbook where id="&id
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
end if
这一段原来的程序是这样子
exec="select * from test where id="&request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
但出现了Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
/biaodan8.asp, 第 6 行
这个错误换成原来的句子解决了，出现了第十九行错误
<input type="text" name="aa" value="<%=rs(aa)%>">
怎么办呀?

第 7 楼

得分:0

错误的原因是：id的值空了，想想
exec="select * from guestbook where id="&id
如果id的值空了，上面那句就变成
select * from guestbook where id=
这样不错才怪

加了if id<>"" then后，因为id是空的，红色的那三句就不执行了，rs自然也不存在，
所以在后面用到rs(aa)等就会出错。

第 8 楼

得分:0

那应该怎么改？不好意思哦，因为我刚学,什么都不会！

第 9 楼

得分:0

id=request.querystring("id")
if id<>"" then
exec="select * from guestbook where id="&id
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<form name="form1" method="post" action="modifysave.asp">
<table width="748" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>aa</td>
<td>bb</td>
</tr>
<tr>
<td>
<input type="text" name="aa" value="<%=rs(aa)%>">
</td>
<td>
<input type="text" name="bb" value="<%=rs("bb")%>">
<input type="submit" name="Submit" value="提交">
<input type="hidden" name="id" value="<%=request.querystring("id")%>">
</td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>

把end if放在最后就不会错
上一个页的url是什么样的？
应该是这样子才对
test.asp?id=1

第 10 楼

得分:0

谢谢你，现在没错误了出来，但是页面是空白的，我先看看modifysave.aspe 有没有问题，另外我还有一个问题请教

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
/guessbook.asp, 第 17 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)

页：
GET /guessbook.asp
其中guessbook.asp的程序如下：
<html>
<head>
<tetle>lyb</title>
</head>
<body bgcolor="#ccccf0">
<p>留言簿</p>
<form METHOD="POST" action="guestbook.asp">
<input type="hidden" name="task" value="insert">
<p>姓名：<input TYPE="text" size="20" NAME="xm"></p>
<p>留言：</p>
<p><textarea ROWS="5" COLS="80" NAME="ly"></textarea></p>
<p><input TYPE="submit" VALUE="记入留言簿" NAME="B1"><input TYPE="reset"
VALUE="复原" NAME="B2" ></p>
</form>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "lybdsn"," "," "
if Request("task")="insert" then
xm=Request("xm")
sj=Date()
sj=sj&" "&Hour(Time())&":"&Minute(Time())
If Request("ly")=" " then
Response.write("留言不能不输吧")
Response.end
else
ly=Request("ly")
end if
sql="INSERT INTO lyb(xm,sj,ly) VALUES('"& xm & "','" & sj & "','" & ly & "')"
conn.execute sql
end if
sql="SELECT * FROM lyb ORDER BY sj DESC"
Set rs=conn.Execute(sql)%>
<% on Error Resume Next
rs.MoveFirst
do while Not rs.eof%>
<hr>
姓名：<%=Server.HTMLEncode(rs.Fields("xm").Value)%><br>
留于：<%=Server.HTMLEncode(rs.Fields("sj").Value)%><br>
留言：<%=Server.HTMLEncode(rs.Fields("ly").Value)%>
<% rs.MoveNext
loop %>
</body>
</html>
听说是因为查询刷新不了的问题，我添加了一个匿名用户：IUR_RCY,而且也将wwwroot作了共享，还是解决不了,网上很多资料说行但我设置不能用，我用的是2000操作系统