把存储在SQL7的image字段的文件下载到客户端的ASP源代码

把存储在sql7的image字段的文件下载到客户端的asp源代码

文 件 名：download.asp

使用方法：download.asp?fid=xxx

说　　明：把sql7的image字段存储的文件下载到客户端

数据库结构：[表名]tabimage　{fid int not null;filename varchar(100) not null;filecontent image not null}

fid:文件id [pk]；filename:文件名；filecontent:文件二进制内容

<%

response.buffer=true

varfileid = request("fid")

if varfileid="" then

response.write "没有指定下载文件id。"

response.end

end if

opendb conn

sql = "select filename,filecontent from tabimage where fid=" & varfileid

set rs = conn.execute(sql)

if not rs.eof then

varfilename = rs("filename")

varfilesize=rs("filecontent").actualsize

varcontent = rs("filecontent").getchunk(varfilesize)

response.contenttype = "*/*"

response.addheader "content-length",varfilesize

response.addheader "content-disposition", "attachment;filename=""" & varfilename & """"

response.binarywrite varcontent

end if

rs.close

set rs = nothing

conn.close

set conn = nothing

response.end

连接数据库通用过程

sub opendb (byref conn)

set conn = server.createobject("adodb.connection")

conn.provider="sqloledb"

conn.connectionstring = "driver={sql server};server=xxx.xxx.xxx.xxx;uid=myusername;pwd=mypassword;database=mydatabase"

conn.open

end sub

%>