<%
urlpath=http://&Request.ServerVariables(SERVER_NAME)
dim cpath,lpath
set fsoBrowse=CreateObject(Scripting.FileSystemObject)
if Request(path)= then
lpath=/
else
lpath=Request(path)&/
end if
if Request(attrib)=true then
cpath=lpath
attrib=true
else
cpath=Server.MapPath(lpath)
attrib=
end if
Sub GetFolder()
dim theFolder,theSubFolders
if fsoBrowse.FolderExists(cpath)then
Set theFolder=fsoBrowse.GetFolder(cpath)
Set 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'>
For Each x In theSubFolders
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('move.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('copy.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><br></td></tr>
Next
Response.Write </table>
end if
End Sub
Sub GetFile()
dim theFiles
if fsoBrowse.FolderExists(cpath)then
Set theFolder=fsoBrowse.GetFolder(cpath)
Set theFiles=theFolder.Files
Response.write<table border='0' width='100%' cellpadding='0'>
For Each x In theFiles
if Request(attrib)=true then
showstring=<strong>&x.Name&</strong>
else
showstring=<a href=# onclick=javascript:window.open('&urlpath&lpath&server.urlencode(x.Name)&','hyne_love_achye','toolbar=no,scrollbars=yes,resizable=yes,width=600,height=400');><strong>&x.name&</strong></a>