确实是没得办法, 自己是asp新手. 最近在搞分页时,碰见一个错误,但确实找不到错误在那里? 也不明白!
如果那位大侠知道就回复下吧.谢谢! 如果你有更好的代码,也请回复下
[em01] 谢谢!
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="cn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from reply order by id desc"
%>
<html>
<head>
<title>留言本</title>
</head>
<body background="bookbg.gif" topmargin=0>
<div align="center"><img src="untitled.bmp"></div>
<%
rs.open sql,cn,1,1
dim pagecount,total
rs.pagesize=5 '每页显示的留言数
total=rs.recordcount
pagecount=rs.pagecount
if not isempty(request("page")) then
page=cint(request("page"))
else
page=1
rs.absolutepage=page
end if
if rs.bof and rs.eof then
response.write "<center><h3>还没任何留言</h3></center>"
else
do while not rs.eof and rs.pagesize>0
%>
<div align="center"><table width="700" border=1 bordercolor="#00FF00">
<tr><td width=100><%=rs("name")%></td><th>留言内容:</th></tr>
<tr><td><a href="mailto:<%=rs("email")%>">邮箱</a></td><td rowspan=2><%=rs("content")%></td></tr>
<tr><td><%=rs("qq")%></td></tr></table>
</div>
<%
rs.pagesize=rs.pagesize-1
rs.movenext
loop
end if
if page=1 and not page=pagecount then
response.write "首页 上一页<a href="&guestbook.asp?page=page+1&"> 下一页</a><a href="&page=pagecount&"> 末页</a>"
elseif page<>1 and not page=pagecount then
response.write "<a href="&guestbook.asp?page=1&">首页</a><a href="&guestbook.asp?page=page-1&"> 上一页</a>"
response.write "<a href="&guestbook.asp?page=page+1&"> 下一页</a><a href="&guestbook.asp?page=pagecount&"> 末页</a>"
elseif page=pagecount then
response.write "<a href="&guestbook.asp?page=1&">首页</a><a href="&gusetbook.asp?page=page-1&"> 上一页</a>下一页 末页"
end if
cn.close
set cn=nothing
rs.close
set rs=nothing
%>
<p>
<div align="center">
<form method="post" action="guestbookadd">
<table><tr><td width="201">姓名:<input type="text" name="name" size=15></td><td width="121">qq:<input type="text" name="qq" size=10></td></tr>
<tr><td colspan=2>个人主页:<input type="text" name="homepage"></td></tr>
<tr><td colspan=2>邮箱:<input type="text" name="email"></td></tr>
<tr>
<td colspan=2><textarea name="content" clos=300 rows=4></textarea></td>
</tr>
</table>
<div align="center"><input type="submit" value="提交"> <input type="reset" value="重置">
</form></div>
</body>
</html>
用iis 浏览时,ie提示 :
Microsoft VBScript 编译器错误
错误 '800a0408'
无效字符
/my website/guestbook.asp，行 43
response.write "首页 上一页<a href="&guestbook.asp?page=page+1&"> 下一页</a><a href="&page=pagecount&"> 末页</a>"
------------------------------------^
