怎样在asp中写下载页面的代码啊？高手帮帮忙，急

怎样在asp中写下载页面的代码啊？高手帮帮忙，急

连接地址：
><%=rs("file")%>

注意;upfile是文件夹名。<%=rs("filename")%>是读取的字段名。

上一个页面传过来的信息：新建一个。down.asp
<%
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "无效文件名."
Response.End
End if
' 下面是不希望下载的文件
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "受保护文件,不能下载."
Response.End
End Select
' 下载这个文件
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & FileName
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>

哈哈！搞定要加分。。。。

<%response.write ""%>

下载
这样写就可以，找不现页面可能是因为当前目录下没有123.rar文件
如果是图片或是网页文件是下载不了的。看你的扩展名。
-------------------
能不能把网页代码发一下。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息