UC知道在asp里让一个一个表格（table）按顺序一行三个 第四个转下行 循环....
来源：百度知道 编辑：UC知道 时间：2024/05/15 10:19:45
在asp里 怎么让这个（table）先横着排三个，第四个转下行 每行三个
<table width="198" border="0" align="center" cellpadding="0" cellspacing="0" style="table-layout:fixed">
<%
sql = "SELECT * FROM WindStep_Topic ORDER BY TopicID DESC"
rs.Open sql,conn,1,1
If rs.EOF And rs.BOF Then
Response.Write("")
Else
nTotalRecord = rs.RecordCount
nCurrentPage = Trim(Request.QueryString("page"))
If Not IsNumeric(nCurrentPage) Then nCurrentPage=1
If nCurrentPage<1 Then nCurrentPage=1
rs.PageSize = nPerPage
nPageCount = rs.PageCount
If (nCurrentPage-nPageCount)>0 Then nCurrentPage=nPageCount
rs.AbsolutePage = nCurrentPage
Dim flag,nNum
flag = 0
nNum = nTotalRecord-(nCurrentPage-1)*nPerPage
Do Until rs.EOF
%>
<tr>
<td align="cent
<table width="198" border="0" align="center" cellpadding="0" cellspacing="0" style="table-layout:fixed">
<%
sql = "SELECT * FROM WindStep_Topic ORDER BY TopicID DESC"
rs.Open sql,conn,1,1
If rs.EOF And rs.BOF Then
Response.Write("")
Else
nTotalRecord = rs.RecordCount
nCurrentPage = Trim(Request.QueryString("page"))
If Not IsNumeric(nCurrentPage) Then nCurrentPage=1
If nCurrentPage<1 Then nCurrentPage=1
rs.PageSize = nPerPage
nPageCount = rs.PageCount
If (nCurrentPage-nPageCount)>0 Then nCurrentPage=nPageCount
rs.AbsolutePage = nCurrentPage
Dim flag,nNum
flag = 0
nNum = nTotalRecord-(nCurrentPage-1)*nPerPage
Do Until rs.EOF
%>
<tr>
<td align="cent
<community:ContentList id="ContentList" RepeatLayout="table" RepeatColumns="3" CssClass="WebBox_ListItem" Runat="Server">
简单的给你个思路,实现方法就是这样的,你根据你的具体情况去改改就行了
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
Dim TopicID,i,n
TopicID=0
For i=1 to Int(nPerPage/3)
%>
<tr>
<%
Set Rs=conn.Execute("SELECT * FROM WindStep_Topic Where TopicID>"&TopicID&" ORDER BY TopicID ASC")
Do While Not Rs.Eof
TopicID=Rs("TopicID")
%>
<td height=25 style="text-indent:10px">◆ "><a href="act.asp?sort=del&id=<%= rs("TopicID") %>">删除产品</a></td>
<%
n=n+1
If n>=3 Then Exit Do
Rs.Movenext