• <% flag="尚未处理" set rs2=server.createobject("adodb.recordset") if request("cid")<>"" then sql="select * from info where cid ="&request("cid")&" order by id desc" else sql="select * from info where cid in(SELECT id from Class where cid=173) order by id desc" end if rs2.open sql,conn,1,1 dim PerPage PerPage=5 '假如没有数据时 If rs2.eof and rs2.bof then response.write "

   

  nothing

   

  " End if '取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示 text="0123456789" Rs2.PageSize=PerPage for i=1 to len(request("page")) checkpage=instr(1,text,mid(request("page"),i,1)) if checkpage=0 then exit for end if next If checkpage<>0 then If NOT IsEmpty(request("page")) Then CurrentPage=Cint(request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Rs2.PageCount Then CurrentPage = Rs2.PageCount Else CurrentPage= 1 End If If not Rs2.eof Then Rs2.AbsolutePage = CurrentPage end if Else CurrentPage=1 End if call list Sub list()%> <% if not rs2.eof then i=1 do while not rs2.eof %>
  " target="_blank">" width="202" height="141">
  " target="_blank"><%=rs2("CnName")%>
  
       <%=rs2("Image")%>
  <% i=i+1 if i > Perpage then exit do rs2.movenext loop end if %>

<% Response.write "All-" Response.write "" & "" & Cstr(rs2.RecordCount) & "" & "          " Response.write "THE" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs2.pagecount) & " " If currentpage > 1 Then response.write "First " Response.write "go_up " Else Response.write "go_up " End if If currentpage < rs2.PageCount Then Response.write "Next " Response.write "Last  " Else Response.write "" Response.write "Last  " End if %>

<% End sub rs2.close %>