مثال التشغيل FSO (للمبتدئين)

把下面代码存到一个 ASP 文件中即可 ， 方便管理服务器上的文件

<title> http://bbs.asp2004.net 制作 ： ： QQ ： 103895 </title>

<meta http-equiv = content-type content = text/html ؛ charset = gb2312>

<نوع النمط = text/css>

<!-

ج: الرابط {

حجم الخط: 9pt ؛

}

ج: زار {

حجم الخط: 9pt ؛

}

ج: تحوم {

حجم الخط: 9pt ؛

}

ج: نشط {

حجم الخط: 9pt ؛

}

جسم {

حجم الخط: 9pt ؛

الهامش اليساري: 0px ؛

الهامش: 0px ؛

الهامش اليمين: 0px ؛

هامش القاع: 0px ؛

رفع الخط: 20 بكسل ؛

}

td {

حجم الخط: 9pt ؛

رفع الخط: 20 بكسل ؛

}

->

</style>

<٪

الإجراء = request.querystring (إجراء)

temp = split (request.servervariables (url) ،/)

url = temp (Ubound (temp))

chklogin ()

حدد إجراء حالة

القضية تسجيل الخروج

logout ()

قضية delfile

Delfile ()

القضية SaveFile

SaveFile ()

القضية editfile

fileedit ()

حالة جديدة

FileNew ()

تحميل الحالة

رفع()

حالة SaveUpload

SaveUpload ()

قضية delfolder

Delfolder ()

القضية SaveFolder

SaveFolder ()

القضية تحرير

تحرير ()

قضية نيوفيلد

NewFolder ()

حالة أخرى

المجلد = request.querystring (اسم المجلد)

اسم الملف = request.querystring (اسم الملف)

المسار = اسم المجلد

إذا المسار = ثم path = server.mappath (./)

ShowfolderList (PATH)

نهاية الاختيار

وظائف العرض (probererspec)

temp = request.servervariables (http_referer)

Temp = Left (Temp ، Instrrev (temp ،/))

temp1 = len (probererspec) -len (server.mappath (./)- 1

إذا temp1> 0 ثم

temp1 = يمين (probererspec ، cint (temp1))

elseif temp1 = -1 ثم

temp1 =

إنهاء إذا

tempurl = temp+استبدال (temp1 ،/،/)+/

set fso = createObject (scripting.filesystemObject)

upfolderspec = fso.getParentFolderName (probererspec و/)

٪>

<a href = <٪ = url ٪>؟ Action = newFolder & FolderName = <٪ = porterspec ٪ >> 新建文件夹 </a> | <a href = <٪ = url ٪>؟ Action = newFile & filename = <٪ = VolderersPec &/٪ >> 新建文件 </a> | <a href = <٪ = url ٪>؟ Action = upload> 上传文件 </a> | <a href = <٪ = url ٪>؟ folderName = <٪ = upfolderspec ٪ >> 向上 </a> | <a href = file.asp> 返回首页 </a> | <a href = <٪ = url ٪>؟ Action = logout> 退出 </a>

<عرض الجدول = 100 ٪ الحدود = 0 cellpadding = 0 cellpacing = 1 bgColor =#6595d6>

<tr bgcolor =#e4e8ef>

<td width = 64 ٪> <div align = center> 名称 </viv> </td>