<!--#include file="conn.asp"-->

<%
'Dim pagesize
'sql="select top 1 * from [pagesize] order by id desc"
'rs.open sql,conn,1,1
'pagesize=rs("pagesize")
'rs.Close
If session("pagesize")="" Then session("pagesize")=9
Dim page
page=unescape(Request.QueryString("page"))
If page<>"" Then
    sql="select * from [test] order by id asc"
    rs.open sql,conn,1,1
    If rs.eof Then
        Response.Write(escape("還沒有任何數(shù)據(jù)"))
    Else
        rs.pagesize=session("pagesize")
        page=CLng(page)
        If page<1 Then
            page=1
        ElseIf page>rs.pagecount Then
            page=rs.pagecount
        End If
        rs.absolutepage=page
        Dim i,str
        str=str & "<div style='margin:0'>"
        For i=1 To rs.pagesize
            str=str & rs("id") & ". <a href='" & rs("weburl") & "' title='前往該網(wǎng)站' target='_blank'>" & rs("webname") & "</a><br />"
            rs.movenext
            If rs.eof Then Exit For
        Next
        str=str & "</div><div style='margin-top:10px;line-height:30px;text-align:left;border-top:1px #999 solid'>"
        str=str & "<a href='javascript:void(getweblist(1))'><<</a> "
        For i=1 To rs.pagecount
            If i=page Then
                str=str & "<span style='font-weight:bold;color:red;font-size:16px;'>" & i & "</span> "
            Else
                str=str & "<a href=javascript:void(getweblist(" & i & "))>" & i & "</a> "
            End If
        Next
        str=str & " <a href='javascript:void(getweblist(" & rs.pagecount & "))'>>></a>"
        str=str & "</div>"
        str=escape(str)
        Response.Write(str)
    End If    
    rs.Close
    Set rs=Nothing
    conn.Close
    Set conn=Nothing
Else
    Response.Write(escape("Error：頁數(shù)不能為空！"))
End If
%>