' 修改把模式又了下
'code 要检测的代码
'http://www.downcodes.com/asp.asp
'leixing html或者ubb
'nopic代码无图片时默认值
函数toppic(代码,leixing,nopic)
设置正则表达式=新的正则表达式
正则表达式.ignorecase = true
正则表达式.global = true
如果 leixing = "html" 那么
regex.pattern = "<img(.*?)srcs?=s?(u0022?)([^u0022/>]+)"
别的
regex.pattern = "[img]([^u005B]+)“
结束如果
设置匹配= regex.execute(code)
如果 regex.test(code) 那么
如果 leixing = "html" 那么
主题=匹配（0）.子匹配（3）
别的
主题=匹配（0）.子匹配（0）
结束如果
别的
主题 = nopic
结束如果
结束函数
代码1 = "<img src=""1.gif"">"
pic = toppic(code1,"html","nopic.gif")
回复.写图片