请高手救命~~高难度问题100分求教

[loverice]

某人叫鄙人用ASP做一个类似资源管理器的 “文件管理系统”，
就是在浏览器中可以浏览本机上的文件夹，并对其做基本的文件操作（添加、删除、
移处（文件夹和文件））现在的问题是： 怎样通过像网页那样点一下类似链接的文字（例如“删除”）
就可以达到目的？
还有，怎样在浏览器中像资源管理那样用框架的格式来搜索本机器内的文件？

[tief]

完全可实现。但是是浏览服务器的文件夹，而不是本机。

删除等功能实现起来简单，直接使用打开模拟get/form的页面就可以，就是类似：

delete.asp?fname=...的方法。

对于文件、文件夹的遍历，这里有Vbs的实现方法，asp中大同小异:)

Dim dirname,keyword,result
Dim fs ' a public filesystem object

dirname = InputBox("Please input the path being searched:","Input path")
key = InputBox("Please input the key being searched for:","Input key")

Set fs = CreateObject("Scripting.FileSystemObject")

Call SearchKey(dirname,key)
MsgBox result

Sub SearchKey(dir,key)

Dim dir1,subdir,f
Dim textstream,tmpstr

Set dir1 = fs.GetFolder(dir)

For each subdir in dir1.SubFolders
Call SearchKey(subdir.path,key)
Next

For each f in dir1.Files
Set textstream = f.OpenAsTextStream()
tmpstr = textstream.ReadAll()
If InStr(1,tmpstr,key)<>0 Then
result = result & f.path & Chr(13) & Chr(10)
End If
Next

End Sub

[馋嘴蜗牛]

FTP_FOLDER = "" 是你要访问的目录，这可以遍历这个目录里的文件，删除，移动呀，你可以看一看 File 的方法，去查一查 VBScript 的手册就行了。
-------------------------------------------
<%
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>

[Davelu]

请问他是否想让你成为黑客？