我们把函数名命名为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

随机文章

curl获取https开头的url的内容
curl获取https开头的url的内容

moto me600/mb300 刷机教程
moto me600/mb300 刷机教程

财猫省钱浏览器使用心得
财猫省钱浏览器使用心得

为网站添加google +1按钮
为网站添加google +1按钮

受期待的网页游戏《圣境传说》大陆代理权被昆仑万维获得
受期待的网页游戏《圣境传说》大陆代理权被昆仑万维获得

第一讲:Android开发环境的搭建
第一讲:Android开发环境的搭建

相关文章

OPPO A103手机意外丢失,买酷比E66送话费
OPPO A103手机意外丢失,买酷比E66送话费

Zaker已在解决进入频道空白问题
Zaker已在解决进入频道空白问题

Flipboard更新后一大优点已经不再了
Flipboard更新后一大优点已经不再了

百度与微软必应bing的合作
百度与微软必应bing的合作

财猫省钱浏览器针对java异常hold住
财猫省钱浏览器针对java异常hold住

内容分享:道招
本文链接:asp获取指定网页指定内容的函数
道招声明:除特别标注或作者不详外,本站所有文章均为原创,转载请注明。欢迎共同关注互联网!