<٪
'================================================================
اسم الوظيفة: CovereMoteFile
"الوظيفة: حفظ الملفات عن بُعد إلى محلي
المعلمة: strfilename ---- حفظ اسم الملف
'strremoteurl --- عنوان URL للملف البعيد
'قيمة الإرجاع: منطقية حقيقية/خاطئة
'================================================================
FunctionSavereMoteFile (ByvalStrfilename ، ByvalStrreMoteUrl)
DimoStream ، استرجاع ، getRemotedata
coveremotefile = خطأ
onerrorresumenext
setRetRieval = server.createBject ("Microsoft.xmlhttp")
استرجاع
استرجاع
ifretrieval.readyState <> 4thenexitfunction
ifretrieval.status> 300thenexitfunction
getRemotedata = retrieval.ResponseBody
setRetRieval = لا شيء
iflenb (getRemotedata)> 100th
setostream = server.createBject ("adodb.stream")
ostream.type = 1
ostream.mode = 3
ostream.Open
ostream.writegetRemotedata
ostream.savetofileserver.mappath (strfilename) ، 2
ostream.cancel
ostream.close
setostream = لا شيء
آخر
exitfunction
Endif
iferr.number = 0then
coveremotefile = صحيح
آخر
err.clear
Endif
الوظيفية
٪>
