نسخة الكود كما يلي:
<٪
ifSaveFile ("/htm/list.htm" ، "http://www.xxx.com/asp/list.asp") ثم
استجابة. الكتابة "تم إنشاؤها"
آخر
استجابة. "لا يتم إنشاؤها"
Endif
FunctionSaveFile (LocalFilename ، RemoteFileurl)
Dimads ، استرجاع ، getRemotedata
onerrorresumenext
setRetRieval = server.createBject ("microso" و "ft.xm" و "lhttp")
withretrival
Open "Get" ، RemoteFileurl ، false ، "" ، ""
.يرسل
getRemotedata = .responseBody
endwith
setRetRieval = لا شيء
setads = server.createBject ("ado" و "db.str" و "eam")
ويتادس
.type = 1
.يفتح
.writegetRemotedata
.savetofileserver.mappath (LocalFilename) ، 2
.يلغي()
.يغلق()
endwith
setads = لا شيء
iferr <> 0then
SaveFile = false
err.clear
آخر
SaveFile = صحيح
Endif
الوظيفية
٪>