当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp实现表格3列5行

ASP
ASP编程中15个非常有用的例子 （二）
ASP与JSP的比较(一)
ASP与JSP的比较(二)
ASP中五种连接数据库的方法
从ASP调用SQL中的图像
用排序串字段实现树状结构（例程：连接字串）
用排序串字段实现树状结构（例程：删除贴子）
用排序串字段实现树状结构（例程：回复表单）
用排序串字段实现树状结构（例程：显示贴子内容）
用排序串字段实现树状结构（例程：显示树）
用排序串字段实现树状结构（存储过程）
用排序串字段实现树状结构（库结构）
用排序串字段实现树状结构（原理）
remote script文档(转载自微软)(一)
remote script文档(转载自微软)(二)
remote script文档(转载自微软)(三)
remote script文档(转载自微软)(四)
remote script文档(转载自微软)(五)
remote script文档(转载自微软)(六)
remote script文档(转载自微软)(七)

No. « 187 188 189 190 »

技术文章搜索

关键字

ASP 中的 asp实现表格3列5行

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-13   浏览: 127 ::
收藏到网摘: n/a

方案一
复制代码 代码如下:
<!--#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>")
这样页面才完整的