เมื่อเร็ว ๆ นี้ฉันกำลังทำงานกับไซต์เพลงมันเป็นไฟล์เพลง - - มันมักจะถูกรวบรวมจากอินเทอร์เน็ต - ดังนั้น. - ขั้นตอนการรวบรวมถูกเขียนขึ้น
การคัดลอกรหัสมีดังนี้:
-
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)