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

'函数名：GetPaing

'作用：获取分页

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

FunctionGetPaing(ByvalConStr,StartStr,OverStr,IncluL,IncluR)

IfConStr="$False$"orConStr=""OrStartStr=""OrOverStr=""orIsNull(ConStr)=TrueorIsNull(StartStr)=TrueOrIsNull(OverStr)=TrueThen

GetPaing="$False$"

ExitFunction

EndIf

DimStart,Over,ConTemp,TempStr

TempStr=LCase(ConStr)

StartStr=LCase(StartStr)

OverStr=LCase(OverStr)

Over=Instr(1,TempStr,OverStr)

IfOver<=0Then

GetPaing="$False$"

ExitFunction

Else

IfIncluR=TrueThen

Over=Over+Len(OverStr)

EndIf

EndIf

TempStr=Mid(TempStr,1,Over)

Start=InstrRev(TempStr,StartStr)

IfIncluL=FalseThen

Start=Start+Len(StartStr)

EndIf

IfStart<=0OrStart>=OverThen

GetPaing="$False$"

ExitFunction

EndIf

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

EndFunction