首页 / 网页编程 / ASP / ASP获得代码中第一张图片地址

<%
"把pattern 又修改了下
"code要检测的代码
"www.nml78z.cn/article.asp？id=29
"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（.*？）srcs？=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（2）
else
 toppic = matches（0）.submatches（0）
end if
else
toppic = nopic
end if
end function
code1 = "<img widht=""123"" src=""www.nml78z.cn/1.gif"" widht=""123""/>"
pic = toppic（code1,"html","nopic.gif"）
pic=Replace（pic, Chr（34） ,""）
pics=Split（pic," "）
pic=pics（0）
response.Write pic
%>