現在、バグがまだあり、最新のテストページはhttp://www.reallydo.com/getimg.aspです。
通常の分析ページは、http：//jorkin.reallydo.com/article.asp?id=380にあります
バグが見つかったら、後でメッセージを残してください、ありがとう。
1.31修正
SRC =正しく一致できない後のスペース。修理済み。
src = ''が空のときにエラーが発生しました。修理済み。
バグが見つかりました：画像パスに複数のスペースがある場合、保持できるのは1つだけです。修正されていない。
2.18修正
画像パスに複数のスペースがある場合、1つのバグのみを保持できます。修理済み。
コードコピーは次のとおりです。
<％
'関数：すべての画像アドレスを取得し、配列に保存します。
'出典：http：//jorkin.reallydo.com/article.asp?id=448
'交換機能が必要です：http：//jorkin.reallydo.com/article.asp?id=406
functiongetimg（sstring）
DimsReallydo、Regex、Ireallydo
dimomatches、cmatch
'//空の配列を定義します
ireallydo = -1
redimareallydo（ireallydo）
ifisnull（sstring）then
getimg = ""
exitFunction
endif
'// HTMLコードをフォーマットします
'//各<IMGラインブレークを持ち込み、定期的な交換を容易にします
SREALLYDO = SSTRING
onerrorresumenext
sreallydo = falple（sreallydo、vbcr ""）
sreallydo = falple（sreallydo、vblf ""）
sreallydo = falple（sreallydo、vbtab、 ""）
sreallydo = falple（sreallydo、 "<img"、vbcrlf＆ "<img"、1、-1,1）
SREALLYDO = facty（sreallydo、 "/>"、 "/>"、1、-1,1）
sreallydo = applecteall（sreallydo、 "="、 "="、true）
sreallydo = applecteall（sreallydo、 ">"、 ">"、true）
SREALLYDO = facter（sreallydo、 "> <"、 ">"＆vbcrlf＆ "<"）
SREALLYDO = TRIM（SREALLYDO）
onerrorgoto0
setRegex = newRegexp
regex.ignorecase = true
regex.global = true
'//オンクリック、オンロード、その他のスクリプトを削除します
regex.pattern = "/s [on]。+？=（[/" "| /']（。*?)/1"