最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
利用ADODB.Stream使用浏览器下载服务器文件
时间:2008-01-18 编辑:简简单单 来源:一聚教程网
就可以把这个文件下载下来
<%
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("
Error:
" & strFilename & " does not exist")
33 Response.End
34 end if
35
36
-
上一个: 存储过程入门
-
下一个: 多题投票统计系统之SAVE篇--原创
相关文章
- Opera 46浏览器发布 支持动态PNG文件 06-26
- 怎么查看IE浏览器下载失效文件 09-27
- 黑客案例--浏览器执行exe文件的探讨 01-12
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16