 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% Const ForReading=1 Const TristateTrue=-1 \\\'Unicode Const FILE_TRANSFER_SIZE=16384 \\\'16k \\\'Use the following line for IIS4/PWS - this is the default for IIS5 Response.Buffer = True Function TransferFile(path, mimeType, filename) Dim objFileSystem, objFile, objStream Dim char Dim sent send=0 TransferFile = True Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFileSystem.GetFile(Path) Set objStream = objFile.OpenAsTextStream(ForReading, TristateTrue) Response.AddHeader "content-type", mimeType response.AddHeader "Content-Disposition","attachment;filename="&filename Response.AddHeader "content-length", objFile.Size Do While Not objStream.AtEndOfStream char = objStream.Read(1) Response.BinaryWrite(char) sent = sent + 1 If (sent MOD FILE_TRANSFER_SIZE) = 0 Then Response.Flush If Not Response.IsClientConnected Then TransferFile = False Exit Do End If End If Loop Response.Flush If Not Response.IsClientConnected Then TransferFile = False objStream.Close Set objStream = Nothing Set objFileSystem = Nothing End Function Dim path, mimeType, sucess \\\'Server.MapPath(path) path = "C:Inetpubwwwroothelp.gif" mimeType = "application/x-msdownload" sucess = TransferFile(path, mimeType,"help.gif") Response.End %> 返回类别: 教程 上一教程: 加密处理使密码更安全CFS编码加密 下一教程: ASP:BASE64编码、解码函数 您可以阅读与"实现文件下载而不是由IE打开的代码"相关的教程: · 动网论坛上传文件漏洞的原理以及攻击的代码实现 · TXT.WORD文档下载在本地,而不是在浏览器中打开 · 把文件存进ACCESS数据库然后取出来供人下载的代码 · 无组件实现文件上传/下载 · ASP实现文件直接下载 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
