方案一
复制代码 代码如下:<!--#includefile="conn.asp"-->
<%
owen1=request("owen1")
owen2=request("owen2")
%>


<tablewidth="95%"border="0"cellpadding="0"cellspacing="0">
<%
page=clng(request("page"))
Setrs=Server.CreateObject("ADODB.RecordSet")
ifowen1<>""andowen2<>""then
sql="select*fromnewswhereBigClassName='"&owen1&"'andSmallClassName='"&owen2&"'orderbyiddesc"
rs.Opensql,conn,1,1
elseifowen1<>""then
sql="select*fromnewswhereBigClassName='"&owen1&"'orderbyiddesc"
rs.Opensql,conn,1,1
endif
ifrs.eofandrs.bofthen
response.Write("暂时没有记录")
else
%>

<%
rs.PageSize=15
ifpage=0thenpage=1
pages=rs.pagecount
ifpage>pagesthenpage=pages
rs.AbsolutePage=page
forj=1tors.PageSize
if(j-1)mod3=0thenResponse.Write("<tr>")
%>
<tdheight="24"align="center">　
<divalign="center"><imgsrc="uppic/<%=RS("firstImageName")%>"width="130"height="100"border="0"/><ahref="onews.asp?id=<%=RS("id")%>"target="_blank"><br>
<%=RS("TITLE")%></a></div></td>
<%
ifjmod3=0thenResponse.Write("</tr>")
rs.movenext
ifrs.eofthenexitfor
next
%>
<%
endif
rs.close
setrs=nothing
%>
</table>
方案二、
复制代码 代码如下:<!--#includefile="conn.asp"-->
<%
owen1=request("owen1")
owen2=request("owen2")
%>


<tablewidth="95%"border="0"cellpadding="0"cellspacing="0">
<%
page=clng(request("page"))
Setrs=Server.CreateObject("ADODB.RecordSet")
ifowen1<>""andowen2<>""then
sql="select*fromnewswhereBigClassName='"&owen1&"'andSmallClassName='"&owen2&"'orderbyiddesc"
rs.Opensql,conn,1,1
elseifowen1<>""then
sql="select*fromnewswhereBigClassName='"&owen1&"'orderbyiddesc"
rs.Opensql,conn,1,1
endif
ifrs.eofandrs.bofthen
response.Write("暂时没有记录")
else
%>

<%
rs.PageSize=15
ifpage=0thenpage=1
pages=rs.pagecount
ifpage>pagesthenpage=pages
rs.AbsolutePage=page
forj=1to(rs.PageSize/3)
Response.Write("<tr>")
fori=1to3
%>
<tdheight="24"align="center">　
<divalign="center"><imgsrc="uppic/<%=RS("firstImageName")%>"width="130"height="100"border="0"/><ahref="onews.asp?id=<%=RS("id")%>"target="_blank"><br>
<%=RS("TITLE")%></a></div></td>
<%
rs.movenext
ifrs.eofthenexitfor
next
Response.Write("</tr>")
next
%>
<%
endif
rs.close
setrs=nothing
%>
</table>
上面的代码有缺点．．

就是如果是　１６条　那么页面最后一行会空出两列　页面很难看　因为如果１６　最后一行只显示一列　这样少了两个＜ｔｄ＞＜／ｔｄ＞　

必须进行判断　总数／３的余数

if(rs.recordcountmod3=2)thenresponse.write("<td>&nbsp;</td>")
if(rs.recordcountmod3=1)thenresponse.write("<td>&nbsp;</td><td>&nbsp;</td>")

这样页面才完整的