UC知道asp分列分行问题！还请各位高手指点指点
来源：百度知道 编辑：UC知道 时间：2024/05/12 18:35:55
本人是个新手！设计了个分列分行的代码！但是它是个可以无限显示的，只要你的数据库有多少信息，它就显示多少条，所以怎样才能让它只显示一行六列呢！最好能有个能规定显示其行列的代码！！我不太懂！还请各位高手指点指点！！谢谢了！！
<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>
<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>
<%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"