ASP如何实现文件下载? [ADODB.Stream方式]

以下是以前写的一个关于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

'===================================