<%
urlpath = http: //&&ewquest.servervariables (server_name)
redup cpath, lpath
atur fsoBrowSe = createObject (scripting.filesystemObject)
Jika permintaan (path) = lalu
lpath =/
kalau tidak
lpath = permintaan (path) &/
akhiri jika
Jika permintaan (atrib) = true maka
cpath = lpath
attrib = true
kalau tidak
cpath = server.mappath (lpath)
attrib =
akhiri jika
Sub getfolder ()
redup, tesefolder
jika fsobrowse.folderexists (cpath) maka
Set theFolder = fsoBrowSe.getFolder (cpath)
Atur tesubfolder = theFolder.subfolders
Response.write <a href = 'list.asp? Path = & request (oldpath) && attrib = & attrib &'> <font color = '#ff8000'> ■ </font> ↑ <font color = 'ff2222'> 回上级目录 </font> </a> <br>
Response.write <tabel border = '0' width = '100%' cellPadding = '0'>
Untuk setiap x di sub -lipatan
Response.write <tr> <td width = '50%'> <a href =' list.asp? Path = & lpath & x.name && oldpath = & request (path) && attrib = & attrib & '> <font color ='#ff8000 '> ■ </font> & x.nname & </a> </a>
Response.write <td> <a href =# onclick = javascript: window.open ('delete.asp@spath= & server.urlencode (lpath) & & server.urlencode (x.name) & & AIM = floders ',' hyne_love_achye ',' toolbar = tidak, scrollbars = ya, dapat diputar ulang = ya, lebar = 600, tinggi = 400 ');> <font color ='#ff8000 '> × </font> 删除 </a> </td>
Response.write <td> <a href =# onclick = javascript: window.open ('move.asp@spath= & server.urlencode (lpath) & & server.urlencode (x.name) & & AIM = floders ',' hyne_love_achye ',' toolbar = tidak, scrollbars = ya, dapat diputar ulang = ya, lebar = 600, tinggi = 400 ');> <font color ='#ff8000 '> × </font> 移改 </a> </td>
Response.write <td> <a href =# onclick = javascript: window.open ('copy.asp@spath= & server.urlencode (lpath) & & server.urlencode (x.name) & & AIM = floders ',' hyne_love_achye ',' toolbar = tidak, scrollbars = ya, dapat diputar ulang = ya, lebar = 600, tinggi = 400 ');> <font color ='#ff8000 '> × </font> 复制 </a> <br> </td> </tr>
Berikutnya
Response.write </boable>
akhiri jika
Akhir sub
Sub getFile ()
Redupkan TheFile
jika fsobrowse.folderexists (cpath) maka
Set theFolder = fsoBrowSe.getFolder (cpath)
Atur TheFiles = theFolder.files
Response.write <tabel border = '0' width = '100%' cellPadding = '0'>
Untuk setiap x di file
Jika permintaan (atrib) = true maka
showtring = <strong> & x.name & </strong>
kalau tidak
showtring = <a href =# onclick = javascript: window.open ('& urlpath & lpath & server.urlencode (x.name) &', 'hyne_love_achye', 'Toolbar = tidak, scrollbar = ya, resizable = ya, lebar = 600, tinggi = 400');>;