يمكن وضعه على الخادم لتصفح الملفات وتحميلها على الخادم وتنزيل رمز مصدر الملف.
ما عليك سوى وضع جميع الرموز التالية في ملف واحد ، ويجب أن تكون لاحقة الملف ASP.
<٪
thedir = طلب ("ثيدر")
ifthedir = "" ثم
المجلد = server.mappath (".") و "/"
آخر
المجلد = server.mappath (thedir) و "/"
Endif
foldInfo = trim (request.querystring ("foldinfo")))
iffoldinfo = "" ثم
FoldInfo = Folderini
Endif
classesclsup
dimform ، ملف
dimallowext_
dimnoallowext_
PrivateOupFilestream
privatiserr_
privateRrmessage_
privateisgetData_
PublicPropertygetversion
الإصدار = "v1.0.0"
endproperty
PublicPropertygetiserr
ISERR = ISERR_
endproperty
PublicPropertyGetRmessage
errmessage = errmessage_
endproperty
PublicPropertygetallowext
السماح = السماح
endproperty
publicpropertylelallyxt (القيمة)
ALWEST_ = LCASE (القيمة)
endproperty
publicpropertygetnoallowext
noallowext = noallowext_
endproperty
publicpropertyletnoallowext (القيمة)
noallowext_ = lace (القيمة)
endproperty
privatesubclass_initialize
ISERR_ = 0
noallowext = ""
noolallyext = lace (noallowext)
leftext = ""
leftext = lace (السماح)
isGetData_ = false
ينتهي
privatesubclass_terminate
OneRrorresumenext
form.removeall
setForm = لا شيء
file.removeall
setFile = لا شيء
oupfilestream.close
setoupfilestream = لا شيء
ينتهي
publicsubgetdata (maxSize)
OneRrorresumenext
ifisgetData_ = falsethen
DimgetUpdata1 ، Sspace ، Bcrlf ، sinfo ، iinfostart ، iinfoend ، tstream ، istart ، ofileinfo
DimSformValue ، sfilename
DimifindStart ، ifindend
DimiformStart ، iformend ، sformname
ifrequest.totalbytes <1th
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.createBject ("Adodb.stream")
setoupfilestream = server.createBject ("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)
