<%
urlPath = http: //&request.servervariables (server_name)
Dim Cpath, Lpath
Setzen Sie FSOBROWSE = CREATEOBJECT (SCRIPTING.FILESSYSTEMOBJECT)
Wenn Anfrage (Pfad) = dann
lpath =/
anders
lpath = request (Pfad) &/
Ende wenn
Wenn Anforderung (Attriby) = true dann
cpath = lpath
Attraktivität = true
anders
cpath = server.mappath (lpath)
Attraktivität =
Ende wenn
Sub get folder ()
Dimer TheFolder, Thesubfolders
Wenn fSOBROWSE.FORDEREXISTEN (CPATH) dann
Setzen Sie den Folder = fSoBrowse.getFolder (CPATH)
Setzen Sie die Subfolders = TheFolder.SubFolders
Response.write <a href = 'list.asp? Path = & request (OldPath) && satt = & satt &'> <font color = '#ff8000'> ■ </font> ↑ <font color = 'ff2222'> 回上级目录 </font> </a> <br>
Antwort.
Für jedes x in den Subfoldern
Response.write <tr> <td width = '50%'> <a href =' list.asp? Path = & lpath & x.name && oldpath = & request (path) && satt = & satt & '> └ <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) & & im = floderer ',' hyne_love_achye ',' Symbollbar = Nein, Scrollbars = Ja, resizable = yes, width = 600, Höhe = 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) & & im = floderer ',' hyne_love_achye ',' Symbollbar = Nein, Scrollbars = Ja, resizable = yes, width = 600, Höhe = 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) & & im = floderer ',' hyne_love_achye ',' Symbollbar = Nein, ScrollBars = Ja, resizable = yes, width = 600, height = 400 ');> <font color ='#ff8000 '> × </font> 复制 </a> </td> </tr>
Nächste
Antwort.Write </table>
Ende wenn
Ende sub
Sub get file ()
Dim die Dateien
Wenn fSOBROWSE.FORDEREXISTEN (CPATH) dann
Setzen Sie den Folder = fSoBrowse.getFolder (CPATH)
Stellen Sie die file = theFolder.files fest
Antwort.
Für jedes x in den Dateien
Wenn Anforderung (Attriby) = true dann
showString = <strong> & x.name & </strong>
anders
showString = <a href =# onclick = javaScript: window.open ('& urlPath & lpath & server.urlencode (X.Name) &', 'hyne_love_achye', 'Symbolleiste = nein, scrollbars = yes, resizable = yes, width = 600, Höhe = 400';