��ҳ >> �������� >><%=BigClass%>   <% page=clng(request("page")) Set rs=Server.CreateObject("ADODB.RecordSet") if BigClass<>"" and SmallClass <>"" then sql="select * from news where BigClassName='"&BigClass&"' and SmallClassName='"&SmallClass&"' order by id desc" rs.Open sql,conn,1,1 elseif BigClass<>"" then sql="select * from news where BigClassName='"&BigClass&"' 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 %> <% if rs("FirstImageName")<>"" then response.write "" end if %> " target="_blank"><%= RS("TITLE") %>�� [<%= RS("AddDate") %>] (���<%= 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 " " %>