方案一复制代码 代码如下:<!--#include file="conn.asp"--> <% owen1=request("owen1") owen2=request("owen2") %> <table width="95%" border="0" cellpadding="0" cellspacing="0"> <% page=clng(request("page")) Set rs=Server.CreateObject("ADODB.RecordSet") if owen1<>"" and owen2 <>"" then sql="select * from news where BigClassName='"&owen1&"' and SmallClassName='"&owen2&"' order by id desc" rs.Open sql,conn,1,1 elseif owen1<>"" then sql="select * from news where BigClassName='"&owen1&"' order by id desc" rs.Open sql,conn,1,1 end if if rs.eof and rs.bof then response.Write("暂时没有记录") else %> <% rs.PageSize=15 if page=0 then page=1 pages=rs.pagecount if page > pages then page=pages rs.AbsolutePage=page for j=1 to rs.PageSize if (j-1) mod 3=0 then Response.Write("<tr>") %> <td height="24" align="center" >　 <div align="center"><img src="uppic/<%= RS("firstImageName") %>"width="130" height="100" border="0" /><a href="onews.asp?id=<%= RS("id") %>" target="_blank"><br> <%= RS("TITLE") %></a></div></td> <% if j mod 3=0 then Response.Write("</tr>") rs.movenext if rs.eof then exit for next %> <% end if rs.close set rs=nothing %> </table>方案二、复制代码 代码如下:<!--#include file="conn.asp"--> <% owen1=request("owen1") owen2=request("owen2") %> <table width="95%" border="0" cellpadding="0" cellspacing="0"> <% page=clng(request("page")) Set rs=Server.CreateObject("ADODB.RecordSet") if owen1<>"" and owen2 <>"" then sql="select * from news where BigClassName='"&owen1&"' and SmallClassName='"&owen2&"' order by id desc" rs.Open sql,conn,1,1 elseif owen1<>"" then sql="select * from news where BigClassName='"&owen1&"' order by id desc" rs.Open sql,conn,1,1 end if if rs.eof and rs.bof then response.Write("暂时没有记录") else %> <% rs.PageSize=15 if page=0 then page=1 pages=rs.pagecount if page > pages then page=pages rs.AbsolutePage=page for j=1 to (rs.PageSize/3) Response.Write("<tr>") for i=1 to 3 %> <td height="24" align="center" >　 <div align="center"><img src="uppic/<%= RS("firstImageName") %>"width="130" height="100" border="0" /><a href="onews.asp?id=<%= RS("id") %>" target="_blank"><br> <%= RS("TITLE") %></a></div></td> <% rs.movenext if rs.eof then exit for next Response.Write("</tr>") next %> <% end if rs.close set rs=nothing %> </table>上面的代码有缺点．． 就是如果是　１６条　那么页面最后一行会空出两列　页面很难看　因为如果１６　最后一行只显示一列　这样少了两个＜ｔｄ＞＜／ｔｄ＞　 必须进行判断　总数／３的余数 if (rs.recordcount mod 3=2) then response.write("<td> </td>") if (rs.recordcount mod 3=1) then response.write("<td> </td><td> </td>") 这样页面才完整的

　　推荐阅读

　　使用asp代码突破163相册的防盗连

从网上来的代码，，稍微修改了一些地方，其实用的是cache类。。 保存代码为，比如pic.asp 使用:http://www.xxx.com/pic.asp?url=http://www.aaaa.com/log.gif 不光是163，其实就是很多防盗连的图片都可以这个实>>>详细阅读

本文标题：asp实现表格3列5行

地址：http://www.17bianji.com/kaifa2/ASP/33231.html

 1/2    1