Vous pouvez imiter que s'il y a des images dans l'espace QQ, les images jointes seront affichées après le titre
ASP/Visual Basic :
Code programme
<%
'************************************************ * *
'*Nom de la fonction : GetImgFromContent
'*Description du paramètre : code HTML extrait
'*Introduction à la fonction : Extraire les images dans cette partie du code html
'*Auteur du programme : evio http://www.backci.cn/code
'*http://www.downcodes.com/
'************************************************ * *
fonction GetImgFromContent(html)
Dim Re, match, matchs, htm, t
htm = ""
définir Re = nouveau RegExp
re.IgnoreCase = Vrai
re.Global = Vrai
re.Pattern = "<img [^<]*src=""(.*)""[^>]*>" '--<img [^<]*src=""(.*)""[ ^>]*>
Définir les correspondances = re.Execute(html)
pour chaque match en matchs
htm = htm + (match.SubMatches(0)) & "|$|"
suivant
définir des correspondances = rien
t = divisé(htm, "|$|") (0)
si len(t) = 0 ou t = "" alors
t = "_template_Images/prive.jpg"
finir si
ze = "<img src='" & t & "' width='191' height='119' />"
fonction de fin
%>