Puede imitar que si hay imágenes en el espacio QQ, las imágenes adjuntas se mostrarán después del título
. Código ASP/Visual Basic:
Código de programa
<%
'************************************************ * *
'*Nombre de la función: GetImgFromContent
'*Descripción del parámetro: código html extraído html
'*Introducción a la función: extrae las imágenes en esta parte del código html
'*Autor del programa: evio http://www.backci.cn/code
'*http://www.downcodes.com/
'************************************************ * *
función ObtenerImgFromContent(html)
Dim Re, partido, fósforos, htm, t
htm = ""
establecer Re = nueva RegExp
re.IgnoreCase =Verdadero
re.Global = Verdadero
re.Pattern = "<img [^<]*src=""(.*)""[^>]*>" '--<img [^<]*src=""(.*)""[ ^>]*>
Establecer coincidencias = re.Execute(html)
para cada partido en partidos
htm = htm + (match.SubMatches(0)) & "|$|"
próximo
establecer coincidencias = nada
t = dividir(htm, "|$|")(0)
si len(t) = 0 o t = "" entonces
t = "_template_Images/prive.jpg"
terminar si
ze = "<img src='" & t & "' ancho='191' alto='119' />"
función final
%>