<%
urlpath = http: //&request.servervariables (server_name)
Dim Cpath, LPATH
Установить fsobrowse = createObject (scripting.filesystemobject)
Если запрос (path) = then
lpath =/
еще
LPATH = запрос (PATH) &/
конец, если
Если запрос (attrib) = true then
CPATH = LPATH
attrib = true
еще
cpath = server.mappath (lpath)
attrib =
конец, если
Sub getFolder ()
Dim The Colderer, TheSubfolders
Если fsobrowse.folderexists (cpath), то
Установите offolder = fsobrowse.getFolder (cpath)
Установите thesubfolders = 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 <table border = '0' width = '100%' cellpadding = '0'>
Для каждого X в
Response.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>
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 = no, scrollbars = yes, resizable = yes, width = 600, height = 400 ');> <font color ='#ff8000 '> × </font> 删除 </a> </td>
Response.write <td> <a href =# onclick = javascript: window.open ('hree.asp@spath= & server.urlencode (lpath) & server.urlencode (x.name) & & aim = floders ',' hyne_love_achye ',' toolbar = no, scrollbars = yes, resizable = yes, width = 600, height = 400 ');> <font color ='#ff8000 '> × </font> 移改 </a> </td>
Response.write <td> <a href =# onclick = javascript: window.open ('kcopy.asp@spath= & server.urlencode (lpath) & server.urlencode (x.name) & & aim = floders ',' hyne_love_achye ',' toolbar = no, scrollbars = yes, stogizable = yes, width = 600, height = 400 ');> <font color ='#ff8000 '> × </font> 复制 </a> <br> </td> </tr>
Следующий
Response.write </table>
конец, если
Конец суб
Sub getFile ()
тусклые потери
Если fsobrowse.folderexists (cpath), то
Установите offolder = fsobrowse.getFolder (cpath)
Установите thefiles = thefolder.files
Response.write <table border = '0' width = '100%' cellpadding = '0'>
Для каждого x в файлах
Если запрос (attrib) = true then
Showtring = <strong> & x.name & </strong>
еще
Showtring = <a href =# onclick = javascript: window.open ('& urlpath & lpath & server.urlencode (x.name) &', 'hyne_love_achye', 'toolbar = no, scrollbars = yes, styzable = yes, width = 600, ehize = 400');> <strong> & x.