<%page=Request("page") class1=SafeRequest("class1",0) %>
<% if class1 = "06中网新闻" then %> <%elseif class1 = "06网球教室" then%> <%elseif class1= "06中网八卦" then%> <% end if%>
<% set cnf2 = server.CreateObject("adodb.connection") cnf2.Open application("dsnpd") set rsf2 =server.CreateObject("adodb.recordset") sqlf2 = "select D_Title,class_fen,class ,jieje,time1,D_ID from NewsData where keywords = '"& class1 &"' order by time1 desc" rsf2.open sqlf2,cnf2,1 rsf2.pagesize=20 if not isempty(page) then page=cint(page) if page>rsf2.pagecount then rsf2.absolutepage=rsf2.pagecount elseif page<= 0 then page=1 else rsf2.absolutepage=page end if end if page=rsf2.absolutepage for i=1 to rsf2.pagesize if rsf2.eof then exit for end if %> <% rsf2.movenext next %>
·
" target="_self" class="wenzhang"><%=rsf2("D_Title")%> <%=rsf2("jieje")%>
<%if request("page")>1 then %> 首页 上一页 <%else%> 首页 上一页 <%end if%> <% if request("page")<>rsf2.pagecount then %> 下一页 尾页 <% end if rsf2.close set rsf2=nothing cnf2.close set cnf2=nothing %>