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

楼主

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

[求助]十天学会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

如果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)%>">
怎么办呀?

第 3 楼

得分:0

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

第 4 楼

得分: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操作系统

第 5 楼

得分:0

高手，继续请教，第八天的程序，运行后出现的是空白页运行那个modifysave.asp，也是空白页，怎么回事呀？

第 6 楼

得分:0

modifysave.asp程序如下
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("test.mdb")
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,3
rs("aa")=request.form("aa")
rs("bb")=request.form("bb")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>

第 7 楼

得分:0

呵呵,在我看来你真的很厉害哦

第 8 楼

得分:0

[QUOTE]１７行：conn.Open "lybdsn"," "," "
这写的是什么？没见过
应该这样吧
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(path) 'path是你数据库的路径[/QUOTE]
我将这句改成了
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(d:\input\wwwroot)
出现这个错误
Microsoft VBScript 编译器错误 (0x800A03EE)
/guessbook.asp, 第 17 行, 第 74 列
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(d:\inetput\wwwroot)

第 9 楼

得分:0

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
/guessbook.asp, 第 17 行
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(d:\inetput\wwwroot) 'path是你数据库的路径
出现这个问题
Microsoft VBScript 编译器错误 (0x800A03EE)
/guessbook.asp, 第 17 行, 第 74 列
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(d:\inetput\wwwroot)

第 10 楼

得分:0

我的数据库是放在“D:\inetput\wwwroot”下面
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(“d:\inetput\wwwroot”)
出现了这个错误：
错误类型：
Server.MapPath(), ASP 0172 (0x80004005)
MapPath 方法的路径参数必须是一个虚拟路径。使用了一个实际的路径。
/guessbook.asp, 第 17 行
我搞不懂我的虚拟路径应该是什么？