<% dim Rs,Sql set Rs=Server.CreateObject("ADODB.Recordset") Sql="select * from [link] Where Active=1 order by [YD_time] desc" rs.open Sql,conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=10 Dim Count,page,pagecount,gopage gopage="Admin_link.asp?sid="&sid&"&id="&idd&"&" Count=conn.execute("Select count(ID) from [link] Where Active=1")(0) page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize if page>pagecount then page=pagecount rs.move(pagesize*(page-1)) Response.write ""&now()&"
" response.write ("共"&count&"条友链没有审核
") For i=1 To PageSize If rs.eof Then Exit For Response.write ""&i+(page-1)*PageSize&"." Response.write ""&usb(rs("name"))&"(出"&rs("YD_out")&"/入"&rs("YD_in")&")
" Response.write "查看|" Response.write "通过|" Response.write "编辑|" Response.write "删除" Response.write "
-------------
" rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页[GO]
" Else Response.write ("暂时没有待审友链！
") end if%> 全部通过审核
[分类管理]
[友链后台]
[后台管理]