'把padrão 又修改了下
'código要检测的代码
'http://www.downcodes.com/asp.asp
'leixing html ou ubb
'nopic 代码没有图片时默认值
função tópico(código,leixing,nopic)
definir regex = novo regexp
regex.ignorecase = verdadeiro
regex.global = verdadeiro
se leixing = "html" então
regex.pattern = "<img(.*?)srcs?=s?(u0022?)([^u0022/>]+)"
outro
regex.pattern = "[img]([^u005B]+)“
terminar se
definir correspondências = regex.execute (código)
se regex.test(código) então
se leixing = "html" então
tópico=correspondências(0).subcorrespondências(3)
outro
tópico=correspondências(0).subcorrespondências(0)
terminar se
outro
tópico = nopic
terminar se
função final
código1 = "<img src=""1.gif"">"
pic = tópico(code1,"html","nopic.gif")
resposta.Escrever foto