<% filego="link.asp" sql="select * from [link] order by id desc" Set rs = Server.CreateObject("ADODB.Recordset") rs.open 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 if rs.eof then exit for %> <% rs.movenext if rs.eof then Exit For End if next %> <% else%> <% end if %>
"> " target=_blank><%=left(rs("sitename"),8)%> " target=_blank><%=rs("url")%> <%=rs("alt")%> <% if rs("show")=1 then response.write "正常" else response.write "未审核" end if%> "> ">
<% if filego<>"link.asp" then filego2=filego&"&" else filego2="link.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 %>