<% filego="Services.asp" search_sql="select * from [Services] order by s_wz asc" set rs=Server.CreateObject("ADODB.RecordSet") rs.open search_sql,conn,1,1 if not rs.eof then rs.pagesize=20 page=request("page") If Not Isnumeric(page) or page="" Then page=1 else page=cint(page) End if if page<1 then page=1 if page>rs.pagecount then page=rs.pagecount rs.AbsolutePage = page for i=1 to rs.pagesize %> <% rs.movenext if rs.eof then Exit For End if next %> <% else%> <% end if %>
"> <% if rs("s_ico")<>"" then ico=rs("s_ico") else ico="/images/system.png" end if %> " target="_blank"><%=rs("s_name")%>

"> ">

<% if filego<>"Servics.asp" then filego2=filego&"&" else filego2="Servics.asp?" end if if page>10 then s1=page else s1=1 if page=10 then response.write "上一页" for j=s1 to s2 if j=page then response.write ""&j&" " else response.write ""&j&" " end if next if s2下一页" response.write "         共"&rs.RecordCount&"条记录,每页显示"&rs.pagesize&"条,共"&rs.pagecount&"页,当前第"&page&"页" rs.close set rs=nothing %>