道招

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
更新时间:
上一篇:asp函数InStrB讲解下一篇:百度与微软必应bing的合作

相关文章

asp计算文件下载时间函数

我们经常看到网站上面显示文件下载时间的估算,你知道是怎么实现的吗 我们用到这样一个函数 Function DownloadTime(intFileSize, strModemType) Dim 阅读更多…

asp获取当前准确域名的代码

以下代码可以很简单的获取当前页面的准确域名 &lt;% call chaxun sub chaxun()&#039;定义函数chaxun yuming=Request.ServerVariab 阅读更多…

asp指定格式显示系统日期和时间FormatDateTime函数

获取当前系统日期和时间,ASP输出可以这样写:[code lang="vb"]&lt;%=now()%&gt;[/code] Year(now()) 获取年份, ASP输出:[code lang 阅读更多…

asp函数InStrB讲解

asp有个函数是instr,而instrb和这个函数相似 instrb判断第二个字符串是否包含在第一个字符串中,如果存在则返回第二个字符串在第一个中的位置。 instrb([开始位置],第一个字 阅读更多…

关注道招网公众帐号