1. قم بتنزيل الملف النصي التالي وتغيير .txt إلى Remote.asp ، هناك طرق إعدادات محددة.
نسخة الكود كما يلي:
<٪
ما إذا كان سيتم حفظ الصور عن بُعد عند إضافة الموارد
constsSaveFilesElect = صحيح
"دليل حفظ الصورة عن بُعد ، من فضلك لا تضيف"/"في النهاية
constssavefilepath = "/الصور/الأخبار"
'نوع حفظ الصورة عن بعد
constsfilext = "jpg | gif | bmp | png"
'//////////////////////////////////////////////////////////////////////////////////////////////////
"الوظيفة: استبدل الملف البعيد في السلسلة كملف محلي وحفظ الملف البعيد
المعلمة:
'SHTML: سلسلة لاستبدالها
'ssavepath: المسار لحفظ الملف
'sext: تنفيذ تمديد الاستبدال
functionReplaceremoteurl (SHTML ، ssavefilepath ، sfilext)
DIMS_CONTENT
s_content = shtml
ifisobjinstalled ("microsoft.xmlhttp") = falsethen
replaceremoteurl = s_content
exitfunction
Endif
Dimre ، RemoteFile ، RemoteFileurl ، SaveFilename ، SaveFileType ، ArrsaveFilenames ، Arrsavefilename ، ssavefilepaths
setre = newregexp
re.ignorecase = صحيح
re.global = صحيح
re.pattern = "((http | https | ftp | rtsp | mms): (//////) {1} ((/w)+[.]) {1 ،} (n et | com | cn | org | cc | tv | [0-9] {1،3}) (/s*//) ((/s)+[.] {1} ("& sfilext &"))) "
setRemoteFile = re.execute (S_Content)
foreachRemoteFileUrlinRemoteFile
SaveFileType = استبدال (استبدال (RemoteFileurl ، "/" ، "A") ، ":" ، "A")
Arrsavefilename = يمين (SaveFileType ، 12)
ssavefilepaths = ssavefilepath & "/"
SaveFilename = ssavefilepaths & arrsavefilename
callsaveremotefile (SaveFilename ، RemoteFileurl)
s_content = استبدال (s_content ، RemoteFileurl ، SaveFilename)
التالي
replaceremoteurl = s_content
الوظيفية
'///////////////////////////////////////////////////////////////////
"الوظيفة: حفظ الملفات عن بُعد إلى محلي
'المعلمة: localfilename ----- اسم الملف المحلي