今天制作了一个可以远程访问的WEB管理器,这样就可以通过远程控制自己的IIS目录了~
基本目前实现了文件夹文件浏览,改名,删除,文件下载得功能!
关键是怎么实现ASP文件的下载问题,经研究查找资料作出了这个函数
<%
'下载文件函数
Function DownFile2(strFile)
strFilename = server.MapPath(strFile)
fname=instrrev(replace(strFile,"/","/"),"/")
if fname>0 then
fname=right(strFile,len(strFile)-fname)
else
fname=strFile
end if
Response.ContentType = "application/x-download"
Response.AddHeader "content-disposition", "attachment; filename=" &fname
set Stream=CreateObject("Adodb.Stream")
Stream.Type = 1
Stream.Open
Stream.LoadFromFile strFilename
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
End Function%>
这样就可以实现任意文件的下载了~
WEB文件管理工具
最新推荐文章于 2025-07-11 13:43:05 发布