Anda bisa meniru jika ada gambar di ruang QQ, gambar terlampir akan ditampilkan setelah judul
ASP/kode Visual Basic:
Kode program
<%
'******************************************************* *
'*Nama fungsi: GetImgFromContent
'*Deskripsi parameter: html mengekstrak kode html
'*Pengenalan fungsi: Ekstrak gambar di bagian kode html ini
'*Penulis program: evio http://www.backci.cn/code
'*http://www.downcodes.com/
'******************************************************* *
fungsi GetImgFromContent(html)
Redupkan Re, cocokkan, cocok, htm, t
htm = ""
atur Re = RegExp baru
re.IgnoreCase = Benar
re.Global = Benar
re.Pattern = "<img [^<]*src=""(.*)""[^>]*>" '--<img [^<]*src=""(.*)""[ ^>]*>
Setel kecocokan = re.Execute(html)
untuk setiap pertandingan dalam pertandingan
htm = htm + (cocok.SubMatches(0)) & "|$|"
Berikutnya
set kecocokan = tidak ada
t = membagi(htm, "|$|")(0)
jika len(t) = 0 atau t = "" maka
t = "_template_Images/prive.jpg"
berakhir jika
ze = "<img src='" & t & "' lebar='191' tinggi='119' />"
fungsi akhir
%>