برنامج التجميع التلقائي

أنا أعمل على موقع موسيقى مؤخرًا ، إنه ملف موسيقي. . . عادة ما يتم جمعها من الإنترنت. . لذا. . تم كتابة إجراء جمع.

نسخة الكود كما يلي:

<٪

onerrorresumenext

constuploadpath = "/تحميل/" "مسار تخزين الملفات

contallfilext = "JPG ، WMA ، SWF ، GIF" المسموح بها أن يتم جمع أنواع الملفات

'contallowfilesize = "200"

FunctionGetFile (url)

ifurl = "" ثم

exitfunction

آخر

url = trim (url)

Endif

احصل على الملف

fileext = lace (mid (url ، instrev (url ، ".")+1)) 'نوع الملف

FILENAME = LCASE (MID (url ، instrev (url ، "/")+1 ، Instrrev (url ، ".")-instrev (url ، "/")-1))

newFilePath = getNow ("Date") و "_" & replace (FormatDateTime (now () ، 3) ، ":" ، "") & "_" & cleanfilename (filename) & "." & filext

IFINST ("،" & lcase (ALTEMFILEEXT) & "،" ، "،" ، & fileext & "،") = 0then

getFile = "نوع الملف غير مسموح به"

exitfunction

Endif

setxmlhttp = server.createBject ("microsoft.xmlhttp")

XMLHTTP.Open "GET" ، url ، false

XMLHTTP.SEND

'whankmlHttp.ReadyState <> 4

'xmlhttp.waitforresponse1000

ويند

IFXMLHTTP.STATUS <> 200then

getFile = "خطأ في الحصول على ملف"

exitfunction

آخر

setFolder = server.createObject ("scripting.filesystemObject")

dimfoldername

FolderName = GetNow ("Year") & GetNow ("month") '

ifffolder.folderexists (server.mappath (UploadPath)) = falsethen

المجلد.

Endif

ifffolder.folderexists (server.mappath (UploadPath & FolderName)) = falsethen

المجلد.