<%
Response.Buffer=True
varfileid = Request("id")
'varfileid =20
If varfileid="" Then
Response.write "没有指定下载文件ID。"
Response.End
End If
set conn=server.CreateObject("ADODB.connection")
conn.open "Provider=Sqloledb ; User ID = sa ; Password= ; Initial Catalog = test ; Data Source = c102"
SQL = "SELECT img FROM image WHERE id=" & varfileid
Set rs = conn.Execute(SQL)
If Not rs.Eof Then
varfilename ="newfile.doc" ' rs("filename")
varfilesize=rs("img").ActualSize
varcontent =rs("img").GetChunk(varfilesize)
Response.ContentType = "application/msword" 'excel文件
Response.AddHeader "Content-Length",varfilesize
Response.AddHeader "Content-Disposition", "attachment;filename=""" & varfilename & """"
'Response.Write "您要保存的文件名是:"&varfilename&"<p>"
Response.binarywrite varcontent
End If
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Response.End
%>