ASP如何获得代码中第一张图片地址

　2007-10-14 10:35:26　来源：WEB开发网　闂侀潧妫撮幏锟�

婵犫拃鍛粶闁靛洤娲ㄩ埀顒佺⊕閵囩偟绱為敓锟�闂侀潧妫撮幏锟�　　闂佺ǹ绻楀▍鏇㈠极閻愭娑樷枎閹邦剛娉氶梺鍛婎殔濞层劌鈻撻幋婵愬殫妞ゆ梻鍘х憴锟�

核心提示：'把pattern 又修改了下'code要检测的代码'http://www.cncms.com/asp.asp'leixing html 或者ubb'nopic 代码没有图片时默认值function toppic(code,leixing,nopic) set regex =

'把pattern 又修改了下
'code要检测的代码
'http://www.cncms.com/asp.asp
'leixing html 或者ubb
'nopic 代码没有图片时默认值
function toppic(code,leixing,nopic)
　　　 set regex = new regexp
　　　 regex.ignorecase = true
　　　 regex.global = true
　　　 if leixing = "html" then
　　　　　　　 regex.pattern = "<img(.*?)src\s?\=\s?(\u0022?)([^\u0022\/>]+)"
　　　 else
　　　　　　　 regex.pattern = "\[img\]([^\u005B]+)“
　　　 end if
　　　 set matches = regex.execute(code)
　　　 if regex.test(code) then
　　　　　　　　　　　　　　　　 if leixing = "html" then
　　　　　　　　　　　　　 toppic = matches(0).submatches(3)
　　　　　　　　　　　　　　　　 else
　　　　　　　　　　　　　　　　　　　　　 toppic = matches(0).submatches(0)
　　　　　　　　　　　　　　　　 end if
　　　 else
　　　　　　　 toppic = nopic
　　　 end if
end function
code1 = "<img src=""http://www.cncms.com/1.gif"">"
pic = toppic(code1,"html","nopic.gif")
response.Write pic