通过函数的方法获取图片的地址,在网上搜了一下,还有部分的错误,我修正一下还可以用!目的是为了给图片增加title属性!这样可以把图片和属性单独分开,利于优化图片!
function getimgs(str)
getimgs=”"
Set objRegExp1 = New Regexp
objRegExp1.IgnoreCase = True
objRegExp1.Global = True
objRegExp1.Pattern =”http://.+?”"”
set mm=objRegExp1.Execute(str)
For Each Match1 in mm
getimgs=getimgs&left(Match1.Value,len(Match1.Value)-1)
next
end function
调用函数
<img src=”<% =getimgs(rs(”数据库中的内容”))%>”>
关于正则的写法,我不懂,用了别人的一个还是出现错误,还请高手指点一下!
看完了要说点啥么？