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

王朝asp·作者佚名  2008-05-31
窄屏简体版  字體: |||超大  

'把pattern 又修改了下

'code要检测的代码

'http://www.knowsky.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=""1.gif"">"

pic = toppic(code1,"html","nopic.gif")

response.Write pic

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航