function getimg(str)
dim objregex,zzstr,matches,match,retstr,imglist,imgone,strpath
set objregex = new regexp
objregex.ignorecase = true
objregex.global = true
zzstr=""
objregex.pattern = zzstr
set matches = objregex.execute(str)
for each match in matches
retstr = retstr &"|"& match.value
next
if retstr<>"" then
imglist=split(retstr,"|")
imgone=replace(imglist(1),strpath,"")
getimg=imgone
else
getimg=""
end if
end function

调用的时候 只需要 <%=getimg(rs("字段"))%>

该文章在 2010/7/14 1:01:22 编辑过