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

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如下：

<%
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如下：


<%
'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() 按你说的还是不行，和上面一样的错误!!!

回复赞