GetBody asp实现截取字符串的代码

网学网ASP编辑为广大网友搜集整理了：GetBody asp实现截取字符串的代码绩等信息，祝愿广大网友取得需要的信息，参考学习。

''==================================================
''函数名：GetBody
''作 用：截取字符串
''参 数：ConStr ------将要截取的字符串
''参 数：StartStr ------开始字符串
''参 数：OverStr ------结束字符串
''参 数：IncluL ------是否包含StartStr
''参 数：IncluR ------是否包含OverStr
''==================================================
Function GetBody(ConStr,StartStr,OverStr,IncluL,IncluR)
If ConStr="$False$" or ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then
GetBody="$False$"
Exit Function
End If
Dim ConStrTemp
Dim Start,Over
ConStrTemp=Lcase(ConStr)
StartStr=Lcase(StartStr)
OverStr=Lcase(OverStr)
Start = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare)
If Start<=0 then
GetBody="$False$"
Exit Function
Else
If IncluL=False Then
Start=Start+LenB(StartStr)
End If
End If
Over=InStrB(Start,ConStrTemp,OverStr,vbBinaryCompare)
If Over<=0 Or Over<=Start then
GetBody="$False$"
Exit Function
Else
If IncluR=True Then
Over=Over+LenB(OverStr)
End If
End If
GetBody=MidB(ConStr,Start,Over-Start)
End Function