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

                Response.Write("[<a href=java script:PageLast()>最后一页</a>] ")
            End If
        End If
    End If　
    ''创建下拉列表框，用于选择浏览页码
    Response.Write("第<select size=1 name=CurrentPage onchange=PageCurrent()>")
    For i = 1 To rs.PageCount
        If rs.AbsolutePage = i Then
            Response.Write("<option selected>"&i&"</option>") ''当前页码
        Else
            Response.Write("<option>"&i&"</option>")
        End If
    Next
    Response.Write("</select>页/共"&rs.PageCount&"页 共"&rs.RecordCount&"条记录</font><p>")
    Response.Write("</form>")　
    ''创建表格，用于显示
    Response.Write("<table align=center cellspacing=1 cellpadding=1 border=1")
    Response.Write(" bordercolor=#99CCFF bordercolordark=#b0e0e6 bordercolorlight=#000066>")　
    Response.Write("<tr bgcolor=#ccccff bordercolor=#000066>") 　
    Set Columns = rs.Fields 　
    ''显示表头
    For i = 0 To Columns.Count -1
        Response.Write("<td align=center width=200 height=13>")
        Response.Write("<font size=2><b>"&Columns(i).Name&"</b></font></td>")
    Next
    Response.Write("</tr>")
    ''显示内容
    For i = 1 To rs.PageSize
        Response.Write("<tr bgcolor=#99ccff bordercolor=#000066>")
        For j = 0 To Columns.Count -1
            Response.Write("<td><font size=2>"&Columns(j)&"</font></td>")
        Next
        Response.Write("</tr>")