asp如何實現表格3列5行

asp如何實現表格3列5行？相信這個問題把很多朋友們難住了，那麼現在錯新小編就針對這個問題為大家講解asp實現表格3列5行的方法。

方案一

<%

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

%>

<%

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>")

這樣頁面才完整的

asp如何實現表格3列5行的方法就為各位朋友們介紹到這裡了，大家是不是也非常的心動呢？如果你也嚮往在這裡學習的話，那就趕緊行動起來吧。