คุณสามารถเลียนแบบได้ว่าหากมีรูปภาพในพื้นที่ QQ รูปภาพที่แนบมาจะแสดงหลังชื่อ
ASP/Visual Basic code:
รหัสโปรแกรม
<%
'************************************************ * *
'*ชื่อฟังก์ชัน: GetImgFromContent
'*คำอธิบายพารามิเตอร์: html ที่แยกโค้ด html แล้ว
'*การแนะนำฟังก์ชัน: แยกรูปภาพในส่วนนี้ของโค้ด html
'*ผู้เขียนโปรแกรม: evio http://www.backci.cn/code
'*http://www.downcodes.com/
'************************************************ * *
ฟังก์ชั่น GetImgFromContent (html)
Dim Re, แมตช์, แมตช์, htm, t
htm = ""
ตั้ง Re = RegExp ใหม่
re.IgnoreCase = จริง
re.Global = จริง
ใหม่ รูปแบบ = "<img [^<]*src=""(.*)""[^>]*>" '--<img [^<]*src=""(.*)""[ ^>]*>
ตั้งค่าการจับคู่ = re.Execute(html)
สำหรับแต่ละนัดในการแข่งขัน
htm = htm + (match.SubMatches(0)) & "|$|"
ต่อไป
ชุดการแข่งขัน = ไม่มีอะไร
t = แยก(htm, "|$|")(0)
ถ้า len(t) = 0 หรือ t = "" แล้ว
เสื้อ = "_template_Images/prive.jpg"
สิ้นสุดถ้า
ze = "<img src='" & t & "' width='191' ความสูง='119' />"
ฟังก์ชั่นสิ้นสุด
-