|
|
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
if big_class <> "" then
if small_class <> "" then
sql="select * from NEWS where BigClassName='"& big_class &"' SmallClassName='"& small_class &"' order by id desc"
else
sql="select * from NEWS where BigClassName='"& big_class &"' order by id desc"
end if
else
sql="select * from NEWS where BigClassName='消费者中心' order by id desc"
end if
rs.Open sql,conn,1,1
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 rs("imagenum")<>"0" then response.write " " end if %>
" target="_blank" class="b"><%= RS("TITLE") %> [<%= RS("infotime") %>]
(阅读<%= RS("hits") %>次) |
<%
rs.movenext
if rs.eof then exit for
next
%>
|
<%
end if
rs.close
set rs=nothing
%>
|
|
