GetPaing 函数之asp采集函数中用到的获取分页的代码
2018-09-06 11:06
==================================================
函数名：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
上一篇：TSYS资源特性的效率提高方法
文章标题：GetPaing 函数之asp采集函数中用到的获取分页的代码
文章链接：http://soscw.com/essay/9025.html