 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
download.asp?file=相对路径的文件 就可以把这个文件下载下来 <% 2 3 call downloadFile(replace(replace(Request("file"),"",""),"/","")) 4 5 Function downloadFile(strFile) 6 \\\' make sure you are on the latest MDAC version for this to work 7 \\\' ------------------------------------------------------------- 8 9 10 \\\' get full path of specified file 11 strFilename = server.MapPath(strFile) 12 13 14 \\\' clear the buffer 15 Response.Buffer = True 16 Response.Clear 17 18 \\\' create stream 19 Set s = Server.CreateObject("ADODB.Stream") 20 s.Open 21 22 \\\' Set as binary 23 s.Type = 1 24 25 \\\' load in the file 26 on error resume next 27 28 29 \\\' check the file exists 30 Set fso = Server.CreateObject("Scripting.FileSystemObject") 31 if not fso.FileExists(strFilename) then 32 Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>") 33 Response.End 34 end if 35 36 37 \\\' get length of file 38 Set f = fso.GetFile(strFilename) 39 intFilelength = f.size 40 41 42 s.LoadFromFile(strFilename) 43 if err then 44 Response.Write("<h1>Error: </h1>" & err.Description & "<p>") 45 Response.End 46 end if 47 48 \\\' send the headers to the users browser 49 Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name 50 Response.AddHeader "Content-Length", intFilelength 51 Response.CharSet = "UTF-8" 52 Response.ContentType = "application/octet-stream" 53 54 \\\' output the file to the browser 55 Response.BinaryWrite s.Read 56 Response.Flush 57 58 59 \\\' tidy up 60 s.Close 61 Set s = Nothing 62 63 64 End Function 65 66 %> 返回类别: 教程 上一教程: IE功能汇总 下一教程: ASP设计常见问题及解答精要-1 您可以阅读与"利用ADODB.STREAM使用浏览器下载服务器文件"相关的教程: · 利用adodb.stream直接下载任何后缀的文件(防盗链) · 使用XMLHTTP和ADODB.STREAM取得远程文件并保存到本地 · 让自定义文件下载支持断点续传(HTTP_RANGE ADODB.STREAM) · 自动将远程页面的文件中的图片下载到本地服务器 · 在不支持FSO的服务器上使用XMLDOM创建HTML文件 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
