showimage.asp

又一套宾馆全站源码

<% Response.Buffer=True 

' 建立数据库连接的对象

Set objDBConn = Server.CreateObject("ADODB.Connection")

objDBConn.Open Application("Connect_String")  ' 打开数据库连接

strProductNo = Request.QueryString("id")

' 数据库查询的SQL语法
strSQL = "SELECT * FROM t_dish  WHERE dish_id='" & strProductNo & "'"

' 执行SQL的数据库查询
Set objRS = objDBconn.Execute(strSQL)

' 设置MIME类型
Response.ContentType = "image/pjpeg"

' 显示图片
Response.BinaryWrite objRS("dish_image").Value 

objRS.Close         ' 关闭记录集合

Set objRS = Nothing

objDBConn.Close     ' 关闭数据库连接

Set objDBConn = Nothing 
%>