サーバーに配置して、サーバー上のファイルを参照、アップロード、ダウンロードし、ファイルソースコードをダウンロードできます。
次のすべてのコードを1つのファイルに配置するだけで、ファイルの接尾辞はASPである必要があります。
<％
thedir = request（ "thedir"）
ifthedir = "" then
folderini = server.mappath（ "。"）＆ "/"
それ以外
folderini = server.mappath（thedir）＆ "/"
endif
foldInfo = trim（request.querystring（ "foldinfo"）））
iffoldinfo = "" then
foldinfo = folderini
endif
ClassesClsup
Dimform、ファイル
dimallowext_
dimnoallowext_
PrivateOupFileStream
privateiserr_
privateRermessage_
privateisgetData_
publicPropertyGetVersion
バージョン= "v1.0.0"
Endproperty
publicPropertygetiserr
iserr = iserr_
Endproperty
publicPropertygeterrmessage
errmessage = errmessage_
Endproperty
publicPropertygetAllowext
Allowext = aoptext_
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（lowext）
isgetData_ = false
Endingub
privatesubclass_terminate
Oneerrorresumenext
form.removeall
setform = Nothing
file.removeall
setFile = Nothing
opfilestream.close
setoupFileStream = Nothing
Endingub
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
settream = server.createObject（ "adodb.stream"）
setoupFileStream = server.createObject（ "adodb.stream"）
opfilestream.type = 1
oupfilestream.mode = 3
opfilestream.open
opfilestream.writerequest.binaryread（request.totalbytes）
opfilestream.position = 0
getUpData1 = opfilestream.read
iformend = opfilestream.size
bcrlf = chrb（13）＆chrb（10）
