dim id
id=2
sql="select * from images"
rec.Open sql,connGraph, 1,3
rec.addnew
rec("id")=id
rec("img").appendchunk mydata
rec.update
rec.close
set rec=nothing
set connGraph=nothing
%>
showimg.asp
<%
Response.Expires = 0
Response.clear
dim id
id = request("id")
set connGraph=server.CreateObject("ADODB.Connection")
set rec=server.CreateObject("ADODB.Recordset")
connGraph.open"provider=SQLOLEDB;DATA SOURCE=PLA-82DF3E1F057;UID=llcc;PWD=1;DATABASE=电子电路实验考核系统" 'sql 的数据库注意密码和用户名是否正确
strsql="select * from images where id="& Clng(id)
'strsql="select img from images where id=1"
rec.open strsql,connGraph,1,1
Response.ContentType = "image/*"
Response.BinaryWrite rec("img").getChunk(0,7500000)
'Response.BinaryWrite rec("img")
<!--#include file="conn/conn.asp"-->
<%
id=request("id")
set rec=server.createobject("ADODB.recordset")
strsql="select * from prdt_info where prdt_id="&"'"&id&"'"
rec.open strsql,conn
if rec.eof then
response.write "id is invalid!<br>"
else
response.contenttype="image/bmp"
response.binarywrite rec("pimg").getchunk(750000)
end if
rec.close
set rec=nothing
conn.close
set conn=nothing
%>
调用这个程序
<br><font color="#0000FF">产品图片:<br></font>
<img src="1.asp?id=<%=prdt_id%>" height="150" width="200" border=1>
'建立同数据库的联系
Set rsImg=Server.CreateObject("Adodb.Recordset")
str="select * from ProImg where ProID='"&session("ImgRealID")&"'"
rsImg.Open str,conn,1,3
'判断是否曾经上传过图片,如果上传过就更改图片,否则就添加到数据库中
If rsImg.Eof Then
rsImg.AddNew
rsImg("ProID")=session("ImgRealID")
rsImg("ProPic").appendchunk mydata
rsImg.update
Else
rsImg("ProID")=session("ImgRealID")
rsImg("ProPic").appendchunk mydata
rsImg.update
End If
rsImg.close
Set rsImg=Nothing
'返回到图片上传页,并显示刚上传的图片
response.redirect "ImgIns.asp?id="&session("ImgRealID")&"&ok=Y"
response.End
%>