<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% dim class_id,class_name
class_name="新闻动态"
class_id=trim(request("class_id"))
if class_id<>"" then
set rs_class=conn.execute("select * from wan_news_class where class_id="&class_id&"")
if rs_class.eof and rs_class.bof then
else
class_name=rs_class("name")
end if
rs_class.close
set rs_class=nothing
end if
%>
<%=class_name%>,<%=wan_webname%>
<%=class_name%>
<%
dim page
page=trim(request("page"))
if page="" and not isnumeric(page) then
page=1
end if
filename=""'当前页面文件名称
Set Rs=Server.CreateObject("ADODB.Recordset")
if class_id="" then
sql="select * from wan_news order by sort desc,id desc"
else
sql ="select * from wan_news where class_id="&class_id&" order by sort desc,id desc"
end if
rs.open sql,conn,1,1
if rs.eof then
%>
没有数据
<%
else
rs.pagesize=news_page '一页新闻数
currentpage=Clng(page)
if currentpage<1 then currentpage=1
if currentpage>rs.pagecount then currentpage=rs.pagecount
rs.absolutepage=currentpage
dim i
i=0
Do While Not rs.Eof
%>
<%
if class_id="" then
set rs_class=conn.execute("select * from wan_news_class where class_id="&rs("class_id")&"")
if rs_class.eof and rs_class.bof then
else
%>
">[<%=rs_class("name")%>]
<%
end if
rs_class.close
set rs_class=nothing
end if
%> "> <%=rs("name")%> <%=rs("date")%>
<%
i=i+1
rs.MoveNext
If i>=rs.pagesize Then Exit Do
Loop
%>
总数: <%=rs.recordcount%>页次: <%=CurrentPage%> / <%=rs.pagecount%>
<% if CurrentPage=1 then%>
首页←上一页
<% else %>
首页←上一页
<% end if%>
<% if CurrentPage下一页→末页
<% else %>
下一页→末页
<% end if%>
<%
if class_id="" then
set rs_class=conn.execute("select * from wan_news_class where class_id="&rs("class_id")&"")
if rs_class.eof and rs_class.bof then
else
%>