<% owen1=trim(request("owen1")) owen2=trim(request("owen2")) %>
 
 
 
 
当前位置:首页>> <% if owen2="" then response.Write(owen1) else response.Write(owen2) end if %>
 
<% set rs_fy=server.createobject("adodb.recordset") sqltext4="select * from SmallClass_New where BigClassName='"&owen1&"' " rs_fy.open sqltext4,conn,1,1 do while not rs_fy.eof %> <% rs_fy.movenext loop rs_fy.close %>
   
 
   
 
 
 
 
 
   
 
<% page=clng(request("page")) Set rs=Server.CreateObject("ADODB.RecordSet") if owen1<>"" and owen2 <>"" then sql="select * from news where BigClassName='"&owen1&"' and SmallClassName='"&owen2&"' order by id desc" rs.Open sql,conn,1,1 elseif owen1<>"" then sql="select * from news where BigClassName='"&owen1&"' order by id 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 %> <% rs.movenext if rs.eof then exit for next %> <% end if rs.close set rs=nothing %>
"><%= RS("TITLE") %>         [<%= RS("infotime") %>]    (阅读<%= RS("hits") %>次)
<%if Page<2 then response.write "首页 上一页 " else response.write "首页 " response.write "上一页 " end if if rs.pagecount-page<1 then response.write "下一页 尾页" else response.write "" response.write "下一页 尾页" end if response.write " 页次:"&Page&"/"&rs.pagecount&"页 " response.write " 共"&rs.recordcount&"条记录 "&rs.pagesize&"条记录/页" response.write " 转到:" response.write "

" %>