1.次のテキストファイルをダウンロードして、.txtをremote.aspに変更します。特定の設定方法があります。
コードコピーは次のとおりです。
<％
'リソースを追加するときにリモート写真を保存するかどうか
constssavefileselect = true
'リモート画像保存ディレクトリ、最後に "/"を追加しないでください
constssavefilepath = "/yages/news"
'リモート画像保存タイプ
constsfileext = "jpg | gif | bmp | png"
'//////////////////////////////////////////////////////////////
'機能：文字列内のリモートファイルをローカルファイルとして置き換え、リモートファイルを保存します
'パラメーター：
'shtml：交換する文字列
'SSavePath：ファイルを保存するパス
'SEXT：交換拡張機能を実行します
functionreplaceremoteurl（shtml、ssavefilepath、sfileext）
dims_content
s_content = shtml
ifisobjinstalled（ "microsoft.xmlhttp"）= falsethen
置き換えemoteurl = s_content
exitFunction
endif
dimre、remotefile、remotefileurl、savefilename、savefiletype、arrsavefilenames、arrsavefilename、ssavefilepaths
setre = newRegexp
re.ignorecase = true
re.global = true
re.pattern = "（（http | https | ftp | rtsp | mms）：（//////）{1}（（/w）+[。]）{1、}（n et | com | cn | org | cc | tv | [0-9] {1,3}）（/s*//）（（/s）+[。] {1}（ "＆sfileext＆"）） "
setRemoteFile = re.execute（s_content）
foreachremotefileurlinremotefile
savefiletype = cheplage（leplage（remotefileurl、 "/"、 "a"）、 "："、 "a"）
arrsavefilename = right（savefiletype、12）
ssavefilepaths = ssavefilepath＆ "/"
savefilename = ssavefilepaths＆arrsavefilename
callaveremotefile（savefilename、remotefileurl）
s_content =置換（s_content、remotefileurl、savefilename）
次
置き換えemoteurl = s_content
エンド機能
'///////////////////////////////////////////
'機能：リモートファイルをローカルに保存します
'パラメーター：LocalFileName ------ローカルファイル名