方案一
复制代码代码如下:<!--#includefile="conn.asp"-->
<%
owen1=request("owen1")
owen2=request("owen2")
%>
<tablewidth="95%"border="0"cellpadding="0"cellspacing="0">
<%
page=clng(request("page"))
Setrs=Server.CreateObject("ADODB.RecordSet")
ifowen1<>""andowen2<>""then
sql="select*fromnewswhereBigClassName='"&owen1&"'andSmallClassName='"&owen2&"'orderbyiddesc"
rs.Opensql,conn,1,1
elseifowen1<>""then
sql="select*fromnewswhereBigClassName='"&owen1&"'orderbyiddesc"
rs.Opensql,conn,1,1
endif
ifrs.eofandrs.bofthen
response.Write("暂时没有记录")
else
%>
<%
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("firstImageName")%>"width="130"height="100"border="0"/><ahref="onews.asp?id=<%=RS("id")%>"target="_blank"><br>
<%=RS("TITLE")%></a></div></td>
<%
ifjmod3=0thenResponse.Write("</tr>")
rs.movenext
ifrs.eofthenexitfor
next
%>
<%
endif
rs.close
setrs=nothing
%>
</table>
方案二、
复制代码代码如下:<!--#includefile="conn.asp"-->
<%
owen1=request("owen1")
owen2=request("owen2")
%>
<tablewidth="95%"border="0"cellpadding="0"cellspacing="0">
<%
page=clng(request("page"))
Setrs=Server.CreateObject("ADODB.RecordSet")
ifowen1<>""andowen2<>""then
sql="select*fromnewswhereBigClassName='"&owen1&"'andSmallClassName='"&owen2&"'orderbyiddesc"
rs.Opensql,conn,1,1
elseifowen1<>""then
sql="select*fromnewswhereBigClassName='"&owen1&"'orderbyiddesc"
rs.Opensql,conn,1,1
endif
ifrs.eofandrs.bofthen
response.Write("暂时没有记录")
else
%>
<%
rs.PageSize=15