Вы можете имитировать, что если в пространстве QQ есть изображения, прикрепленные изображения будут отображаться после
кода ASP/Visual Basic:
Код программы
<%
'********************************************** *
'*Имя функции: GetImgFromContent
'*Описание параметра: извлеченный HTML-код
'*Введение в функцию: извлеките изображения из этой части html-кода.
'*Автор программы: evio http://www.backci.cn/code
'*http://www.downcodes.com/
'********************************************** *
функция GetImgFromContent(html)
Дим Ре, матч, матчи, htm, t
хтм = ""
установить Re = новое регулярное выражение
re.IgnoreCase = Истина
re.Global = Истина
re.Pattern = "<img [^<]*src=""(.*)""[^>]*>" '--<img [^<]*src=""(.*)""[ ^>]*>
Установить совпадения = re.Execute(html)
за каждый матч в матчах
htm = htm + (match.SubMatches(0)) & "|$|"
следующий
установить совпадения = ничего
т = раскол(htm, "|$|")(0)
если len(t) = 0 или t = "" то
t = "_template_Images/prive.jpg"
конец, если
ze = "<img src="" & t & "' width='191' height='119' />"
конечная функция
%>