谁能帮我看看是哪里出了问题??
<!--#include file="conn.asp"--><%if rs.recordcount>0
dim page_size
dim totalpages
if not IsNumeric(request("page")) or IsEmpty(request("page")) then
page=1
else
page=Int(Abs(request("page")))
end if
page_size=5
rs.PageSize = page_size
totalpages = rs.PageCount
totalrecords = rs.RecordCount
if int(page)>int(totalpages) then page=totalpages
if page<1 then page=1
page=request("page")
rs.absolutepage = page
end if
%>
<td height="37" colspan="4">共<%=rs.RecordCount%>页 第<%=page%>页
<%if page>1 then response.write"<a href='infor.asp?page=1' title="首页" ><font face=webdings>" & 9 & "</font></a>"
response.write"<a href='infor.asp?page="&page-1&"' title="上一页" ><font face=webdings>" & 7 & "</font></a>"
end if
If Rs.PageCount <= 5 Then
For j = 1 To rs.PageCount
Response.Write " <a href='infor.asp?page="&j&"'>" & j & "</a>"
Next
Else
For j = 1 To 5
Response.Write " <a href='infor.asp?page="&j&"'>" & j & "</a>"
Next
If page < rs.PageCount Then
Response.Write " <a href='infor.asp?page="&page+1&"' title='下一页'>><font face=webdings>" & 8 & "</font></a>"
End If
Response.Write " <a href='infor.asp?page="&rs.PageCount&"' title='尾页'><font face=webdings>:</font></a>"
End If
%></td>
谢谢~~~~
[[italic] 本帖最后由 恨死编程 于 2007-12-12 17:46 编辑 [/italic]]
