可以下载ASP文件的ASP文件

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
IF Trim(request("Action"))<>"" then
if Request("Filename")="" then
response.write "<h1>Error:</h1>文件名不能为空<p>"
else
call  downloadFile(replace(replace(Request("Filename"),"\",""),"/",""))  
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&" 文件不存在！<p>")    
Response.End    
end  if
Set  f  =  fso.GetFile(strFilename)    
intFilelength  =  f.size    
s.LoadFromFile(strFilename)    
if  err  then    
Response.Write("<h1>Error: </h1>未知文件类型！<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    
end if
else
Response.write "填入你要下载的同目录下的ASP文件名"
Response.write "<form id=form1 name=form1 method=post action=?action=down>"
Response.write "<input type=text name=filename />"
Response.write "<input type=submit name=Submit value=提交 /></form>"
End If
%>