<%
urlpath = http: //&request.servervariables (server_name)
Dim cpath, lpath
Définir fsobrowse = createObject (scripting.filesystemObject)
Si demande (chemin) = alors
lpath = /
autre
lpath = request (path) & /
terminer si
Si demande (attrib) = true alors
cpath = lpath
attrib = true
autre
cpath = server.mappath (lpath)
attrib =
terminer si
Sub Getfolder ()
Dim Folder, TheSublolders
Si fsobrowse.folderexists (cpath) alors
Set thefolder = fsobrowse.getfolder (cPath)
Définissez thesubfolders = Thefolder.Subfolders
Réponse.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'>
Pour chaque x dans les vendeurs
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 ',' Barbar d'outils = Non, Brollbars = 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 ',' Barbar d'outils = Non, Brollbars = 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 ',' Barbar d'outils = NON, Scrollbars = Yes, Resizable = Yes, Width = 600, Height = 400 ');> <Font Color =' # FF8000 '> × </font> 复制 </a> <br> </td> </tr>
Suivant
Réponse.write </ Table>
terminer si
Sub-Sub
Sub getFile ()
talonner les fichiers
Si fsobrowse.folderexists (cpath) alors
Set thefolder = fsobrowse.getfolder (cPath)
Définir TheFiles = Thefolder.Files
Response.Write <Table Border = '0' Width = '100%' CellPadding = '0'>
Pour chaque x dans les fichiers
Si demande (attrib) = true alors
showstring = <strong> & x.name & </strong>
autre
showstring = <a href = # onclick = javascript: window.open ('& urlpath & lpath & server.urlencode (x.name) &', 'hyne_love_achye', 'toolbar = non, scrollbars = oui, reizable = yes, width = 600, height = 400');> <strong> & x.name & </a>