function getimg(str)[br]dim objregex,zzstr,matches,match,retstr,imglist,imgone,strpath[br]set objregex = new regexp[br]objregex.ignorecase = true[br]objregex.global = true[br]zzstr=""[br]objregex.pattern = zzstr[br]set matches = objregex.execute(str)[br]for each match in matches[br]retstr = retstr &"|"& match.value[br]next[br]if retstr<>"" then[br]imglist=split(retstr,"|")[br]imgone=replace(imglist(1),strpath,"")[br]getimg=imgone[br]else[br]getimg=""[br]end if[br]end function
[p]调用的时候 只需要 <%=getimg(rs("字段"))%>[/p]

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