asp程序下载,如何用ASP实现文件下载？

1，如何用ASP实现文件下载？

调用
response.Write(""&ls_array
(i)&"")


down.asp文件内容如下：
<%
Const FilePath = "UploadFile/" '文件存放路径
From_url = Cstr(Request.ServerVariables("HTTP_REFERER"))
Serv_url = Cstr(Request.ServerVariables("SERVER_NAME"))
Function GetFileName(longname)'/folder1/folder2/file.asp=>file.asp
while instr(longname,"/")
longname = right(longname,len(longname)-1)
wend
GetFileName = longname
End Function
Dim Stream
Dim Contents
Dim FileName
Dim TrueFileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "无效文件名！"
Response.End
End if
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Response.Clear

if lcase(right(FileName,3))="gif" or lcase(right(FileName,3))="jpg" or lcase(right(FileName,3))="png" then
Response.ContentType = "image/*" '对图像文件不出现下载对话框
else
Response.ContentType = "application/ms-download"
end if
Response.AddHeader "content-disposition", "attachment; filename=" & GetFileName(Request.QueryString("FileName"))
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
TrueFileName= FilePath &FileName

Response.Write TrueFileName
Response.End

Stream.LoadFromFile Server.MapPath(TrueFileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>

2，asp如何实现文件下载功能

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("Error: 文件不存在")
Response.End
end if
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("Error: " & err.Description & "")
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
看这个函数能帮到你吗

3，可以有办法直接下载网上的ASP文件吗？

实时获取服务器时间，判断当前时间是否是允许运行该文件的时间就可以了。
取得时间代码：script language=javascript type="text/javascript"
//特别注明：北京时间是格林尼治标准时加八小时，因此用的起始时间也是从八点起算的
var secondServer = %=DateDiff("s", "1970-01-01 08:00:00", Now())%;
var secondClient = parseInt(new Date().getTime()/1000);
var secondSub = secondServer - secondClient; //两端时间秒差
function meizzTime(n)
{
var mei = new Date();
mei.setTime(mei.getTime() + n*1000); //得到一个新的时间
var h = (mei.getHours() 9) ? mei.getHours() : "0" + mei.getHours();
var m = (mei.getMinutes() 9) ? mei.getMinutes() : "0" + mei.getMinutes();
var s = (mei.getSeconds() 9) ? mei.getSeconds() : "0" + mei.getSeconds();
document.meizz.clock.value ="【"+ h +":"+ m +":"+ s +"】";
setTimeout("meizzTime(secondSub)", 1000);
}
/script
form name="meizz"
input name="clock" size="12" class="form"
/form

4，ASP 如何实现文件下载

你把要下载的文件名传到下载页面，用request("fileNameField")获取文件名
下面这地方改一下

iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=" & server.mappath(request("fileNameField"))

点击下载的地方用下载文件
这个

5，在ASP中怎样实现文件的下载?

Public Sub DownloadFile(strFilePath)
On Error Resume Next
Response.Clear
Server.ScriptTimeout = 999999
Dim s, Fso, f, intFilelength
Set s = CreateObject("ADODB.Stream")
s.Open
s.Type = 1
strFilePath = Server.MapPath(strFilePath)
Set Fso = CreateObject("scripting.filesystemobject")
If Not Fso.FileExists(strFilePath) Then
s.Close
Set s = Nothing
Set Fso = Nothing
Response.Write "alert('文件不存在');history.back()"
Exit Sub
End If
Set f = Fso.GetFile(strFilePath)
intFilelength = f.Size
s.LoadFromFile (strFilePath)
If err Then
Response.Write ("错误: " & err.Description & "")
s.Close
Set s = Nothing
Set Fso = Nothing
Exit Sub
End If
Set Fso = Nothing
Dim Data
Data = s.Read
s.Close
Set s = Nothing
If Response.IsClientConnected Then
If Not (InStr(LCase(f.Name), ".asp") > 0 Or InStr(LCase(f.Name), ".js") > 0) Then
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.Name
End If
Response.AddHeader "Content-Length", intFilelength
Response.Charset = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite Data
Response.Flush
End If
End Sub

6，怎么安装ASP整站源码

安装步骤

1、把程序包解压缩到硬盘的一个临时目录，更改数据库的名称后按照原来的目录结构上传到服务器

2、数据库路径修改：\web.config; \DNT.config

3、IIS设置网站：IIS网站-右键属性-主目录-配置-映射-添加可执行文件C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\aspnet_isapi.dll；
扩展名.html; 限制为GET,HEAD,POST,DEBUG; 脚本引擎不要选择“检查文件是否存在”

在浏览器中输入http://你的域名/default.aspx就可以开始使用

7，如何下载完整CONN.ASP文件内容

一、强制下载后缀名为asp、asa的数据库文件　　大多数的网管为了节省时间，网站上的文章系统、论坛等程序都是直接下载别人的源程序再经过部分修改后使用的。而现在很多人做的asp源程序都已经将数据库的后缀由原先的mdb改为了asp或asa。老的方法所能维持的时间毕竟有限。对于asp或asa后缀的数据库文件，只要知道它们的存放位置，就能轻易地用迅雷这样的下载软件下载得到。二、致命符号---＃　　很多人以为在数据库前面加个#号就可以防止数据库被下载。是啊，我当时也认为ie是无法下载带有#号的文件的(ie会自动忽略#号后面的内容)。但是“成也萧何，败也萧何”，我们忘记了网页不仅能通过普通的方法访问，而且用ie的编码技术也能访问到。　　在ie中，每个字符都对应着一个编码，编码符%23就可以替代#号。这样对于一个只是修改了后缀并加上了#号的数据库文件我们依然可以下载。比如#data.mdb为我们要下载的文件，我们只要在浏览器中输入%23data.mdb就可以利用ie下载该数据库文件，这样一来，#号防御手段就形同虚设一般。三、破解access加密数据库易如反掌　　有些人喜欢对access数据库进行加密，以为这样一来就算别人得到了数据库也需要密码才能打开。但事实正好相反，由于access的加密算法太脆弱，所以只要随便到网上找一个破解access数据库密码的软件，不用几秒钟就能得到密码。这样的软件网上有很多，比如accesskey。四、瞬杀---数据暴库技术　　本身数据库暴库技术应该是属于脚本漏洞的行列，之所以拿到这里来说是因为它在数据库下载漏洞中起到了举足轻重的作用，如果仔细一点，会发现上面的技巧都是假定知道数据库名的情况下才能实施的。但很多时候我们根本不可能知道数据库的名字，这时我们可能会感到很沮丧，觉得无法再进行下去，但数据库暴库技术的出现不仅可以一扫我们的沮丧情绪，也能让我们真正地将前面的技术综合起来利用。　　很多人在用asp写数据连接文件时，总会这么写(conn.asp)：……db="data/rds_dbd32rfd213fg.mdb"set conn = server.createobject("adodb.connection")connstr="provider=microsoft.jet.oledb.4.0;data source=" &server.mappath(db)conn.open connstr