asp上实现表格3列5行

发布时间：2023-04-18 14:24:41 所属栏目：Asp教程来源：

导读：方案一

复制代码代码如下:



<%

owen1=request("owen1")

owen2=request("owen2")

%>

<table width="95%" border="0" cellpadding="0" cellspa

方案一

复制代码代码如下:



<%

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>

方案二、

复制代码代码如下:



<%

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

%>

（编辑：聊城站长网）

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