download.asp

asp开发 asp开发 asp开发 asp开发

<%
	set conn = server.createobject("ADODB.CONNECTION")
	conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &_
		server.mappath("temp.mdb")
	'打开记录集
	strSql = "Select * From uploadfiles where id = " & Request("id")
	Set rs = conn.Execute(strSql)

	'下面将文件输出到客户端，首先指明ContentType
	Response.ContentType = "application/octet-stream"
	'告诉浏览器文件名称
	Response.AddHeader "Content-Disposition","attachment;filename=" & rs("filename")
	'告诉浏览器文件大小
	Response.AddHeader "Content-Length", CStr(rs("size"))
	'输出二进制文件
	Response.BinaryWrite rs("fileimage")
%>