2.下面的代码(ShowImage.asp)从数据库中取出图片的内容。
<%@ Language=VBScript %>
<!--#include file="../adovbs.inc"-->
<%
'本程序读取组织结构(ZZJG)表中的组织机构(ZZJG)或党建联系点(DJLXD)两个字段的内容,并以图片形式输出
'输入的参数ImageName可以为ZZJG或DJLXD
on error resume next
dim conn,rs,sSQL,image_id
image_id=Trim(Request.QueryString("image_id"))
set conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
conn.Open Application("DBConn")
sSQL="SELECT ImageContent FROM ArticleImage WHERE image_id='" & image_id & "'"
rs.Open sSQL,conn,adOpenForwardOnly,adLockReadOnly,adCmdText
Response.ContentType="image/*"
Response.BinaryWrite rs("ImageContent").GetChunk(7500000)
rs.Close
conn.Close
set rs=nothing
set conn=nothing
%>