我这段翻页代码哪里有错误啊,个位大侠

goldstar3000 2006-05-22 07:14:22
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from web "
rs.open sql,conn,1,1
rs.pagesize=6
page=request("page")
if not rs.eof then
if page="" or page<1 then page=1
rs.absolutepage=page
end if
rs.absolutepage=page

%>
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title></title>
<link href="css/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" bgcolor="#FFFFFF">
<table width="800" border="0">
<tr>
<td width="20%" valign="top"><!--#include file="admin_left.asp"--></td>
<td width="80%" valign="top"><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFCC00" width="510">
<tr>
<td height="24" bgcolor="#FFFFCC">
<p align="center"><b><font color="#FF0000">已验证通过站点列表</font></b></td>
<td width="100" bgcolor="#FFFFCC">
<div align="center"><a href="admin_list_true.asp?action=logo"><font color="#FF0000">首页推荐</font></a></div></td>
<td width="100" bgcolor="#FFFFCC">
<div align="center"><a href="admin_list_true.asp?action=text"><font color="#FF0000">TOP10评选</font></a></div></td>
<td width="100" align="center" bgcolor="#FFFFCC"><a href="admin_list_true.asp?action=neiye"><font color="#FF0000">特别推荐</font></a></td>
</tr>
</table>

<%
if not rs.eof then
for i=1 to rs.pagesize
if rs.eof then exit for %>
<table border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFCC00" width="600">
<tr>
<td width="83" align="center" bgcolor="#EFEFEF">网站对应广告</td>
<td width="60" align="center" bgcolor="#EFEFEF"> </td>
<td width="337" align="center" bgcolor="#EFEFEF"> </td>
<td width="42" align="center" bgcolor="#EFEFEF">
<div align="center">修 改</div></td>
<td width="46" align="center" bgcolor="#EFEFEF">删 除</td>
</tr>

<tr>
<td rowspan="2" align="center"><a href="open.asp?id=<%=rs("id")%>&url=<%=rs("url")%>" target="_blank">
</a></td>
<td height="24" align="center">网站名称:</td>
<td align="center"><div align="left"><a href="<%=rs("url")%>" target="_blank"><%=rs("webname")%></a>  </div></td>
<td rowspan="2" align="center"><a href="modify.asp?id=<%=rs("id")%>"><img border="0" src="images/button_edit.gif"></a></td>
<td rowspan="2" align="center"><a href="deldata.asp?id=<%=rs("id")%>"><img border="0" src="images/button_del.gif"></a></td>
</tr>
<tr>
<td height="24" align="center">网址:</td>
<td align="center"><div align="left">
<%=rs("url")%>
</div></td>
</tr>
<tr>
<td height="69" colspan="5</td>
</tr>
</table>

<table width="504" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="504" align="center">
<% rs.movenext
next
if rs.pagecount>0 then rs.moveprevious
end if
%>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><%=rs.pagesize%>条/页 第<%=page%>页
<% if rs.absolutepage>1 then response.write("<a href='?&"&page=1&"'>")%>
首页</a>
<% if rs.absolutepage>1 then response.write("<a href='?"&"&page="&rs.absolutepage-1&"'>")%>
上一页</a>
<% if rs.absolutepage<rs.pagecount then response.write("<a href='?"&"&page="&rs.absolutepage+1&"'>")%>
下一页</a>
<% if rs.absolutepage<rs.pagecount then response.write("<a href='?"&"&page="&rs.pagecount&"'>")%>
尾页</a></div></td>
</tr>
</table>

</td>
</tr>
</table>
</body></html>
...全文
160 3 打赏 收藏 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
ahhisoft 2006-05-22
  • 打赏
  • 举报
回复
if page="" or page<1 then page=1
rs.absolutepage=page
end if

这里就错了
把
rs.absolutepage=page
end if
去掉
ahhisoft 2006-05-22
  • 打赏
  • 举报
回复
楼主总该把哪一行报错说明一下吧
「已注销」 2006-05-22
  • 打赏
  • 举报
回复
别的没看
但有一点,request("page")取过来的page,一定要用cint转换~

否则程序直接当作字符型的来处理,导致无法正常翻页

28,402

社区成员

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

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