文件下载

<%
dim rsFileInfo , objFile , lngFileID ,fileName
lngFileID=clng(request("FileID"))
'resonse.write "l="&lngFileID
'清除已经存在的HTTP header信息

Response.Expires = 0

Response.Buffer = TRUE

Response.Clear

'将HTTP header置为application/x-rar表示传送的将是压缩包

set objFile=Server.CreateObject("JZYS_COM.FileOperate")
if objFile.ErrNumber=0 then set rsFileInfo=objFile.Get_File(clng(lngFileID))
if objFile.ErrNumber=0 then 
    fileName=rsFileInfo("FILEREALNAME")
 response.contenttype="application/x-rar"
 response.AddHeader "content-disposition", "attachment; filename="& fileName
 response.binarywrite rsFileInfo("FILECONTENT")
 rsFileInfo.Close
 set objFile=nothing
else
 Response.Write("<script language=javascript>window.location='../Public/Error.asp?strNo=" & objFile.ErrNumber & "&strError=" & objFile.ErrMessage & "'; </script>")
end if
%>