ASP
各位我写的一个留言要版，老是报错请给指点指点!!谢谢(比较急、在线等)
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区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>
相关推荐
写了一个初级的五子棋，请各位大哥指导
五子棋小程序,用二维数组存储棋盘。程序考虑多种输入报错问题。我是初学者，发此程序让各位高手指导一下。
android非常好的在线视频播放器源码(包含在线音频播放源码)_更改版
这是我前几天上传的资源,因为代码中一个bug报错导致不能缓存视频,当时没发现就上传上来了,后来发现又删除不了,只有重新在上传一次,为此我真诚的道歉! 这是资源描述哈:最近项目需要,因此研究了下在线视频音频播放,本人参考了两个前人写的源码,在此基础上实现了视频在线播放,同时后台断点缓存,缓存完毕后自动切换到本地视频播放,这样可以保证流畅性,而且还美化了播放按钮和进度条哦!下载后绝对可用,绝不后悔,当然,视频资源也必须支持http流式播放才行哈!
java留言板
最近公司转java ，学习java时有一个小作业，就是这个留言板 。自己做了这个简单的留言板 ，实现了获取全部留言和发布留言功能 ，仅此而已 还有很多东西没有考虑到，我是初学者，因此这个也只适合于初学者。不喜勿喷 注意☆☆：如果项目中jquery文件报错不用在意，那是编译器自动检查js代码 jquerymini代码本来就是压缩过的 因此不影响项目正常运行
jenkins发版报错Host key verification failed
jenkins发版报错Host key verification failed. jenkins发版报错Host key verification failed. jenkins发版报错Host key verification failed. jenkins发版报错Host key verification failed. jenkins发版报错Host key verification failed. jenkins发版报错Host key verification failed. jenkins发版报错Host key verification failed. 生产环境多用户账号情况下，Jenkins主机密钥对验证失败的解决办法，详尽。 现实生产环境遇到的问题，多服务器环境下。 Jenkins发版遇到的那些问题 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
jsp+javabean留言簿
1支持JUBB(类似UBB)<br>2留言数据的合法性检测,如EMAIL,主页地址<br>3支持繁体字符的输入<br>4出错页面美化
