用网页建造资源管理器

[loverice]

请教几个简单的问题： 怎样在浏览器中搜索本机中的文件，并在框架的mian 中显示出来？
还有怎样在浏览器中将搜索出来的文件进行编辑？例如：删除、添加、编辑等？
怎样在网页中建立一个树型目录与计算机中相应的文件夹动态的对应？

小菜鸟有礼了：）
Email: [e-mail]
QQ: 19661525

[馋嘴蜗牛]

FTP_FOLDER = "" 是你要访问的目录
-------------------------------------------
<%
dim SubFolderName, FatherName, FTP_FOLDER
FTP_FOLDER = "C:\"
SubFolderName = Request.QueryString("FOLDER")

Dim fso, f, f1, fc, s, pos, ts
set fso = CreateObject("Scripting.FileSystemObject")
if fso.FolderExists(FTP_FOLDER & "\" & SubFolderName) then
else
response.write(Replace(SubFolderName, "\", "/") & "目录不存在")
response.end
end if


set f = fso.GetFolder(FTP_FOLDER & "\" & SubFolderName)

if SubFolderName <> "" then
pos = InstrRev(SubFolderName, "\", len(SubFolderName) - 1, 0)
FatherName = left(SubFolderName, pos)
%>
<A HREF="<%=Request.ServerVariables("PAHT_INFO")%>?folder=<%=SERVER.URLENCODE(FatherName)%>">上一级目录</A><BR>
<%
end if
%>

<TABLE>
<TR>
<TD WIDTH="140"><B>文件名</B></TD>
<TD WIDTH="130"><B>类型</B></TD>
<TD WIDTH="130" ALIGN="right"><B>大小</B></TD>
</TR>
<%
set fc = f.Subfolders
for each f1 in fc
%>
<TR>
<TD><A HREF="<%=Request.ServerVariables("PAHT_INFO")%>?folder=<%=SERVER.URLENCODE(SubFolderName & f1.name & "\")%>"><%=f1.name%>/</A></TD>
<TD>目录</TD>
<TD></TD>
</TR>
<%
next

set fc = f.files
for each f1 in fc
%>
<TR>
<TD><%=f1.name%></TD>
<TD><%=f1.type%></TD>
<TD ALIGN="right"><%=FormatNumber(f1.size, 0)%> 字节</TD>
</TR>
<%
next
%>
</TR>
</TABLE>

[zlgun]

楼上的，那是服务器的文件浏览：（

[馋嘴蜗牛]

对呀，是服务器的呀，呵呵，不好意思，没看到本机，哈哈，不过应该也差不多，嘻嘻

[馋嘴蜗牛]

对呀，是服务器的呀，呵呵，不好意思，没看到本机，哈哈，不过应该也差不多，嘻嘻

[julyclyde]

本机？默认情况下不可以
HTA文件倒是可以

[loverice]

谢谢各位的关注，songbai(松柏)大虾 小弟想问具体怎么实现呢？

[馋嘴蜗牛]

主要是用 FileObject 吧。你可以查看一下 VBScript 手册里的 File 那里和它的相关信息。

[loverice]

谢谢大家