迈锐宝xl销量如何:asp分列分行问题!还请各位高手指点指点

来源:百度文库 编辑:高校问答 时间:2024/03/29 01:49:40
本人是个新手!设计了个分列分行的代码!但是它是个可以无限显示的,只要你的数据库有多少信息,它就显示多少条,所以怎样才能让它只显示一行六列呢!最好能有个能规定显示其行列的代码!!我不太懂!还请各位高手指点指点!!谢谢了!!

<table width="100" height="127" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle"><span class="style71">
<% '在页面上方显示数据库中已有的新闻版块名称
i=0
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From newsinfo Where class=13"&newsclass&" Order By time Desc"
Rs.Open Sql,conn,3,3
Do While not Rs.EOF
If i Mod 6 =0 Then Response.write "<tr>"
%>
</td>
<td align="center" valign="top"><table width="100" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="99" align="center" valign="middle"><a href="admin/xiang_xi_xin_wen_view.asp?action=xiang_xi_xin_wen&id=<%=Rs("id")%>" target="_blank" class="style71"><img src="admin/<%=Rs("images")%>" width="85" height="61" border="0" /></a></td>
</tr>
<tr>
<td height="26" align="center" valign="middle"><a href="admin/xiang_xi_xin_wen_view.asp?action=xiang_xi_xin_wen&id=<%=Rs("id")%>" target="_blank" class="style71"><%=Rs("title")%></a> </td>
</tr>
</table></td>
<td align="center" valign="middle"><span class="style71">
<%
If i Mod 4=3 Then Response.write "</tr>"
rs.movenext
i=i+1
loop
rs.close
%>
</span></td>
</tr>
</table>

<%lie=6 '定义每行6列
rs.open sql,conn,1,1 '打开记录
hang=rs.recordcount/lie '根据记录条数计算有多少行
if int(hang)<hang then hang=int(hang)+1 '如果不能整除,先取整数部分再加1
for i=1 to hang '循环行数%>
<tr>
<%for j=1 to lie '循环列数%>
<td><%=rs("title")%></td>
<%rs.movenext '移动记录指针
if rs.eof then '如果记录读取完毕
exit for '跳出列循环
exit for '跳出行循环
end if
next%>
</tr>
<%if rs.eof then exit for
next%>

Sql="Select top 6 * From newsinfo Where class=13"&newsclass&" Order By time Desc"