发一个N行N列排布+分页的代码！

'－－－－－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
%>