asp做成表格3列5行

asp做成表格3列5行：

方案一、复制代码 代码如下:<!--#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 

%>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!