asp获取指定网页指定内容的函数

如果您发现本文排版有问题，可以先点击下面的链接切换至老版进行查看！！！

asp获取指定网页指定内容的函数

我们把函数名命名为GetMyContent

Function GetMyContent(ConStr,StartStr,OverStr,IncluL,IncluR)
       If ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then '判断是不是空
          GetContent="0"
          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
          GetMyContent= 0
          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
          GetMyContent="无"
          Exit Function
       Else
          If IncluR=True Then
             Over=Over+LenB(OverStr)
          End If
       End If
       GetMyContent=MidB(ConStr,Start,Over-Start)
    End Function

分类：