Es kann auf dem Server platziert werden, um Dateien auf dem Server zu durchsuchen, hochzuladen und herunterzuladen und den Dateiquellcode herunterzuladen.
Fügen Sie einfach alle folgenden Codes in eine Datei ein, und das Suffix der Datei sollte ASP sein.
Die Codekopie lautet wie folgt:
<%
thedir = request ("thedir")
ifthedir = "" dann
orderini = server.mappath (".") & "/"
anders
orderini = server.mappath (thedir) & "/"
Endif
ordinfo = trim (request.queryString ("foldinfo"))
IffoldInfo = "" Dann
foldinfo = orderini
Endif
Klassenclsup
Dimform, Datei
Dimallowxt_
Dimnoallowext_
PrivateoupfileStream
Privatiserr_
Privateerrmessage_
PrivateisgetData_
PublicPropertyGetversion
Version = "v1.0.0"
Endproperschaft
PublicPropertyGetiserr
ISERR = ISERR_
Endproperschaft
PublicPropertyGeterrmessage
Ermessage = errmessage_
Endproperschaft
PublicPropertyGetalloyext
Deglingext = dulltext_
Endproperschaft
PublicPropertyletlowext (Wert)
Erlaubtext_ = lase (Wert)
Endproperschaft
PublicPropertygetNoallowext
Noalalext = noaalext_
Endproperschaft
PublicPropertyletnoallowext (Wert)
Noalalext_ = lase (Wert)
Endproperschaft
PrivateSubclass_initialize
ISERR_ = 0
Noalalext = ""
Noalalext = lase (noaalext)
Erlaubtext = ""
Erlaubtext = lase (erlaubtext)
isgetData_ = false
Ende
PrivateSubclass_terate
OneRrorresumenext
Form.Removeall
Setform = nichts
Datei.removeall
Setfile = nichts
OUPFILESTREAM.CLOSE
SetOUPFilESTREAM = nichts
Ende
PublicsubgetData (Maxsize)
OneRrorresumenext
ifisgetData_ = falsethen
Dimgetupdata1, sspace, bcrlf, sinfo, iinfostart, iinfoend, tstream, istart, Ofileinfo
DimsformValue, Sfilename
DimifindStart, ifindend
DimiformStart, ARTORMEND, SFORMNAME
Ifrequest.totalBytes <1Then
ISERR_ = 1
Errmessage_ = ""
Exitsub
Endif
IfmaxSize> 0Then
IFREQUEST.TOTALBYTES> MAXSIZETHEN
ISERR_ = 2
Errmessage_ = ""
Exitsub
Endif
Endif
Setform = server.createObject ("scripting.Dictionary")
Form.comParemode = 1
SetFile = server.createObject ("scripting.Dictionary")
Datei.comParemode = 1
Settstream = server.createObject ("adodb.stream")
SetOUPFilESTREAM = server.createObject ("adodb.stream")
OUPFILESTREAM.TYPE = 1
OUPFILESTREAM.MODE = 3
OUPFILESTREAM.OPEN
OUPFILESTREAM.WriteRequest.BinaryRead (Request.TotalBytes)
OUPFILESTREAM.Position = 0
getupdata1 = OUPFILESTREAM.READ
itormend = OUPFILESTREAM.SIZE
BCRLF = CHRB (13) & CHRB (10)