'==================================================
'函数名：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
【GetPaing 函数之asp采集函数中用到的获取分页的代码】相关文章：