Ich arbeite kürzlich an einer Musikseite, es ist eine Musikdatei. . . Es wird normalerweise aus dem Internet gesammelt. . Also. . Ein Sammelverfahren wurde geschrieben.
Die Codekopie lautet wie folgt:
<%
OnErrorresumeNext
ConstuploadPath = "/Uploads/" 'Dateispeicherpfad
ConstallowFileext = "JPG, WMA, SWF, GIF" 'dürfen gesammelte Dateitypen
'ConstallowFileSize = "200"
FunktionGetfile (URL)
Ifurl = "" dann
Ausgangsfunktion
Anders
URL = Trim (URL)
Endif
'Holen Sie sich die Datei
Fileext = Lase (Mid (URL, Instrrev (URL, ")+1) 'Dateityp
Dateiname = Lase (Mid (URL, Instrrev (URL ",/")+1, Instrrev (URL, ".")-Instrrev (URL, "/")-1)) 'Kein Dateityp-Dateiname
newFilepath = GetNow ("Datum") & "_" & ersetzen (formatDateTime (now (), 3), ":", "") & "_" & CleanFileName (Dateiname) & "." & Fileext
ifInstr ("," & lase (erlaubteExtexte) & ",", ",", "& fileext &", ") = 0Then
getFile = "Dateityp nicht zulässig"
Ausgangsfunktion
Endif
Setxmlhttp = server.createObject ("microsoft.xmlhttp")
xmlhttp.open "get", url, false
xmlhttp.send
'Whilexmlhttp.ReadyState <> 4
'xmlhttp.waitforResponse1000
'Wend
Ifxmlhttp.status <> 200Then
getFile = "Fehler beim Erhalten von Datei"
Ausgangsfunktion
Anders
SetFolder = server.createObject ("scripting.filesystemObject"))
Dimfoldername
FCFTERNAME = GetNow ("Jahr") & GetNow ("Monat") 'Ordner
IFFFORDER.FORDEREXISTS (server.mappath (UploadPath)) = falsethen
Ordner.CreateFolderServer.MAppath (UploadPath)
Endif
IFFFORDER.FORDEREXISTS (server.Mappath (UploadPath & FoldRingame)) = falsethen
Ordner.CreateFolderServer.MAppath (UploadPath & Foldername)