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

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>
...全文
67 13 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
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这里的值看看。
QQgenie 2004-04-28
  • 打赏
  • 举报
 回复
分段调试
wsbjava 2004-04-28
  • 打赏
  • 举报
 回复
25行，我以前做过其它的程序没有毛病!
bigluckyfox 2004-04-28
  • 打赏
  • 举报
 回复
GetSQLRecordset.Open strSQL, objConn, adOpenKeyset, adLockOptimistic, adCmdText

行25是这一行吗？
请检查这些是否在数据库里存在，或者是检查这些参数是否正确
wsbjava 2004-04-28
  • 打赏
  • 举报
 回复
给看看吧!!谢谢啦!!
若白师妹 2004-04-28
  • 打赏
  • 举报
 回复
沒耐心看阿,so long
求大佬指点，写的是三国演义中文文本的词频统计，可是总是报错（已解决）
1.首先是这样写的： import jieba txt = open(D:/python程序/threekingdoms.txt,rt,encoding='utf-8').read() words=jieba.lcut(txt) counts={} for word in words: if len(word)==1: continue else: counts[word...
deeplearning4j examples
该部分，网上有许多教程，这里不再赘述，首先，就是安装一个JDK，然后，再安装一个自己喜欢的IED，这里，以eclispe为例 好了，java的运行环境配置好了，接下来，开始配置dl4j的运行环境，它的官网上给了好复杂的...
二叉排序树与平衡二叉树的实现
 假设在含有n(n>=1)个关键字的序列中，i个关键字小于第一个关键字，n-i-1个关键字大于第一个关键字，则由此构造而得的二叉排序树在n个记录的查找概率相等的情况下，其平均查找长度为：  ASL(n,i)=[1+i*(P(i)+1)+...
hive中insert插入一条记录报错，跪求高人指点！！！
在hivve中创建数据库和数据表之后，进行insert操作报错。 hive (myhive)> insert into stu values (1,"zhangsan"); WARNING: Hive-on-MR is deprecated in Hive 2 and may not be available in the future ...
jasp报错_jsp老是报错
我的jsp程序一直报错，清高手指点！谢谢！我的jsp程序一直报错，清高手指点！谢谢！saveuserinfoString classpath="sun.jdbc.odbc.JdbcOdbcDriver";String url="jdbc:odbc:teach";String username = request....
ASP

28,409

社区成员

356,971

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章