コードコピーは次のとおりです。
<％
ifsavefile（ "/htm/list.htm"、 "http://www.xxx.com/asp/list.asp"）then
Response.write "created"
それ以外
response.write「生成されていない」
endif
functionsavefile（localfilename、remotefileurl）
ディマド、検索、getRemotedata
onerrorresumenext
setretrieval = server.createObject（ "microso"＆ "ft.xm"＆ "lhttp"））
withretrieval
.open "get"、remotefileurl、false、 ""、 "
。送信
getRemotedata = .ResponseBody
終わりに
setretrieval =何もない
setads = server.createObject（ "ado"＆ "db.str"＆ "eam"）
withs
.type = 1
。開ける
.writegetRemotedata
.savetofileserver.mappath（localfilename）、2
。キャンセル（）
。近い（）
終わりに
setads = Nothing
iferr <> 0 -then
savefile = false
err.clear
それ以外
savefile = true
endif
エンド機能
％>