ASP常用函数收藏乱七八糟未整理版(58)

<%
If rs.EOF Then
    Response.Write("<font size=2 color=#000080>[数据库中没有记录！]</font>")
Else
    ''指定当前页码
    If Request("CurrentPage") = "" Then
        rs.AbsolutePage = 1
    Else
        rs.AbsolutePage = CLng(Request("CurrentPage"))
    End If 　
    ''创建表单MyForm,方法为Get
    Response.Write("<form method=Get name=MyForm>")
    Response.Write("<p align=center><font size=2 color=#008000>")
    ''设置翻页超链接
    If rs.PageCount = 1 Then
        Response.Write("[第一页] [上一页] [下一页] [最后一页] ")
    Else
        If rs.AbsolutePage = 1 Then
            Response.Write("[第一页] [上一页] ")
            Response.Write("[<a href=java script:PageNext()>下一页</a>] ")
            Response.Write("[<a href=java script:PageLast()>最后一页</a>] ")
        Else
            If rs.AbsolutePage = rs.PageCount Then
                Response.Write("[<a href=java script:PageFirst()>第一页</a>] ")
                Response.Write("[<a href=java script:PagePrior()>上一页</a>] ")
                Response.Write("[下一页] [最后一页] ")
            Else
                Response.Write("[<a href=java script:PageFirst()>第一页</a>] ")
                Response.Write("[<a href=java script:PagePrior()>上一页</a>] ")
                Response.Write("[<a href=java script:PageNext()>下一页</a>] ")