You can imitate that if there are pictures in QQ space, the attached pictures will be displayed after the title
. ASP/Visual Basic code:
Program code
<%
'************************************************ **
'*Function name: GetImgFromContent
'*Parameter description: html extracted html code
'*Function introduction: Extract the pictures in this part of the html code
'*Program author: evio http://www.backci.cn/code
'*http://www.downcodes.com/
'************************************************ **
function GetImgFromContent(html)
Dim Re, match, matches, htm, t
htm = ""
set Re = new RegExp
re.IgnoreCase =True
re.Global = True
re.Pattern = "<img [^<]*src=""(.*)""[^>]*>" '--<img [^<]*src=""(.*)""[ ^>]*>
Set matches = re.Execute(html)
for each match in matches
htm = htm + (match.SubMatches(0)) & "|$|"
next
set matches = nothing
t = split(htm, "|$|")(0)
if len(t) = 0 or t = "" then
t = "_template_Images/prive.jpg"
end if
ze = "<img src='" & t & "' width='191' height='119' />"
end function
%>