可以模仿QQ空間裡有圖片的話就在標題後顯示有附件的圖片
ASP/Visual Basic代碼:
程序代碼
<%
'***************************************************
'*函數名 : GetImgFromContent
'*參數說明 : html 被提取的Html 代碼
'*功能簡介 : 提取這部分Html代碼中的圖片
'*程序作者 : evio http://www.backci.cn/code
'*http://www.knowsky.com/
'***************************************************
function GetImgFromContent(Html)
Dim Re, match, matchs, htm, t
htm = ""
set Re = new RegExp
re.IgnoreCase =True
re.Global = True
re.Pattern = "<img [^<]*src=""(.*)""[^>]*>" '--<img [^<]*src=""(.*)""[^>]*>
Set matchs = re.Execute(Html)
for each match in matchs
htm = htm + (match.SubMatches(0)) & "|$|"
next
set matchs = 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
%>