<%@ Language=VBScript %>
<%
user=request("user")
set rs=server.createobject("adodb.recordset")
sql="select * from link where tj=1 order by id desc"
rs.open sql,conn,1,3
'----
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize = 60'------每页显示链接数
total = rs.RecordCount
mypagesize = rs.pagesize
rs.absolutepage = page
%>
web
