'نمط 又修改了下
'code要检测的代码
"http://www.downcodes.com/asp.asp."
'leixing html أو ubb
'nopic 代码没有图片时默认值
موضوع الوظيفة (الكود، ليكسينغ، نوبيك)
تعيين regex = regexp الجديد
regex.ignorecase = صحيح
regex.global = صحيح
إذا Leixing = "HTML" ثم
regex.pattern = "<img(.*?)srcs?=s?(u0022?)([^u0022/>]+)"
آخر
regex.pattern = "[img]([^u005B]+)"
نهاية إذا
تعيين التطابقات = regex.execute(code)
إذا regex.test (الكود) ثم
إذا Leixing = "HTML" ثم
الموضوع = المطابقات (0).المطابقات الفرعية (3)
آخر
الموضوع = مباريات (0).submatches (0)
نهاية إذا
آخر
الموضوع = nopic
نهاية إذا
وظيفة النهاية
code1 = "<img src=""1.gif"">"
الموافقة المسبقة عن علم = toppic(code1،"html"، "nopic.gif")
الرد.اكتب الموافقة المسبقة عن علم