<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
<%
do while not rs.eof
%>
<tr>
<%
for i=0 to 1 '你想拆分成为几行自己做相应修改
if not rs.eof then
%>
<td><%=rs("字段名")%></td>
<%
rs.movenext
else
%>
<td> </td>
<%
end if
next
%>
</tr>
<%
loop
%>
</table>
connstr="DBQ="+server.mappath("user_information.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sql="select * from zcgs order by ID DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
set bb=rs("name")
rs.pagesize=25
rs.absolutepage=1
if request("page")<>"" then rs.absolutepage=request("page")
rowcount=rs.pagesize
if not rs.eof then
</font></td>
</tr>
</table>
<font color="#CCCCCC">
<%
rs.movenext
rs.movenext '移动两次
rowcount=rowcount-1
loop
end if
if rs.pagecount>1 then
response.write"<table border='0'>"
response.write"<tr>"
response.write"<td><b>页数:</b></td>"
for i=1 to rs.pagecount
response.write "<td><a href=jion2.asp?page=" & i &">"
response.write "<b>"&i&"</b></a>"
response.write "</td>"
next
response.write "</tr>"
end if
%>
右边: <%
sql="select * from zcgs order by ID DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
set bb=rs("name")
rs.pagesize=25
rs.absolutepage=1
if request("page")<>"" then rs.absolutepage=request("page")
rowcount=rs.pagesize
if not rs.eof then
rs.movenext '先移动到第二条记录
do while not rs.eof and rowcount>0
</font></td>
</tr>
</table>
<font color="#CCCCCC">
<%
rs.movenext
rs.movenext
rowcount=rowcount-1
loop
end if
if rs.pagecount>1 then
response.write"<table border='0'>"
response.write"<tr>"
response.write"<td><b>页数:</b></td>"
for i=1 to rs.pagecount
response.write "<td><a href=jion2.asp?page=" & i &">"
response.write "<b>"&i&"</b></a>"
response.write "</td>"
next
response.write "</tr>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>