--待审网站--
<%Set rs = Server.CreateObject("ADODB.Recordset") Sql="select * from [link] Where [Active] =1 and del=0 order by [id] desc" rs.open Sql,conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=15 Dim Count,page,pagecount,gopage gopage="links_good.asp?" Count=rs.recordcount 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)) For i=1 To PageSize If rs.eof Then Exit For Response.write ""&usb(rs("name"))&"(出"&rs("YD_out")&"/入"&rs("YD_in")&")
" rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页跳转
" Else %> 没有待审网站！
<%end if%>
<%call lasts()%><%call ALLClose()%>