GetPaing 函数之asp采集函数中用到的取得分页的代码

GetPaing 函数之asp采集函数中用到的取得分页的代码：

'==================================================

'函数名：GetPaing

'作  用：获取分页

'==================================================

Function GetPaing(Byval ConStr,StartStr,OverStr,IncluL,IncluR)

If ConStr="$False$" or ConStr="" Or StartStr="" Or OverStr="" or IsNull(ConStr)=True or IsNull(StartStr)=True Or IsNull(OverStr)=True Then

   GetPaing="$False$"

   Exit Function

End If

Dim Start,Over,ConTemp,TempStr

TempStr=LCase(ConStr)

StartStr=LCase(StartStr)

OverStr=LCase(OverStr)

Over=Instr(1,TempStr,OverStr)

If Over<=0 Then

   GetPaing="$False$"

   Exit Function

Else

   If IncluR=True Then

      Over=Over+Len(OverStr)

   End If

End If

TempStr=Mid(TempStr,1,Over)

Start=InstrRev(TempStr,StartStr)

If IncluL=False Then

   Start=Start+Len(StartStr)

End If

If Start<=0 Or Start>=Over Then

   GetPaing="$False$"

   Exit Function

End If

ConTemp=Mid(ConStr,Start,Over-Start)

ConTemp=Trim(ConTemp)

ConTemp=Replace(ConTemp," ","")

ConTemp=Replace(ConTemp,",","")

ConTemp=Replace(ConTemp,"'","")

ConTemp=Replace(ConTemp,"""","")

ConTemp=Replace(ConTemp,">","")

ConTemp=Replace(ConTemp,"<","")

ConTemp=Replace(ConTemp," ","")

GetPaing=ConTemp

End Function

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!