Sie können nachahmen, dass, wenn Bilder im QQ-Bereich vorhanden sind, die angehängten Bilder nach dem Titel ASP/Visual Basic-Code angezeigt werden
:
Programmcode
<%
'************************************************** * *
'*Funktionsname: GetImgFromContent
'*Parameterbeschreibung: HTML-extrahierter HTML-Code
'*Funktionseinführung: Extrahieren Sie die Bilder in diesem Teil des HTML-Codes
'*Programmautor: evio http://www.backci.cn/code
'*http://www.downcodes.com/
'************************************************** * *
Funktion GetImgFromContent(html)
Dim Re, Streichholz, Streichhölzer, htm, t
htm = ""
set Re = new RegExp
re.IgnoreCase =True
re.Global = True
re.Pattern = "]*>" '--]*>
Übereinstimmungen festlegen = re.Execute(html)
für jedes Spiel in Spielen
htm = htm + (match.SubMatches(0)) & "|$|"
nächste
Übereinstimmungen festlegen = nichts
t = split(htm, "|$|")(0)
wenn len(t) = 0 oder t = "", dann
t = "_template_Images/prive.jpg"
Ende wenn
ze = ""
Endfunktion
%>