<%
urlpath = http: //&request.servervariables (server_name)
Dim CPath, LPATH
establecer fsobrowse = createObject (scripting.filesystemObject)
Si la solicitud (ruta) = entonces
LPATH =/
demás
lpath = request (ruta) y/
final si
if request (attrib) = true entonces
CPATH = LPATH
attrib = verdadero
demás
cpath = server.mappath (LPATH)
attrib =
final si
Sub GetFolder ()
Dim thefolder, thesubfolders
Si fsobrowse.foldereRexists (cpath) entonces
Establecer TheFolder = fsobrowse.getfolder (cpath)
Establezca thesubfolders = TheFolder.Subfolders
Response.Write <a href = 'list.asp? Path = & request (OldPath) && attrib = & attrib &'> <font color = '#ff8000'> ■ </font> ↑ <font color = 'ff2222'> 回上级目录 </font> </a> <br> <br> <br> <br> <br>
Response.write <table border = '0' width = '100%' CellPadding = '0'>
Para cada x en las encolegas
Response.Write <tr> <td width = '50%'> <a href =' list.asp? Path = & lpath & x.name && oldPath = & request (path) && atrib = & 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 ',' Tool Bar = no, ScrollBars = yes, Resizable = yes, width = 600, Height = 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 ',' Tool Bar = no, ScrollBars = yes, Resizable = yes, width = 600, Height = 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 ',' Tool Bar = no, ScrollBars = yes, Resizable = yes, width = 600, Height = 400 ');> <font color ='#ff8000 '> × </font> 复制 </a> <br> </td> </tr>
Próximo
Response.Write </table>
final si
Final
Sub getFile ()
Dim thefiles
Si fsobrowse.foldereRexists (cpath) entonces
Establecer TheFolder = fsobrowse.getfolder (cpath)
Establecer theFiles = TheFolder.Files
Response.write <table border = '0' width = '100%' CellPadding = '0'>
Para cada x en los archivos
if request (attrib) = true entonces
showString = <strong> & x.name & </strong>
demás
showString = <a href =# onClick = javaScript: window.open ('& urlpath & lpath & server.urlencode (x.name) &', 'hyne_love_achye', 'toolbar = no, scrollbars = sí, reenizable = sí, width = 600, altura = 400');> <strong> & x.name & </</Strong </a>