UC知道有个分页问题请帮忙啊
来源：百度知道 编辑：UC知道 时间：2024/04/30 14:54:20
<% @LANGUAGE = VBScript %>
<%
Option Explicit
Response.Expires = 0
Dim con, Strcon
Set con = Server.CreateObject("ADODB.Connection")
Strcon = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("aa.mdb")
con.Open Strcon
Dim StrSQL, rs
StrSQL = "Select * From 通讯录"
Set rs = con.Execute(StrSQL)
%>
<HTML>
<BODY>
<%
Do While Not rs.EOF
Response.Write rs("姓名") & " " & rs("性别") & " " & rs("年龄") & " " & "<BR>"
rs.MoveNext
Loop
con.close
Set rs = Nothing: Set con = Nothing
%>
</BODY>
</HTML>
那位大哥帮帮忙啊小第做了个ASP的同学录在一个页面里显示太多了，想把他改成一页显示八个人，并能有下一页和上一页显示按纽最后有共多少页显示，谢谢了，兄弟急用。
<%
Option Explicit
Response.Expires = 0
Dim con, Strcon
Set con = Server.CreateObject("ADODB.Connection")
Strcon = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("aa.mdb")
con.Open Strcon
Dim StrSQL, rs
StrSQL = "Select * From 通讯录"
Set rs = con.Execute(StrSQL)
%>
<HTML>
<BODY>
<%
Do While Not rs.EOF
Response.Write rs("姓名") & " " & rs("性别") & " " & rs("年龄") & " " & "<BR>"
rs.MoveNext
Loop
con.close
Set rs = Nothing: Set con = Nothing
%>
</BODY>
</HTML>
那位大哥帮帮忙啊小第做了个ASP的同学录在一个页面里显示太多了，想把他改成一页显示八个人，并能有下一页和上一页显示按纽最后有共多少页显示，谢谢了，兄弟急用。
dim rdcount,pgcount,pgsize
pgsize=DEF_pg_txb
rdcount=conn.Execute("SELECT COUNT(ID) FROM tblmates",0,1)(0)
pgcount=Abs(Int(rdcount/pgsize*(-1)))
'获取传值
dim curpage
curpage=Request.QueryString("page")
IF isNumeric(Request.QueryString("page")) THEN
curpage=CLng(curpage)
if curpage<1 OR curpage>pgcount then
curpage=1
end if
ELSE
curpage=1
END IF
%>
<%
dim colnum,colmid,pg_i
'定义显示快捷页个数
colnum=5
colmid=colnum\2
'生成快捷页的函数
Sub PageQuick()
%>
<% if rdcount>0 then %>
<a href="txbook.asp?page=1"><font face="webdings" title="头页">9</font></a>
<% else %>
<font face="webdings" title="头页">9</font>
<% end if %>
<% If curpage>1 Then %>
&l