downfile.asp

在线文件管理器 修正版 asp数据

<!--#include file="fsoconfig.asp"-->
<!--#include file="checklogin.asp"-->
<%
call downloadFile(Request("path"))

function downloadFile(strFile)
	strFilename = server.MapPath(strFile)

	Response.Buffer = True
	Response.Clear
	
	Set s = Server.CreateObject("ADODB.Stream")
	s.Open
	
	s.Type = 1
	
	on error resume next
	
	
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	if not fso.FileExists(strFilename) then
		Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>")
		Response.End
	end if
	
	
	Set f = fso.GetFile(strFilename)
	intFilelength = f.size
	
	
	s.LoadFromFile(strFilename)
	if err then
		Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
		Response.End
	end if
	
	Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
	Response.AddHeader "Content-Length", intFilelength
	Response.CharSet = "UTF-8"
	Response.ContentType = "application/octet-stream"
	
	Response.BinaryWrite s.Read
	Response.Flush
	
	
	s.Close
	Set s = Nothing
	
	
End Function 
%>