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

  For Each Match in Matches      ' 对 Matches 集合进行迭代。
    RetStr = RetStr & Match.Value & "," & vbCRLF
  Next
  doReExec = RetStr
End Function
复制代码 '********************
'函数作用:显示分页链接
'参数:lngCurPage:当前页是第几页,lngPageCount:一共几页,strSueryString:分页链接需要附加的QueryString变量
Sub showPageNav(lngCurPage,lngPageCount,ByVal strQueryString)
    Response.Write "当前第" & lngCurPage & "页,共:" & lngPageCount & "页"
    Dim i,j,k
    If lngCurPage = 1 Then                    '如果是第一页
        '如果lngPageCount小于10,则导航页最多到lngPageCount页
        If lngPageCount < 10 Then
            j = lngPageCount
        Else
            j = 10
        End If
        For i = 2 To j
            Response.Write("<a href=""?" & strQueryString & "&p=" & i & """>" & i & "</a> ")
        Next
    ElseIf lngCurPage = lngPageCount Then    '如果是最后一页
        '如果lngPageCount小于10,则导航起始从1开始
        If lngPageCount < 10 Then
            j = 1
        Else
            j = lngPageCount - 10
        End If
        For i = j To lngPageCount - 1
            Response.Write("<a href=""?" & strQueryString & "&p=" & i & """>" & i & "</a> ")
        Next
        Response.Write(lPageCount)