下列代码的文件名:GetFile.asp
      <%@ Language=VBScript %>
      <!--#include file="conn.asp"-->
      <%
         Info_Id=Request("Info_Id")
         set rs=server.CreateObject("adodb.recordset")
         sql="SELECT * FROM Info where Info_Id="& Info_Id
         rs.Open sql,conn,3,3
      response.contenttype=rs("File_MIME_Type")
      Response.AddHeader "Content-Length",rs("File_Size")
      Response.AddHeader "Content-Disposition", "attachment;filename=""" & rs("File_Name") & """"
      Response.BinaryWrite rs("Info_File")
         rs.close
         set rs=nothing
         conn.close
        set conn=nothing
       %>

获取图片的方式是<img src=GetFile.asp?Info_Id=XXXXXXX>
获取文件的方式<a href=GetFile.asp?Info_Id=XXXXXXX>下载文件</a>
XXXXXXX为记录的主键Info_Id值

如果去掉
      Response.AddHeader "Content-Length",rs("File_Size")
      Response.AddHeader "Content-Disposition", "attachment;filename=""" & rs("File_Name") & """"
同样可以显示图片,获取文件因没有指定文件名就会以Getfile.asp下载保存了