再发几个ASP不错的函数(3)

    Else                                    '如果是中间的页
        If lngCurPage <= 5 Then
            j = 1
        Else
            j = lngCurPage - 5
        End If
        If lngPageCount <= lngCurPage + 5 Then
            k = lngPageCount
        Else
            k = lngCurPage + 5
        End If
        Response.Write("<a href=""?" & strQueryString & "&p=" & 1 & """>" & "<<" & "</a>  ")
        For i = j To lngCurPage - 1
            Response.Write("<a href=""?" & strQueryString & "&p=" & i & """>" & i & "</a> ")
        Next
        Response.Write(lngCurPage & " ")
        For i = lngCurPage + 1 To k
            Response.Write("<a href=""?" & strQueryString & "&p=" & i & """>" & i & "</a> ")
        Next
        Response.Write(" <a href=""?" & strQueryString & "&p=" & lPageCount & """>" & ">>" & "</a>")
    End If    
End Sub
'********************
'函数作用:当前页请求方式是否为POST
'说明:用于在同一页面处理显示和数据操作，当PostBack()为真时说明提交表单至当前页，应进行数据后台操作
Function PostBack()
    If UCase(Trim(Request.ServerVariables("REQUEST_METHOD"))) = "POST" Then
        PostBack = True