ASP如何实现文件下载? [ADODB.Stream方式]
来源:互联网 发布:algorithm算法 编辑:程序博客网 时间:2024/04/28 03:56
以下是以前写的一个关于ASP如何下载文件的方法 。
利用的是ADODB.Stream。
源代码如下:
<%
'*****************************
'Author:yaosansi
'Site:http://www.yaosansi.com
'Date:2006-01-20
'*****************************
'===================================
'判断文件夹是否存在,不存在创建文件夹
'===================================
Function CreateFolder(Folder)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
If Folder<>"" then
If not fso.FolderExists(Folder) Then
Set f = fso.CreateFolder(Folder)
End If
end if
CreateFolder = Folder
End Function
'===================================
'获取文件目录
'===================================
Function GetFilePath(FullPath,str)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, str))
Else
GetFilePath = ""
End If
End function
'===================================
'下载文件
'===================================
Function downloadFile(strFile)
' make sure you are on the latest MDAC version for this to work
' get full path of specified file
strFilename = server.MapPath(strFile)
' clear the buffer
Response.Buffer = True
Response.Clear
' create stream
Set s = Server.CreateObject("ADODB.Stream")
s.Open
' Set as binary
s.Type = 1
' load in the file
on error resume next
' check the file exists
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("<h1>Error:</h1>"&strFilename&" does not exists!<p>")
Response.End
end if
' get length of file
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error: </h1>Unknown Error!<p>")
Response.End
end if
' send the headers to the users Browse
Response.AddHeader "Content-Disposition","attachment; filename="&f.name
Response.AddHeader "Content-Length",intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
' output the file to the browser
Response.BinaryWrite s.Read
Response.Flush
' tidy up
s.Close
Set s = Nothing
End Function
%>
利用的是ADODB.Stream。
源代码如下:
程序代码
<%
'*****************************
'Author:yaosansi
'Site:http://www.yaosansi.com
'Date:2006-01-20
'*****************************
'===================================
'判断文件夹是否存在,不存在创建文件夹
'===================================
Function CreateFolder(Folder)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
If Folder<>"" then
If not fso.FolderExists(Folder) Then
Set f = fso.CreateFolder(Folder)
End If
end if
CreateFolder = Folder
End Function
'===================================
'获取文件目录
'===================================
Function GetFilePath(FullPath,str)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, str))
Else
GetFilePath = ""
End If
End function
'===================================
'下载文件
'===================================
Function downloadFile(strFile)
' make sure you are on the latest MDAC version for this to work
' get full path of specified file
strFilename = server.MapPath(strFile)
' clear the buffer
Response.Buffer = True
Response.Clear
' create stream
Set s = Server.CreateObject("ADODB.Stream")
s.Open
' Set as binary
s.Type = 1
' load in the file
on error resume next
' check the file exists
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strFilename) then
Response.Write("<h1>Error:</h1>"&strFilename&" does not exists!<p>")
Response.End
end if
' get length of file
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
if err then
Response.Write("<h1>Error: </h1>Unknown Error!<p>")
Response.End
end if
' send the headers to the users Browse
Response.AddHeader "Content-Disposition","attachment; filename="&f.name
Response.AddHeader "Content-Length",intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
' output the file to the browser
Response.BinaryWrite s.Read
Response.Flush
' tidy up
s.Close
Set s = Nothing
End Function
%>
- ASP如何实现文件下载? [ADODB.Stream方式]
- 利用Adodb.Stream直接下载文件
- 利用Adodb.Stream直接下载文件
- 利用Adodb.Stream直接下载文件
- 使用Adodb.Stream下载大文件
- Asp利用Stream实现文件下载
- asp xmlhttp adodb.stream
- adodb.Stream读写文件
- asp adodb.stream读取文件和写文件
- 让自定义文件下载支持断点续传(HTTP_RANGE Adodb.Stream)
- 自定义文件下载支持断点续传(HTTP_RANGE Adodb.Stream)
- asp---CreateObject("adodb.stream")文件写入utf-8格式
- Asp利用Stream下载文件
- Asp ADODB.Stream对象的方法属性
- 利用adodb.stream直接下载任何后缀的文件(防盗链)
- 利用adodb.stream直接下载任何后缀的文件(防盗链)
- ASP adodb.stream 取 Win32 .bmp 图片完整文件头信息 By shawl.qiu
- ASP adodb.stream 取 .gif 图片完整文件头&描述信息 By shawl.qiu
- 黑客攻破SQL服务器系统的十种方法
- Hibernate学习-错误解决2
- Asp无组件生成缩略图
- JSP学习_数据库操作(SQL2000)
- 取汉字的拼音首字母
- ASP如何实现文件下载? [ADODB.Stream方式]
- unicode编码问题
- ADO.NET 2.0 功能一览
- 同时支持三种事件模型的javascript
- 汉字转化为拼音(asp版)
- 如何从Html页面中提取所有汉字及字符,不能有其它Html代码.
- 蠕虫 srv32.exe 逆向分析笔记
- 《超越C++标准库:Boost库导引》
- 配置管理与版本管理的思考