<%
urlpath = http: //&request.servervariables (server_name)
Dim CPath, LPath
Definir fsobrowse = CreateObject (script.filesystemoBject)
se solicitar (caminho) = então
LPath =/
outro
lpath = solicitação (caminho) e/
final se
se solicitar (attrib) = true então
CPath = LPath
attrib = true
outro
cpath = server.mappath (lpath)
attrib =
final se
Sub GetFolder ()
Dim theFolder, TheSubFolders
Se fSobrowse.Poldexists (CPath)
Definir a dobra = fsobrowse.getFolder (cpath)
Definir theSubFolders = theFolder.subFolders
Response.Write <a href = 'list.asp? Path = & request (OldPath) && attrib = & attrib &'> <font color = '#ff8000'> ■ </font> ↑ <font color = 'ff22222'> 回上级目录 </font> <br> <br> <br>
Response.write <tabela borda = '0' width = '100%' CellPadding = '0'>
Para cada x nessas subsídios
Response.write <tr> <td width = '50%'> <a href =' list.asp? Path = & lpath & x.name && OldPath = & request (caminho) && attrib = & attrib & '> └ <font color ='#ff8000 '> ■ </font> & x.name & </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 ',' BOLDBAR = NÃO, SCROLLBARS = SIM, REDIZABLE = Sim, largura = 600, altura = 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 ',' BOLDBAR = NÃO, SCROLLBARS = SIM, REDIZABLE = Sim, largura = 600, altura = 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 ',' BOOWBAR = NÃO, SCROLLBARS = SIM, RESIZÁVEL = Sim, largura = 600, altura = 400 ');> <font color ='#ff8000 '> × </font> 复制 </a> <br> </td> </tr>
Próximo
Response.write </ table>
final se
Final sub
Sub getfile ()
diminuir os arquivos
Se fSobrowse.Poldexists (CPath)
Definir a dobra = fsobrowse.getFolder (cpath)
Defina os filfiles = theFolder.Files
Response.write <tabela borda = '0' width = '100%' CellPadding = '0'>
Para cada X nos arquivos
se solicitar (attrib) = true então
ShowsTring = <strong> & x.name & </strong>
outro
showstring = <a href =# onclick = javascript: window.open ('& urlpath & lpath & server.urlencode (x.name) &', 'hyne_love_achye', 'barra de ferramentas = não, scrollbars = sim, resgable = sim, width = 600,/altura = 400';