โปรแกรมคอลเลกชันอัตโนมัติ

เมื่อเร็ว ๆ นี้ฉันกำลังทำงานกับไซต์เพลงมันเป็นไฟล์เพลง - - มันมักจะถูกรวบรวมจากอินเทอร์เน็ต - ดังนั้น. - ขั้นตอนการรวบรวมถูกเขียนขึ้น

การคัดลอกรหัสมีดังนี้:

-

onerrorresumenext

constupLoadPath = "/อัปโหลด/" 'พา ธ การจัดเก็บไฟล์

constallowfileext = "jpg, wma, swf, gif" 'ได้รับอนุญาตให้รวบรวมประเภทไฟล์

'ConstallowFilesize = "200"

FunctionGetFile (URL)

ifurl = "" แล้ว

exitfunction

อื่น

url = trim (url)

endif

'รับไฟล์

fileext = lcase (mid (url, instrrev (url, ".")+1)) 'ประเภทไฟล์

filename = lcase (mid (url, instrrev (url, "/")+1, instrrev (url, ".")-instrrev (url, "/")-1)) 'ไม่มีชื่อไฟล์ประเภทไฟล์

newFilePath = getNow ("วันที่") & "_" & แทนที่ (formatDateTime (ตอนนี้ (), 3), ":", "") & "_" & cleanfileName (ชื่อไฟล์) & "& fileext

ifinstr ("," & lcase (lewalfileext) & ",", ",", "& fileext &", ") = 0 แล้ว

getFile = "ประเภทไฟล์ไม่อนุญาต"

exitfunction

endif

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

xmlhttp.open "get", url, false

xmlhttp.send

'wherxmlhttp.readystate <> 4

'XMLHTTP.WAITFORRESPONSE1000

'เวนด์

ifxmlhttp.status <> 200 จากนั้น

getFile = "ข้อผิดพลาดรับไฟล์"

exitfunction

อื่น

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

dimfoldername

folderName = getNow ("ปี") & getNow ("เดือน") 'โฟลเดอร์

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

Folder.CreateFolderserver.mappath (UploadPath)

endif

ifffolder.folderexists (Server.mappath (UploadPath & FolderName)) = Falsethen

Folder.CreateFolderserver.mappath (UploadPath & FolderName)