Das Sammelprogramm kann direkt oder indirekt Daten gemäß den Regeln erhalten. Daher schreiben viele Menschen das Sammelprogramm aus Bequemlichkeit. Wie sollten sie das Sammelprogramm schreiben? Im Folgenden finden Sie den Beispielcode des automatischen Sammlungsprogramms, das vom Herausgeber von Foxin für alle zusammengestellt wurde.
Die Codekopie lautet wie folgt:<%
Bei der nächsten Fehleraufnahme als nächstes
Const uploadPath = "/Uploads/" 'Dateispeicherpfad
Const deglyFileext = "JPG, WMA, SWF, GIF" 'erlischt den Dateityp gesammelt werden
'Const erlaubteFileSize = "200"
Funktion GetFile (URL)
Wenn url = "" dann
Ausgangsfunktion
Anders
URL = Trim (URL)
Ende wenn
'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)) Dateiname ohne Dateityp
newFilepath = getNow ("Datum") & "_" & ersetzen (formatDateTime (now (), 3), ":", "") & "_" & CleanFileName (Dateiname) & ". & Dateiext
Wenn instr ("," & lase (erlauben fileext) & ",", ",", "& fileext &", ")) = 0 dann
getFile = "Dateityp nicht zulässig"
Ausgangsfunktion
Ende wenn
Setzen Sie XMLHTTP = Server.createObject ("microsoft.xmlhttp")
xmlhttp.open "get", url, false
xmlhttp.send
'Während xmlhttp.readystate <> 4
'xmlhttp.waitforResponse 1000
'Wend
Wenn xmlhttp.status <> 200 dann
getFile = "Fehler beim Erhalten von Datei"
Ausgangsfunktion
Anders
Set order = server.createObject ("scripting.FilesSystemObject"))
Dimer Folie
Ordnerame = GetNow ("Jahr") & GetNow ("Monat") 'Ordner
Wenn order.folgerexists (server.mappath (uploadPath)) = false
Ordner.CreateFolder Server.Mappath (UploadPath)
Ende wenn
Wenn order.folgerexists (server.Mappath (UploadPath & FoldNname)) = Falsch, dann dann
Ordner.CreateFolder Server.MAppath (UploadPath & FoldNname)
Ende wenn
Setzen Sie den Ordner = nichts
Datei = xmlhttp.ResponseBody
Wenn LenB (Datei)> erlauben fileSize dann dann
getFile = "Die Datei ist zu groß, um zu speichern!"
Ausgangsfunktion
Anders
Setzen Sie objadostream = server.createObject ("adodb" & "eam")
objadostream.open ()
objadostream.type = 1
objadostream.write (Datei)
objadostream.savetofile (Server.Mappath (UploadPath & Foldername & "/" & Newfilepath))
objadostream.seteos
Setzen Sie Objadostream = nichts
getFile = "<a href =" "" & UploadPath & Foldername & "/" & newFilepath & "" "target =" "_ balnk" "> Kollektion erfolgreich </a>"
Ende wenn
Ende wenn
Setzen Sie xmlhttp = nichts
Endfunktion
%>
<script runat = "server" Sprache = "jscript">
Funktion CleanFileName (str) {
str = str.replace (/[^_/. a-za-z/d]/ig, "");
Str = Str.Replace (/^ 2///. weibliche+/, "");
return str;
}
Funktion getNow (n)
{
d = neues Datum ();
Schalter (n)
{
Fall "Jahr":
return d.getyear ();
Fall "Monat":
return (D.GetMonth () + 1);
Fall "Datum":
return d.getDate ();
}
}
</script>
<%if Anfrage ("do") = "getFile" und anfrage ("Datei") <> "" Dann
Antwort.Write (getFile (Anfrage ("Datei"))))
sonst%>
<form id = "gform" methode = "post" action = "? do = getFile" style = "display: inline">
<Eingabe name = "Datei" type = "input" style = "font-size: 12px;" size = "40" value = "http://blog.xiaobin.net/uploads/200512/08_093616_01.gif">
<Eingabe type = "surug" name = "surug" value = "collection" class = "button">
</form>
<%Ende wenn%>
Das obige ist ein Beispielcode für das automatische Sammlungsprogramm. Wenn Sie tiefer wissen möchten, können Sie den falschen neuen Technologiekanal eingeben, um darüber zu erfahren.