Você pode imitar que se houver imagens no espaço QQ, as imagens anexadas serão exibidas após o
código ASP/Visual Basic:
Código do programa
<%
'********************************************** *
'*Nome da função: GetImgFromContent
'*Descrição do parâmetro: código html extraído do html
'*Introdução à função: Extraia as imagens nesta parte do código HTML
'*Autor do programa: evio http://www.backci.cn/code
'*http://www.downcodes.com/
'********************************************** *
função GetImgFromContent(html)
Dim Re, partida, partidas, htm, t
htm = ""
definir Re = novo RegExp
re.IgnoreCase = Verdadeiro
re.Global = Verdadeiro
re.Pattern = "<img [^<]*src=""(.*)""[^>]*>" '--<img [^<]*src=""(.*)""[ ^>]*>
Definir correspondências = re.Execute(html)
para cada partida em partidas
htm = htm + (match.SubMatches(0)) & "|$|"
próximo
definir correspondências = nada
t = divisão(htm, "|$|")(0)
se len(t) = 0 ou t = "" então
t = "_template_Images/prive.jpg"
terminar se
ze = "<img src='" & t & "' largura='191' altura='119' />"
função final
%>