'把pola 又修改了下
'kode 要检测的代码
'http://www.downcodes.com/asp.asp
'leixing html 或者ubb
'nopic 代码没有图片时默认值
fungsi toppic(kode,leixing,nopic)
atur regex = regexp baru
regex.ignorecase = benar
regex.global = benar
jika leixing = "html" maka
regex.pattern = "<img(.*?)srcs?=s?(u0022?)([^u0022/>]+)"
kalau tidak
regex.pattern = "[img]([^u005B]+)“
berakhir jika
setel kecocokan = regex.execute(kode)
jika regex.test(kode) lalu
jika leixing = "html" maka
toppic = cocok(0).subcocok(3)
kalau tidak
toppic = cocok(0).subcocok(0)
berakhir jika
kalau tidak
toppik = nopik
berakhir jika
fungsi akhir
kode1 = "<img src=""1.gif"">"
pic = toppic(kode1,"html","nopic.gif")
respon. Tulis gambar