<% News_Class = replace(replace(replace(replace(request("Class"),"'",""),"%",""),"*",""),"&","") %>

<% Set rc=Server.CreateObject("ADODB.Recordset") sql="Select * from WEBNEWS where News_Class = '"&News_Class&"' order by ID desc" rc.open sql,conn,1,1 rc.pagesize=10 dim Page Page =1 if request("Page") <> "" then Page=cint(request("Page")) end if if not rc.eof and not rc.bof then rc.absolutepage=Page end if count=rc.pagesize %> <%if rc.bof then%> <%else%> <%do while not rc.eof and count > 0%> <% rc.movenext count=count-1 loop %> <%end if%> 暂时没有该类信息！  · " target=_blank> <%if len(rc("News_Title")) > 30 then Response.write left(rc("News_Title"),30)&"..." else Response.write rc("News_Title") end if%> 共有[<%=rc.RecordCount%>]条信息 分<%=rc.pagecount%>页 <%=rc.pagesize%>条/页 当前第<%=Page%>页 首页 <%if Page>1 then%> 上页 <%else%> 上页 <%end if%> <%if Page < rc.pagecount then %> 下页 <%else%> 下页 <%end if%> &Page=<%=rc.pagecount%>>尾页