'================================================================
اسم العملية: coveremotefile
"الوظيفة: حفظ الملفات عن بُعد إلى محلي
'المعلمة: localfilename ----- اسم الملف المحلي
'المعلمات: RemoteFileurl ----- عنوان URL للملف البعيد
'================================================================
FunctionSavereMoteFile (LocalFilename ، RemoteFileurl)
coveremotefile = صحيح
Dimads ، استرجاع ، getRemotedata
onerrorresumenext
setRetRieval = server.createBject ("Microsoft.xmlhttp")
withretrival
Open "Get" ، RemoteFileurl ، false ، "" ، ""
.يرسل
if.readyState <> 4or.status> 300then
coveremotefile = خطأ
exitfunction
Endif
getRemotedata = .responseBody
endwith
setRetRieval = لا شيء
'iflenb (getRemotedata) <100thenexitfunction
'ifmaxfilesize> 0then
'iflenb (getRemotedata)> 5000 thenexitfunction
استجابة. write (جولة (Lenb (getRemotedata)/1024)) و "KB"
'Endif
setads = server.createBject ("adodb.stream")
ويتادس
.type = 1
.يفتح
.writegetRemotedata
.savetofilesserver.mappath (LocalFilename) ، 2
.يلغي()
.يغلق()
endwith
iferr.number <> 0then
coveremotefile = خطأ
exitfunction
err.clear
Endif
setads = لا شيء
الوظيفية