Estou trabalhando em um site de música recentemente, é um arquivo de música. . . Geralmente é coletado da Internet. . então. . Um procedimento de coleção foi escrito.
A cópia do código é a seguinte:
<%
OnErrorReSumenext
Constuploadpath = "/uploads/" 'Caminho de armazenamento de arquivos
ConstallowFileExt = "JPG, WMA, SWF, GIF" 'permitido ser coletados Tipos de arquivos
'ConstallowFilesize = "200"
FunctionGetFile (URL)
Ifurl = "" então
Saída de saída
Outro
url = acabamento (url)
Endif
'Pegue o arquivo
FileExt = lcase (MID (URL, Instrrev (URL, ".")+1)) 'Tipo de arquivo
nome do arquivo = lcase (MID (URL, Instrrev (URL, "/")+1, Instrrev (url, ".")-Instrrev (url, "/")-1)) 'Nenhum nome de arquivo Nome do arquivo Nome do arquivo Nome
newFilePath = getNow ("date") & "_" & reply (formatDateTime (agora (), 3), ":", "") & "_" & cleanFileName (nome do arquivo) & "." & FileExt
ifinstr ("," & lcase (allowFileExt) & ",", ",", "& FileExt &", ") = 0hen
getfile = "Tipo de arquivo não permitido"
Saída de saída
Endif
SetxmlHttp = server.createObject ("Microsoft.xmlHttp")
xmlhttp.open "get", url, false
xmlHttp.send
'WhilexmlHttp.readyState <> 4
'xmlHttp.waitforSponse1000
'Wend
Ifxmlhttp.status <> 200then
getfile = "Erro de obter arquivo"
Saída de saída
Outro
SetFolder = server.createObject ("scripting.filesystemoBject")
DimFoldername
FoldName = GetNow ("Ano") e GetNow ("Mês") Pasta
Iffffolder.oldErexists (server.mappath (uploadPath)) = falsethen
Folder.CreateFolderServer.mappath (uploadPath)
Endif
Ifffolder.oldErexists (server.mappath (uploadPath & FolderName)) = falsethen
Folder.CreateFolderServer.mappath (uploadpath & Foldername)