当前位置: 开发笔记 > 数据库 > 正文

asp实现表格3列5行

作者：手机用户2502911283 | 来源：互联网 | 2021-11-12 09:45

asp实现表格3列5行

方案一

代码如下:

 
<%  
owen1=request("owen1") 
owen2=request("owen2") 
%> 


 
<%  
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("") 
%> 
　 
"  border="0" />" target="_blank">
 
<%= RS("TITLE") %>

<%
if j mod 3=0 then Response.Write("")
rs.movenext
if rs.eof then exit for
next
%>
<%
end if
rs.close
set rs=nothing
%>

方案二、

代码如下:

 
<%  
owen1=request("owen1") 
owen2=request("owen2") 
%> 


 
<%  
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("") 
for i=1 to 3 
%> 
　 
"  border="0" />" target="_blank">
 
<%= RS("TITLE") %>

<%
rs.movenext
if rs.eof then exit for
next
Response.Write("")
next
%>
<%
end if
rs.close
set rs=nothing
%>

上面的代码有缺点．．

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

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

if (rs.recordcount mod 3=2) then response.write(" ")
if (rs.recordcount mod 3=1) then response.write(" ")

这样页面才完整的