ASP拦截和采集网页指定内容的功能

　　ASP采集程序中的字符串拦截功能具有许*敏*感*词*. 您可以指定拦截范围. 您只需要自定义开始和结束字符串，还可以指定所拦截的字符串是否收录开始和结束字符串.

　　ASP截取网页指定内容的功能参数说明

　　ConStr ------要截取的字符串

　　StartStr ------起始字符串

　　OverStr ------结束字符串

　　收录------是否包括在内？

　　StartStrIncluR ------是否收录OverStr

　　ASP拦截和采集网页指定内容的功能

<p>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