ใช้ asp เพื่อรับรูปภาพในเนื้อหาและรับที่อยู่ของรูปภาพแรกในเนื้อหา โดยหลักแล้วจะต้องบันทึกรูปภาพในเนื้อหาเป็น cms คัดลอกรหัสรหัสดังต่อไปนี้:
-
'รับภาพทั้งหมดในเนื้อหา'
-
ฟังก์ชัน Get_ImgSrc(ByVal t0)
Dim t1, Regs, แมตช์, แมตช์
t1=
ถ้าไม่ใช่(IsNull(t0) หรือ Len(t0)=0) จากนั้น
ตั้งค่า Regs=RegExp ใหม่
Regs.Pattern=<img[^>]+src=([^>]+)[^>]*>
Regs.Ignorecase=จริง
Regs.Global=จริง
ตั้งค่าการจับคู่=Regs.Execute(t0)
ถ้าตรงกันนับ>0 แล้ว
สำหรับการแข่งขันแต่ละครั้งในการแข่งขัน
ถ้าซ้าย(Match.SubMatches(0),7)<>http:// จากนั้น
t1=t1&<option value=&Match.SubMatches(0)&>&Match.SubMatches(0)&</option>
สิ้นสุด ถ้า
ต่อไป
สิ้นสุด ถ้า
สิ้นสุด ถ้า
Get_ImgSrc=t1
ตั้งค่าการแข่งขัน=ไม่มีอะไร
ตั้งค่า Regs=ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
'รับภาพแรกในเนื้อหา
-
ฟังก์ชั่น Frist_Pic (ByVal t0)
Frist_Pic=
Dim Regs,แมตช์
ตั้งค่า Regs=RegExp ใหม่
Regs.Ignorecase=จริง
Regs.Global=จริง
Regs.Pattern=<img[^>]+src=([^>]+)[^>]*>
ตั้งค่าการจับคู่=Regs.Execute(t0)
ถ้า Regs.test(t0) แล้ว
Frist_Pic=แมตช์(0).แมตช์ย่อย(0)
สิ้นสุด ถ้า
ตั้งค่าการแข่งขัน=ไม่มีอะไร
ตั้งค่า Regs=ไม่มีอะไร
ฟังก์ชันสิ้นสุด