الإدارة قراءة الملفات وتحريرها

<٪

urlpath = http: //&request.servervariables (server_name)

قاتمة CPATH ، LPATH

تعيين fsobrowse = createObject (scripting.filesystemObject)

إذا طلب (مسار) = ثم

lpath =/

آخر

lpath = طلب (مسار) و/

إنهاء إذا

إذا طلب (attrib) = صحيح ثم

CPATH = LPATH

attrib = صحيح

آخر

cPath = server.mappath (lpath)

attrib =

إنهاء إذا

sub getFolder ()

قاتمة thefolder ، thesubfolders

إذا fsobrowse.folderexists (CPATH) ثم

تعيين thefolder = fsobrowse.getfolder (CPATH)

تعيين thesubfolders = thefolder.subfolders

استجابة. write <a href = 'list.asp؟ path = & request (OldPath) && attrib = & attrib &'> <font color = '#ff8000'> ■ </font> ↑ <font color =' ff2222 '> 回上级目录 </font> <br> <br> <br>

استجابة. write <table border = '0' width = '100 ٪' cellpadding = '0'>

لكل X في thesubfolders

استجابة. write <tr> <td width = '50 ٪ '> <a href =' list.asp؟ path = & lpath & x.name && oldpath = & request (path) && attrib = & attrib & '> └ <font color ='#ff8000 '> ■ </font> & x.name & </a> </td>

استجابة. write <td> <a href =# onClick = javaScript: window.open ('delete.asp@spath= & server.urlencode (lpath) & & server.urlencode (x.name) & & AIM = floders '،' hyne_love_achye '،' شريط الأدوات = no ، scrollbars = yes ، resizable = yes ، width = 600 ، height = 400 ') ؛> <font color ='#ff8000'> × </font> 删除 </a> </td>

استجابة. write <td> <a href =# onClick = javaScript: window.open ('move.asp@spath= & server.urlencode (lpath) & & server.urlencode (x.name) & & AIM = floders '،' hyne_love_achye '،' شريط الأدوات = no ، scrollbars = yes ، resizable = yes ، width = 600 ، height = 400 ') ؛> <font color ='#ff8000'> × </font> 移改 </a> </td>

استجابة. write <td> <a href =# onClick = javaScript: window.open ('copy.asp@spath= & server.urlencode (lpath) & & server.urlencode (x.name) & & AIM = floders '،' hyne_love_achye '،' شريط الأدوات = لا ، scrollbars = yes ، resizable = yes ، width = 600 ، height = 400 ') ؛> <font color ='#ff8000'> × </font> 复制 </a> <br> </td> </tr>

التالي

استجابة. write </table>

إنهاء إذا

نهاية الفرعية

sub getfile ()

قاتمة

إذا fsobrowse.folderexists (CPATH) ثم

تعيين thefolder = fsobrowse.getfolder (CPATH)

تعيين thefiles = thefolder.files

استجابة. write <table border = '0' width = '100 ٪' cellpadding = '0'>

لكل X في المواقع

إذا طلب (attrib) = صحيح ثم

showstring = <strong> & x.name & </strong>

آخر

showString = <a href =# onClick = javaScript: window.open ('& urlpath & lpath & server.urlencode (x.name) &' ، 'hyne_love_achye' ، 'شريط الأدوات = لا ، scrollbars = yes ، resizable = yes ، width = 600 ، height = 400') ؛