Saya sedang mengerjakan situs musik baru -baru ini, ini adalah file musik. . . Biasanya dikumpulkan dari internet. . Jadi. . Prosedur pengumpulan ditulis.
Salinan kode adalah sebagai berikut:
<%
OnerrorresumeNext
ConstuPloadPath = "/unggah/" 'jalur penyimpanan file
Constallowfileext = "jpg, wma, swf, gif" 'diizinkan untuk dikumpulkan jenis file
'ConstallowFileSize = "200"
FunctionGetFile (URL)
Ifurl = "" lalu
Fungsi keluar
Kalau tidak
url = trim (url)
Endif
'Dapatkan file
fileExt = lcase (mid (url, instrrev (url, ".")+1)) 'jenis file
FileName = lcase (mid (url, instrrev (url, "/")+1, instrrev (url, ".")-instrrev (url, "/")-1)) 'Tidak ada nama file jenis file file file file file file file file file
newFilePath = getNow ("date") & "_" & ganti (formatDateTime (sekarang (), 3), ":", "") & "_" & cleanfileName (nama file) & "." & fileext
ifinstr ("," & lcase (AllowfileExt) & ",", ",", "& FileExt &", ") = 0then
getFile = "Jenis file tidak diperbolehkan"
Fungsi keluar
Endif
Setxmlhttp = server.createObject ("microsoft.xmlhttp")
xmlhttp.open "get", url, false
xmlhttp.send
'Whilyxmlhttp.readystate <> 4
'xmlhttp.waitforResponse1000
'Pergi ke
Ifxmlhttp.status <> 200then
getFile = "kesalahan mendapatkan file"
Fungsi keluar
Kalau tidak
SetFolder = server.CreateObject ("Scripting.FilesystemObject")
DiMfoldername
FolderName = getnow ("year") & getNow ("month") 'folder
Ifffolder.folderexists (server.mappath (unggahpath)) = falsethen
folder.createFolderserver.mappath (unggahpath)
Endif
Ifffolder.folderexists (server.mappath (unggahpath & foldername)) = falsethen
folder.createFolderserver.mappath (unggahpath & foldername)