'motif 又修改了下
'code要检测的代码
'http://www.downcodes.com/asp.asp
'leixing html par ubb
'nopic 代码没有图片时默认值
fonction toppic(code,leixing,nopic)
définir regex = nouvelle expression rationnelle
regex.ignorecase = vrai
regex.global = vrai
si leixing = "html" alors
regex.pattern = "<img(.*?)srcs?=s?(u0022?)([^u0022/>]+)"
autre
regex.pattern = "[img]([^u005B]+)"
finir si
définir les correspondances = regex.execute (code)
si regex.test(code) alors
si leixing = "html" alors
sujet = matches(0).submatches(3)
autre
sujet = matches(0).submatches(0)
finir si
autre
sujet = sujet
finir si
fonction de fin
code1 = "<img src=""1.gif"">"
pic = toppic(code1,"html","nopic.gif")
réponse.Écrire une photo