如何将一列分页改成二列分页啊 asp的。谢谢

来源:百度知道 编辑:UC知道 时间:2024/09/28 06:43:46
<table border="0" width="98%" cellspacing="0" cellpadding="0" id="table1">
<tr>
<td style="line-height: 200%" valign="top"><br>
<h2> 全国高校(大学、学院、学校)名录大全</h2>
<hr noshade color="#C3C3C3" width="98%" size="1"><%
page=clng(request("page"))
sql="SELECT * from school order by rnd(id-timer())"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%> <%
rs.PageSize=35
%> </td>
</tr>
<%
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
<tr>
<td height="25" class="box2">    ·
<a href="show_school.asp?id=<%=rs

<table border="0" width="98%" cellspacing="0" cellpadding="0" id="table1">
<tr>
<td style="line-height: 200%" valign="top"><br>
<h2> 全国高校(大学、学院、学校)名录大全</h2>
<hr noshade color="#C3C3C3" width="98%" size="1"><%
page=clng(request("page"))
sql="SELECT * from school order by rnd(id-timer())"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%> <%
rs.PageSize=35
%> </td>
</tr>
<%
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
for j=1 to rs.PageSize
%>
<tr>
<td height="25" class="box2"> ·
<a href="show_school.asp?id=<%=rs("id")%>" ta