ASP реализует Таблицу 3 столбцов и 5 рядов

方案一

复制代码代码如下: <!-#includefile = "conn.asp"->

<%

OWEN1 = запрос ("OWEN1")

OWEN2 = запрос ("OWEN2")

%>

<tablewidth = "95%" border = "0" cellpadding = "0" cell -spacing = "0">

<%

page = clng (запрос ("страница"))

Setrs = server.createObject ("adodb.recordset")

ifowen1 <> "" Andowen2 <> "" "Тогда

sql = "select*fromnewwherebigclassname = '" & owen1 & "' andsmallclassname = '" & owen2 & "orderbyiddesc"

Rs.opensql, Conn, 1,1

Elseifowen1 <> "" Тогда

sql = "select*fromnewwherebigclassname = '" & owen1 & "orderbyiddesc"

Rs.opensql, Conn, 1,1

эндиф

ifrs.eofandrs.bofthen

response.write ("暂时没有记录")

еще

%>

<%

rs. pageSize = 15

ifPage = 0ThenPage = 1

Страницы = Rs.PageCount

ifpage> pagesthenpage = pages

rs.absolutepage = page

forj = 1Tors.PAGESIZE

if (j-1) mod3 = 0thenresponse.write ("<tr>")

%>

<tdheight = "24" align = "center">

<divalign = "center"> <imgsrc = "uppic/<%= rs (" firstimageName ")%>" width = "130" height = "100" border = "0"/> <ahref = "onews.asp?

<%= Rs ("title")%> </a> </div> </td>

<%

ifjmod3 = 0thenresponse.write ("</tr>")

Rs.movenext

ifrs.eofthenexitfor

следующий

%>

<%

эндиф

Rs.close

setrs = ничего

%>

</table>

方案二、

复制代码代码如下: <!-#includefile = "conn.asp"->

<%

OWEN1 = запрос ("OWEN1")

OWEN2 = запрос ("OWEN2")

%>

<tablewidth = "95%" border = "0" cellpadding = "0" cell -spacing = "0">

<%

page = clng (запрос ("страница"))

Setrs = server.createObject ("adodb.recordset")

ifowen1 <> "" Andowen2 <> "" "Тогда

sql = "select*fromnewwherebigclassname = '" & owen1 & "' andsmallclassname = '" & owen2 & "orderbyiddesc"

Rs.opensql, Conn, 1,1

Elseifowen1 <> "" Тогда

sql = "select*fromnewwherebigclassname = '" & owen1 & "orderbyiddesc"

Rs.opensql, Conn, 1,1

эндиф

ifrs.eofandrs.bofthen

response.write ("暂时没有记录")

еще

%>

<%

rs. pageSize = 15