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