方案一
复制代码代码如下: <! - # includeFile = "Conn.asp" ->
<%
Owen1 = request ("owen1")
Owen2 = demande ("OWEN2")
%>
<tablewidth = "95%" border = "0" CellPadding = "0" CellSpacing = "0">
<%
page = clng (demande ("page"))
Setrs = server.createObject ("adodb.recordSet")
ifowen1 <> "" Andowen2 <> "" alors
sql = "select * fromnewswherebigclassname = '" & owen1 & "' andsmallclassname = '" & owen2 & "' orderbyiddes"
Rs.OpenSQL, Conn, 1,1
elseifowen1 <> "" alors
sql = "select * fromnewswherebigclassname = '" & owen1 & "' orderbyiddes"
Rs.OpenSQL, Conn, 1,1
endire
ifrs.eofandrs.bofthen
réponse.write ("暂时没有记录")
autre
%>
<%
Rs.PageSize = 15
ifPage = 0THENPAGE = 1
pages = 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 (" premierImageName ")%>" width = "130" height = "100" border = "0" /> <href = "onews.asp? id = <% = rs (" id ")%>" Target = "_ Blank"> <br>
<% = RS ("Title")%> </a> </div> </td>
<%
ifjmod3 = 0TheRresponse.write ("</tr>")
Rs.MovEnext
ifrs.eofthenexitfor
suivant
%>
<%
endire
Rs.Close
setrs = rien
%>
</ table>
方案二、
复制代码代码如下: <! - # includeFile = "Conn.asp" ->
<%
Owen1 = request ("owen1")
Owen2 = demande ("OWEN2")
%>
<tablewidth = "95%" border = "0" CellPadding = "0" CellSpacing = "0">
<%
page = clng (demande ("page"))
Setrs = server.createObject ("adodb.recordSet")
ifowen1 <> "" Andowen2 <> "" alors
sql = "select * fromnewswherebigclassname = '" & owen1 & "' andsmallclassname = '" & owen2 & "' orderbyiddes"
Rs.OpenSQL, Conn, 1,1
elseifowen1 <> "" alors
sql = "select * fromnewswherebigclassname = '" & owen1 & "' orderbyiddes"
Rs.OpenSQL, Conn, 1,1
endire
ifrs.eofandrs.bofthen
réponse.write ("暂时没有记录")
autre
%>
<%
Rs.PageSize = 15