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 = "]*>" '--
]*>
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 = ""
função final
%>