QQ スペースに画像がある場合、添付された画像が
ASP/Visual Basic コードの後に表示されることを真似できます。
プログラムコード
<%
'************************************************ * *
'*関数名: GetImgFromContent
'*パラメータの説明: html 抽出された HTML コード
'※機能紹介：htmlコードのこの部分の画像を抽出します
'*プログラム作者: evio http://www.backci.cn/code
'*http://www.downcodes.com/
'************************************************ * *
関数 GetImgFromContent(html)
Dim Re、一致、一致、htm、t
htm = ""
set Re = 新しい正規表現
re.IgnoreCase =True
re.Global = True
re.Pattern = "]*>" '--
]*>
一致を設定 = re.Execute(html)
試合の各試合ごとに
htm = htm + (match.SubMatches(0)) & "|$|"
次
一致を設定 = なし
t = スプリット(htm, "|$|")(0)
len(t) = 0 または t = "" の場合
t = "_template_Images/prive.jpg"
終了する場合
ze = ""
終了関数
%>