把以下文件建在同一目录，IIS中确定文件操作
组件可用，即可用ASP列出文件和目录了，呵呵欢迎光临我的主页 http://skypavilion.yeah.net
----文件folder.inc-----
<%
folderini="c:\"
%>
----文件index.asp-----
FileSearch <![CDATA[<body bgcolor="#FFFFFF"><br><BR> <br><BR> </body>]]> ----文件up.asp-----
Up ----文件getinfo.asp-----
<%foldinfo=trim(Request.Querystring("foldinfo"))%>
GetInfo
Current Folder:--<%=foldinfo%> |
|
Folder Name: |
Size: |
LastModify: |
|
<%
upfolder=left(foldinfo,len(foldinfo)-1)
upfolder=left(upfolder,InstrRev(upfolder, "\"))
if foldinfo<>folderini then
response.write("Parent Folder")
else
response.write("Parent Folder")
end if%>
|
<% ShowFolderList(foldinfo) %>
|
File Name: |
Size: |
LastModify: |
|
<% showfolderinfo(foldinfo)%>
|
|
<%
Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s, schild,p,fsize
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc
s = f1.name
's = s & vbCrLf
p = f1.DateLastModified
fsize = f1.Size
schild=folderspec&s&"\"
Response.write("
")
Response.write("")
Response.write("0"&s&" | ")
Response.write(""&fsize&" | ")
Response.write(""&p&" | ")
Response.write("
")
Response.write("
")
Next
End Sub
Sub showfolderinfo(folderspc)
set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyFolder=MyFileObject.GetFolder(folderspc)
for each thing in MyFolder.Files
'Response.write("
"&thing)
'===============Get file information
Set afile=MyFileObject.GetFile(thing)
'==========filename correct code
filenamecode=afile.name
filedetail=folderspc+filenamecode
filedetail=replace(filedetail,"\","*s_p_l_i_t*")
filesize=afile.size
lastmodify=afile.DateLastModified
Response.write("
")
Response.write("")
Response.write("<"&filenamecode&" | ")
Response.write(""&filesize&" | ")
Response.write(""&lastmodify&" | ")
Response.write("
")
Response.write("
")
Next
End sub
%>
----文件fileinfo.asp-----
<%
filename=Request.QueryString("filename")
filename=replace(filename,"*s_p_l_i_t*","\")
filesize=Request.QueryString("filesize")
lastmodify=Request.QueryString("lastmodify")
%>
<%
'Response.write filename&"
"&filesize&"
"&lastmodify
%>
Current File Info: |
File Location: |
< <%=filename%> |
|
File Size: |
<%=filesize%> bytes |
|
LastModify: |
<%=lastmodify%> |
|
Please Use appropriate Application to Open this File.
|
Close
Window |