怎样在asp中写下载页面的代码啊?高手帮帮忙,急
在html页面中用<a>标签就可以了,但是我用asp不知道怎么样写?我在html中是这样写的<ahref="123.rar">下载</a>我在asp中写时放在了标记外面,...
在html页面中用<a>标签就可以了,但是我用asp不知道怎么样写?
我在html中是这样写的
<a href="123.rar">下载</a>
我在asp中写时放在了标记外面,可是测试时,123.rar总会在地址栏出现,无法找到页面
我是想做.mp3文件下载 展开
我在html中是这样写的
<a href="123.rar">下载</a>
我在asp中写时放在了标记外面,可是测试时,123.rar总会在地址栏出现,无法找到页面
我是想做.mp3文件下载 展开
3个回答
展开全部
连接地址:
<a href=down.asp?filename=/upfile/<%=rs("filename")%>><%=rs("file")%></a>
注意;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
%>
哈哈!搞定要加分。。。。
<a href=down.asp?filename=/upfile/<%=rs("filename")%>><%=rs("file")%></a>
注意;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
%>
哈哈!搞定要加分。。。。
展开全部
<a href="123.rar">下载</a>
这样写就可以,找不现页面可能是因为当前目录下没有123.rar文件
如果是图片或是网页文件是下载不了的。看你的扩展名。
-------------------
能不能把网页代码发一下。
这样写就可以,找不现页面可能是因为当前目录下没有123.rar文件
如果是图片或是网页文件是下载不了的。看你的扩展名。
-------------------
能不能把网页代码发一下。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
<%response.write "<a>"%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询