在一个 ASP 文件中粘贴以下代码即可,不要包括任意 HTML 标识!<% 
Response.Buffer=True
set connGraph=server.CreateObject("ADODB.connection") 
connGraph.ConnectionString"driver={sql server};server="&request.servervariables("server_name")&";database=dcnet;uid=sa;pwd="
connGraph.Open 
set rec=server.createobject("ADODB.recordset") 
strsql="select img from img where id=1"' & trim(request("id")) 
rec.open strsql,connGraph,1,1
'Response.BinaryWrite rec("img").getChunk(7500000)
' <IMG src="xszp.asp" width=105 height=150>图片就可以显示出来了。'显示图片的另一个语句
'___________________________________________________________________
'以下为加入的程序
'___________________________________________________________________'varfilename = "filename.jpg" 'rs("filename")
varfilesize=rec("img").ActualSize
'Response.Write "文件的大小是:"&varfilesize&"<p>"
'varcontent = rec("img").GetChunk(varfilesize)
varcontent = rec("img").GetChunk(varfilesize)
Response.ContentType = "*/*"
Response.AddHeader "Content-Length",varfilesize
Response.AddHeader "Content-Disposition", "attachment;filename=""" & varfilename & """"'___________________________________________________________________'实际上此语句不但可以显示图片,一些文件也可以显示出来,很好
'应该考虑显示文字时,分行的问题。
'Response.BinaryWrite rec("img")rec.close 
set rec=nothing 
set connGraph=nothing 
%>  

解决方案 »

  1.   

    见我做的
    http://www.datafinesoft.com.cn和输入到数据库的方法一样的
      

  2.   

    <html>
    <head>
    <title>无标题文档</title>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    </head><%set conn=server.CreateObject("ADODB.connection") connstr="provider=sqloledb;user id=*******;password=*******;initial catalog=******;data source=*******"conn.Open connstrset rec=server.createobject("ADODB.recordset") strsql="select img from pic where id "&trim(request("id"))rec.open strsql,conn,1,3Response.ContentType = "image/*" Response.BinaryWriterec("img").getChunk(7500000) rec.close set rec=nothing set conn=nothing %>