asp 网页设计中分页显示代码

来源：百度知道 编辑：UC知道 时间：2024/06/21 21:12:25
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/conn.asp" -->
<%
Dim strSql,rs
strSql ="Select * From rbook Order By rbook_register_date Desc"
Set rs=conn.execute(strSql)
Do While Not rs.Eof
%>

<table width="513" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#CAD9EA">
<tr>
<td height="62" colspan="4" align="center" valign="middle" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td height="238" colspan="2" rowspan="12"><img src="<%=rs("rbook_image")%>" border="1" align="absmiddle" /></td>
</tr>
<

设置页大小为2
=================================================================
我帮你改一下

加入了翻页 等!

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/conn.asp" -->
<%

Dim strSql,rs
strSql ="Select * From rbook Order By rbook_register_date Desc"
if Request.QueryString("pageNo")="" then
PageNo=1
elseif IsNumeric(Request.QueryString("pageNo"))=false then
PageNo=1
else
PageNo=clng(Request.QueryString("pageNo"))
end if

Set rs=conn.execute(strSql)
if rs.recordcount=0 then
response.write "<script>alert('数据为空!');history.back();</script>"
response.end
end if
rs.pagesize=2
if PageNo<1 then
PageNo=1
end if
if PageNo>rs.pagecount then