发一个N行N列排布+分页的代码！
很好用，刚用到了，觉得不错，发给大家看看。。。显示形式：
ID1 NAME | ID2 NAME
1 JULIET | 2 PALYBOY | 3 PALYBOY
4 BABY | 5 TOM | 6 PALYBOY
7 LENA | 8 JERY | 9 PALYBOY
>>首页 前页 后页 尾页 页数：1/4 6条/页 总记录数:25条
或者:
显示形式：
ID1 NAME | ID2 NAME
1 JULIET | 2 PALYBOY | 3 PALYBOY | 4 PALYBOY
5 BABY | 6 TOM | 7 PALYBOY | 8 PALYBOY
9 LENA | 10 JERY | 11 PALYBOY | 12 PALYBOY
>>首页 前页 后页 尾页 页数：1/4 6条/页 总记录数:25条
程序代码：'－－－－－member.asp－－－－－
<!--#include file="conn.asp"-->
<%
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="Select * from 表名 order by ID desc"
rs.Open Sql,Connweb,1,1
if request("page")="" then
page=1
elseif request("page")<1 then
page=1
else
page=request("page")
end if
rs.PageSize=12 '每页显示几个记录
rs.AbsolutePage=page
if rs.RecordCount=0 then
Response.Write "没有记录"
else
%>
<%
if rs.eof then
Response.Write "没有相关记录"
else
response.write ("<table width=500 border=0 cellspacing=0 cellpadding=1><tr>")
for ipage=1 to rs.pagesize
response.write ("<td>")
response.write rs("p_info_name") '您需要显示的字段
response.write ("</td>")
j=j+1
m=4 '假如您是一行4条记录。修改成需要的一行几条
If j>m-1 Then
Response.Write "</tr><tr>"
j=0
End If
rs.movenext
if rs.eof then exit for
next
Response.Write "</tr></table>"
%>
<%
end if
end if
'下面的member.asp换成是和本文件一样的文件名
%>
<div align="center"> <%=rs.recordcount%>条记录
当前第<%=page%>页/共有<%=rs.pagecount%>页<a href="member.asp?page=1"><font color="#000000">首间</font></a>
<% if page<>1 then %>
<a href="member.asp?page=<%=(page-1)%>"><font color="#000000">下间</font></a>
<%else%>
上间
<% end if %>
<% if page<>rs.pagecount then
if page+1>rs.pagecount then
page=rs.pagecount-1
end if
'上面的修正了如果下页没有数据依然可以点击下去的错误
%>
<a href="member.asp?page=<%=(page+1)%>"><font color="#000000">下间</font></a>
<%else%>
下间
<% end if %>
<a href="member.asp?page=<%=rs.pagecount%>"><font color="#000000">尾间</font></a></div>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
今天问分页的人很多啊！