图片从数据库读取出来的时候需要定义一个属性:
response.contenttype=" image/ * "
为什么这样定义不管用?
如果我需要上传gif 和jpg 图片,应该怎么定义?
谢谢!
不好意思,是下载时怎么定义的。 能不能贴一个同时从数据库读图片和文字的例子,我写的程序怎么总是冲突,文字和图片分成2页显示很好,就是不能同时在一页上显示?
<!--#include file="conn.asp"--> <% dim rs dim sql dim iid iid=trim(request.querystring("newsid")) sql="select * from 信息 where id=" & iid & " order by user_time desc" 'sql=sql & iid set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 Response.ContentType = "image/gif" %> <!--#include file="top.asp"-->‘每页的文件头 <table border="0" width="100%" height="23" cellspacing="0" cellpadding="0"> <tr> <td width="87%" height="1" colspan="2"> <p align="left"> 您的位置 >> <a href="index.asp" style="color:black">工会首页</a> >> <a style="color: #000000" href="tqkb.asp">工会信息</a> <a href="index.asp" style="color:black"></a> >> 信息内容</td> <td width="13%" height="1"></td> </tr> </table> <table border="0" width="100%" height="94" cellspacing="0" cellpadding="0"> <tr> <td width="7%" height="29"></td> <td width="83%" height="29" align="center" style="border-top: 1 solid #000000; border-bottom: 1 solid #000000"><b><%=rs("user_name")%></b></td> <td width="10%" height="29"></td> </tr> <tr> <td width="7%" height="21"></td> <td width="83%" height="21" align="center">发文部门:<%=rs("user_bumen")%> 发布时间:<%=rs("user_time")%></td> <td width="10%" height="21"></td> </tr> <tr> <td width="7%" height="18"></td> <td width="83%" height="13" style="border: 1 solid #000000"> <table border=0 cellpadding="6" cellspacing="6"> <tr><td> <% set rec=server.createobject("ADODB.recordset") strsql="select img from images where id='"&iid&"'" rec.open strsql,conn,1,1 Response.BinaryWrite rec("img").getChunk(7500000) rec.close set rec=nothing %> </td></tr> <tr> <td> <%=rs("user_neirong")%> </td> </tr> </table> </td> <td width="10%" height="18"></td> </tr> <tr> <td width="7%" height="18"></td> <td width="83%" height="9"></td> <td width="10%" height="18"></td> </tr> </table> </body> <% rs.close conn.close %>
[此贴子已经被作者于2004-08-11 14:20:27编辑过]
晕,数据库里的图片不能和文字放一起,你要改成两个文件,一个显示图片用,另一个显示文字信息。
如显示图片的程序为ShowPic.asp ,显示文字的程序为ShowDetail.asp
ShowDetail.asp写成如下(去掉读图片的代码)
<!--#include file="conn.asp"--> <% dim rs dim sql dim iid iid=trim(request.querystring("newsid")) sql="select * from 信息 where id=" & iid & " order by user_time desc" 'sql=sql & iid set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 %> <!--#include file="top.asp"-->‘每页的文件头 <table border="0" width="100%" height="23" cellspacing="0" cellpadding="0"> <tr> <td width="87%" height="1" colspan="2"> <p align="left"> 您的位置 >> <a href="index.asp" style="color:black">工会首页</a> >> <a style="color: #000000" href="tqkb.asp">工会信息</a> <a href="index.asp" style="color:black"></a> >> 信息内容</td> <td width="13%" height="1"></td> </tr> </table> <table border="0" width="100%" height="94" cellspacing="0" cellpadding="0"> <tr> <td width="7%" height="29"></td> <td width="83%" height="29" align="center" style="border-top: 1 solid #000000; border-bottom: 1 solid #000000"><b><%=rs("user_name")%></b></td> <td width="10%" height="29"></td> </tr> <tr> <td width="7%" height="21"></td> <td width="83%" height="21" align="center">发文部门:<%=rs("user_bumen")%> 发布时间:<%=rs("user_time")%></td> <td width="10%" height="21"></td> </tr> <tr> <td width="7%" height="18"></td> <td width="83%" height="13" style="border: 1 solid #000000"> <table border=0 cellpadding="6" cellspacing="6"> <tr><td> <%
'去掉一下几行 'set rec=server.createobject("ADODB.recordset") 'strsql="select img from images where id='"&iid&"'" 'rec.open strsql,conn,1,1 'Response.BinaryWrite rec("img").getChunk(7500000) 'rec.close 'set rec=nothing %>
<!--加上一下这一行--> <img src="ShowPic.asp?id=<%=iid%>"> </td></tr> <tr> <td> <%=rs("user_neirong")%> </td> </tr> </table> </td> <td width="10%" height="18"></td> </tr> <tr> <td width="7%" height="18"></td> <td width="83%" height="9"></td> <td width="10%" height="18"></td> </tr> </table> </body> <% rs.close conn.close %>
ShowPic.asp 写成如下(读图片的代码)
<!--#include file="conn.asp"--> <% dim rec dim strsql dim iid iid=trim(request.querystring("id"))
set rec=server.createobject("ADODB.recordset") strsql="select img from images where id='"&iid&"'" rec.open strsql,conn,1,1 Response.ContentType = "image/gif" Response.BinaryWrite rec("img").getChunk(7500000) rec.close set rec=nothing %>