 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% Response.Buffer=true 取得要下载的文件，假如不为空。就下载 dim url,trueurl url="下载文件路径和下载文件名" fname=Request("filename") if fname<>"" then trueurlurl=server.MapPath("/") &url end if set objFso=server.CreateObject("scripting.filesystemobject") set fn=objFso.GetFile(trueurl) flsize=fn.size flname=fn.name set fn=nothing set objFso=nothing set objStream=server.CreateObject("adodb.stream") objStream.Open objStream.Type=1 objStream.LoadFromFile url select case lcase(right(flname,4)) case ".asf" ContentType="video/x-ms-asf" case ".avi" ContentType="video/avi" case ".doc" ContentType="application/msword" case ".zip" ContentType="application/zip" case ".xls" ContentType="application/vnd.ms-excel" case ".gif" ContentType="image/gif" case ".jpg","jpeg" ContentType="image/jpeg" case ".wav" ContentType="audio/wav" case ".mp3" ContentType="audio/mpeg3" case ".mpg", "mpeg" ContentType="video/mpeg" case ".rtf" ContentType="application/rtf" case ".htm","html" ContentType="text/html" case ".txt" ContentType="text/plain" Case ".ASP", ".ASA", "ASPX", "ASAX", ".MDB" Response.Write "受保护文件,不能下载." Response.End case else ContentType="appliation/octet-stream" end select Response.AddHeader "Content-Disposition", "attachment; filename="&flname Response.AddHeader "Content-Length", flsize Response.CharSet="UTF-8" Response.ContentType=ContentType Response.BinaryWrite objStream.Read Response.Flush Response.Clear() objStream.Close set objStream=nothing %> 返回类别: 教程 上一教程: 用ASP+XML打造留言本(3) 下一教程: 遍历目录以及目录下文件的函数 您可以阅读与"TXT.WORD文档下载在本地,而不是在浏览器中打开"相关的教程: · 在浏览器中动态显示图形(利用OWC) · 实现文件下载而不是由IE打开的代码 · 关于在浏览器中执行*.EXE文件的深入探讨! · ASP: 浏览器中上载文件的方式与实现 · 在基于MOZILLA的浏览器中使用XMLHTTPREQUEST对象 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
