<% dim class_id,class_name class_name="News" class_id=trim(request("class_id")) if class_id<>"" then set rs_class=conn.execute("select * from yuzhiguo_e_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%>,<%=e_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 yuzhiguo_e_news order by sort desc,id desc" else sql ="select * from yuzhiguo_e_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 Do While Not rs.Eof %> <% i=i+1 rs.MoveNext If i>=rs.pagesize Then Exit Do Loop %> <% end if rs.close set rs=nothing %>
No Data
  <% if class_id="" then set rs_class=conn.execute("select * from yuzhiguo_e_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")%>
Total: <%=rs.recordcount%> Page: <%=CurrentPage%> of <%=rs.pagecount%> <% if CurrentPage=1 then%> First ←Previous <% else %> First ←Previous <% end if%> <% if CurrentPage Next→ End <% else %> Next→ End <% end if%>