วิธีรับ ASP เพื่อรับที่อยู่ภาพแรกในรหัส

'ปรับเปลี่ยนรูปแบบอีกครั้ง

'รหัสเพื่อตรวจจับ

'http://www.cuoxin.com/asp.asp

'Leixing HTML หรือ UBB

'รหัส nopic ไม่มีค่าเริ่มต้นของภาพ

ฟังก์ชั่น toppic (รหัส, leixing, nopic)

ตั้งค่า regex = ใหม่ regexp

regex.ignorecase = true

regex.global = true

ถ้า leixing = html แล้ว

regex.pattern = <img (.*?) src/s?/=/s? (/u0022?) ([^/u0022 //>])

อื่น

regex.pattern =/[img/] ([^/u005b]))

สิ้นสุดถ้า

Set Matches = regex.execute (รหัส)

ถ้า regex.test (รหัส) จากนั้น

ถ้า leixing = html แล้ว

toppic = matches (0) .submatches (3)

อื่น

toppic = matches (0) .submatches (0)

สิ้นสุดถ้า

อื่น

toppic = nopic

สิ้นสุดถ้า

ฟังก์ชันสิ้นสุด

code1 = <img src = 1.gif>

pic = toppic (code1, html, nopic.gif)

Response.write pic