Question

ASP一行显示多条记录（满意大大加分）

用ASP实现在表格的一行显示3条记录，并且当显示3行后实现分页！（最好给个完整的代码）

Answer 1

下面这段是基本的分页代码：
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR><%
sql = ''select * from [表] order by id desc'' 'sql语句
Set rs=Server.Createobject(''ADODB.RECORDSET'')
rs.Open sql, conn, 1, 1
if not rs.eof then
pages = 9 '定义每页显示的记录数
rs.pageSize = pages '定义每页显示的记录数
allPages = rs.pageCount '计算一共能分多少页
page = Request.QueryString(''page'') '通过浏览器传递的页数
'if语句属于基本的排错处理
if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) > allPages then
page = allPages
end if
rs.AbsolutePage = page
j=1
Do while not rs.eof and pages > 0 %>
<TD><%=rs(''输出的字段'')%></TD>
<% if j mod 3=0 then '每3条分行
response.Write ''</TR><TR>''
end if
pages = pages - 1
rs.MoveNext
j=j+1
Loop
else
Response.Write(''数据库暂无内容！'')
End if
rs.Close
Set rs = Nothing %>
'系统已经为数据分页了
<TR><TD colspan=''3''>
<% SUB pageUrl(pUrl)
Dim eUrl
txts = Request.ServerVariables(''URL'')
txts = left(txts,instrrev(txts,''/'',len(txts))-1)
eUrl = ''http://''; & Request.ServerVariables(''server_name'') & txts
For i =1 to allpages
txt = ''''
txt = ''<strong>''
txt = txt & ''<a href='' & eUrl & pUrl & ''page=''&i & ''>''
if i = Cint(Page) then txt = txt & ''<font color='bb0000'>''
txt = txt & (i)
if i = Cint(Page) then txt = txt & ''</font>''
txt = txt & ''</a> ‖ </strong>''
Response.Write(txt)
Next
END sub %>
</TD></TR></TABLE>

Answer 2

这个。。显示 3个 <TD>再<tr>就行了，楼上的是对的

Answer 3

如果j=4看看你的html代码。呵呵~看上去是对了，但html代码错误。应该需要判断循环了几次，不足三次时补上<td></td>

Answer 4

基本与asp关系不大,用css做如下定义即可:
a

Answer 5

select * top 3 form 数据库 显示三条记录
pagesize='3' 每页显示三条

就那么简单