各位我写的一个留言要版,老是报错请给指点指点!!谢谢(比较急、在线等)

wsbjava 2004-04-28 02:05:16
错误是:
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

Microsoft JET Database Engine 错误 '80040e10'

至少一个参数没有被指定值。

/notes/adofunctions1.asp,行25
adofunctions1.asp如下:
<!-- #include file="adovbs.inc" -->
<%
Dim objConn
Function GetRecordset(FileName, TableName)
'使用Connection对象打开数据库文件
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath(FileName)
objConn.Open

'从数据表中读取记录并存放在Recordset对象中
Set GetRecordset = Server.CreateObject("ADODB.Recordset")
GetRecordset.Open TableName, objConn, adOpenKeyset, adLockOptimistic, adCmdTable
End Function

Function GetSQLRecordset(strSQL, FileName, TableName)
'使用Connection对象打开数据库文件
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath(FileName)
objConn.Open

'从数据表中读取符合SQL语句的记录并存放在Recordset对象中
Set GetSQLRecordset = Server.CreateObject("ADODB.Recordset")
GetSQLRecordset.Open strSQL, objConn, adOpenKeyset, adLockOptimistic, adCmdText
End Function

Function GetSecureRecordset(FileName, TableName, Password)
'使用Connection对象打开数据库文件
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath(FileName) & _
";Jet OLEDB:Database Password=" & Password
objConn.Open

'从数据表中读取记录并存放在Recordset对象中
Set GetSecureRecordset = Server.CreateObject("ADODB.Recordset")
GetSecureRecordset.Open TableName, objConn, adOpenKeyset, adLockOptimistic, adCmdTable
End Function
%>
主程序是:guestbook.asp如下:

<!-- #include file="adofunctions1.asp" -->
<%
'showpage 子程序负责配置表格颜色及插图,然后显示 pageno参数所指定的页次的所有记记录
sub showpage(objrs,pageno)
redim fig(objrs.pagesize-1),bg(objrs.pagesize-1)
randomized
for i=0 to objrs.pagesize-1
fig(i)=int(rnd*9)+1 &".gif"
next
bg(0)="#D9D9FF"
bg(1)="#FFCAEE"
bg(2)="#FFFFCC"
bg(3)="#B9EEB9"
bg(4)="#B9E9FF"
'显示留言并加以格式化
response.write"<table align='center'width='90%'>"
objrs.absolutepage=pageno
for i=1 to objrs.pagesize
response.Write"<tr bgcolor="&bg(i-1)&">"
response.write"<td width='15%'><img.src="&fig(i-1)&"></td>"
response.write"<td width='85%'>作者:"&objrs("作者")&"<br>主题:"&objrs("主题")&_
"<br>时间:"&objrs("时间")&"<hr>"& objrs("内容")&"</td></tr>"
objrs.movenext
if objrs.eof then exit for
next
response.write"</table>"
end sub
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言薄</title>
</head>
<body>
<center><img src="fig.jpg"></center>
<% dim objrs
'读取“留言板”文件表的所有记录并依照时间递减顺序排列
'strsql="select * from 留言板 order by 时间 desc"
set objrs=getsqlrecordset("select * from 留言板 order by 时间 desc","books.mdb","留言板")

'设置分页大小,您可视实际情况设置其他数值
objrs.pagesize=5
'显示页次超级链接
pageno=request("pageno")
response.write"["
for i=1 to objrs.pagecount
if i=clnt(pageno) then
response.write i &" | "
else
response.write"<a href='guestbook.asp?pageno="&i&"'>"&_
i&"</a>"&" | "'超级连接到guestbook.asp并将页次作为参数传送
end if
next
response.write"]<hr>"
%>
<%
if pageno<>"" then
showpage objrs,1
end if
objrs.close
set objrs=nothing
objconn.close
set objconn=nothing
%>
<hr>
<!-显示输入新留言表单-->
<from method="post"action="post.asp">
<table border="0" width="90%" align="center" cellspacing="0">
<tr height="40" bgcolor="#0084CA" align="center" valign="middle">
<td colspan="2"><font color="#FFFFFF">请在此输入新的留言</font></td>
</tr>
<tr height="40" bgcolor="#D9F2FF"aliggn="center" valign="middle">
<td width="15%">作者</td>
<td width="85%"><input type="text"name="username"size="50"></td>
</tr>
<tr height="40"bgcolor="#84D7FF" align="center"valign="middle">
<td width="15%">主题</td>
<td width="85%"><input type="text" name="title"size="50"></td>
</tr>
<tr height="250"bgcolor="#D9F2FF"align="center" valign="middle">
<td width="15%">内容</td>
<td width="85%"><textarea name="content" cols="50"rows="10"></textarea></td>
</tr>
<tr>
<td colspan="2" height="40" bgcolor="#FFFFFF" align="center">
<input type="submit"value="张贴留言">   
<input type="reset" value="重新输入"></td>

</tr>
</table>
</form>
</body>
</html>
...全文
35 点赞 收藏 13
写回复
13 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
wsbjava 2004-04-29
haigang()改成你说的这个,也有错误,就是加end if这句有错,
回复
haigang 2004-04-29
上面的错误了,看看下面的在if objrs.eof then exit for 下面加一个 end if

"<br>时间:"&objrs("时间")&"<hr>"& objrs("内容")&"</td></tr>"
objrs.movenext
if objrs.eof then exit for
end if
next
response.write"</table>"
end sub
回复
haigang 2004-04-29
把这个改一下试试

"<br>时间:"&objrs("时间")&"<hr>"& objrs("内容")&"</td></tr>"
objrs.movenext
if objrs.eof then
exit for
next
response.write"</table>"
end sub
回复
wsbjava 2004-04-29
大家有空给看看吧!困绕了我一晚上也找不出毛病!!谢谢大家给仔细看看吧!!!
回复
wsbjava 2004-04-29
ttkkyy() 按你说的还是不行,和上面一样的错误!!!
回复
ttkkyy 2004-04-29
GetSQLRecordset.Open strSQL, objConn, adOpenKeyset, adLockOptimistic, adCmdText
改为
GetSQLRecordset.Open strSQL, objConn, 1, 3试试
回复
wsbjava 2004-04-28
QQgenie(妖魔鬼怪)你说的那几个值都是默认值,
回复
QQgenie 2004-04-28
那就先显示一下GetSQLRecordset.Open strSQL, objConn, adOpenKeyset, adLockOptimistic, adCmdText这里的值看看。
回复
wsbjava 2004-04-28
25行,我以前做过其它的程序没有毛病!
回复
QQgenie 2004-04-28
分段调试
回复
bigluckyfox 2004-04-28
GetSQLRecordset.Open strSQL, objConn, adOpenKeyset, adLockOptimistic, adCmdText

行25是这一行吗?
请检查这些是否在数据库里存在,或者是检查这些参数是否正确
回复
wsbjava 2004-04-28
给看看吧!!谢谢啦!!
回复
若白师妹 2004-04-28
沒耐心看阿,so long
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-04-28 02:05
社区公告
暂无公告