|
|
| 精略财税咨询有限公司致力于于开拓与服务企业的电子商务平台，公司目前主要经营拓展业务范围：网页制作、企业建站、网站推广；授权代理；会计咨询，会计培训等。我们从事网站开发与制作，丰富的经验，案例！期待与您的合作！
|
|
|
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
if BigClass<>"" and SmallClass <>"" then
sql="select * from news where BigClassName='"&BigClass&"' and SmallClassName='"&SmallClass&"' order by AddDate desc"
rs.Open sql,conn,1,1
elseif BigClass<>"" then
sql="select * from news where BigClassName='"&BigClass&"' order by AddDate desc"
rs.Open sql,conn,1,1
end if
if rs.eof and rs.bof then
response.Write("暂时没有记录")
else
%>
<%
rs.PageSize=20
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("FirstImageName")<>"" then response.write " " end if %>
" target="_blank"><%= RS("TITLE") %> |
[<%=FormatDateTime(RS("AddDate"),2)%>] (点击<%= RS("hits") %>) |
<%
rs.movenext
if rs.eof then exit for
next
%>
|
<%
end if
rs.close
set rs=nothing
%>
|
|
