<%
function initStr(strs)
	Set objRegExp = New Regexp'设置配置对象
	objRegExp.IgnoreCase = True'忽略大小写
	objRegExp.Global = True'设置为全文搜索
	objRegExp.Pattern = "<img.+?>"'为了确保能准确地取出图片地址所以分为两层配置：首先找到里面的<IMG>标签，然后再取出里面的图片地址后面的getimgs函数就是实现后一个功能的。
	'objRegExp.Pattern = "<img.+?\.(gif|jpg|bmp|jpeg|psd|png|svg|dxf|wmf|tiff)>"
	Set Matches =objRegExp.Execute(strs)'开始执行配置
	For Each Match in Matches	
 		initStr = initStr &getimgs( Match.Value )'执行第二轮的匹配
	Next 
end function
function getimgs(str)
	dim tempImgUrlStr
	getimgs=""
	Set objRegExp1 = New Regexp
	objRegExp1.IgnoreCase = True
	objRegExp1.Global = True
	objRegExp1.Pattern = "src=.+?\.(gif|jpg|bmp|jpeg|psd|png|svg|dxf|wmf|tiff)"'取出里面的地址
	set mm=objRegExp1.Execute(str)
	For Each Match1 in mm
		tempImgUrlStr=replace(replace(Match1.Value,"""",""),"src=","")		
		getimgs=getimgs&"||"&tempImgUrlStr'把里面的地址串起来备用
	next
end function
%>