检查当前操作是否在翻页（ASP)

最新推荐文章于 2023-11-13 14:03:44 发布

问道老王

最新推荐文章于 2023-11-13 14:03:44 发布

阅读量1k

点赞数

分类专栏： Asp 文章标签： asp function each

本文链接：https://blog.csdn.net/sYwb/article/details/345471

版权

Asp 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

'*********************************************
'检查是否在翻页 (通过比较除传递页数之外的参数值:QueryString翻页实用)
'*********************************************
Function  IsTurnPage(strPageVar)
    Dim fileLast,fileNow,strVal,VarArray1,VarArray2
        Dim iLoc,blnTurning
        blnTurning = true
        fileLast = Request.ServerVariables("HTTP_REFERER")
        iLoc = InStr(1,fileLast,"?",1)
        if iLoc >0 then
                fileLast = Mid(fileLast,iLoc+1)
                for each strVal in Request.QueryString
                  if strVal <> strPageVar then
                       if Request.QueryString(strVal) <> GetQueryString(strVal,fileLast) then
                              blnTurning = false
                              Exit for
                           end if
                  end if
                next
        end if
        IsTurnPage = blnTurning
End Function

'*********************************************
'取得strQueryString中的strVal的值，如：GetQueryString("page","st=1&page=2&ss=yes") = 2
'*********************************************
Function GetQueryString(strVal,strQueryString)
    Dim iLoc,iStart,iEnd,VarArray
        Dim k
    iLoc = InStr(1,strQueryString,"=",1)
        if (iLoc> 0) then
           VarArray = Split(strQueryString,"&")
           for k=0 to UBound(VarArray)
                iStart = InStr(1,VarArray(k),strVal,1)
                        iEnd = InStr(1,VarArray(k),"=",1)
                if iStart>0 then
                           GetQueryString = Mid(VarArray(k),iEnd+1)
                           Exit for
                        end if
           next
        else
           GetQueryString = ""
        end if
End Function