页面添加照片且存入数据库的方法

页面前台IMG控件，单击此图片，进行图片的添加修改

<img name="photo0" id="photo0" border="0" src="showphoto.asp?caseno=<%=caseno%>" width="84" height="105" style="cursor:hand" οnclick="javascript:NewWin('addphoto.asp?caseno=<%=caseno%>')"> 

 

弹出窗口，通过input file控件选择图片，然后提交

<%
caseno=request.QueryString("caseno")
set objcn = server.CreateObject("gdcom.database")
connstr=objcn.getconnstring
set conn=server.CreateObject("adodb.connection")
conn.open connstr
set rs = server.CreateObject("ADODB.Recordset")

formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13)&chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
set rs=server.createobject("ADODB.recordset")
rs.open "SELECT * FROM gab_gmet where ajbh='"&caseno&"'",conn,3,3
if not rs.eof then
else
rs.addnew
end if
rs("ajbh")=caseno
rs("zp").AppendChunk myData
rs.update
rs.close
set rs=nothing
set conn=nothing

%>
<script language="javascript">

alert('保存完成');

</script>
<%
Response.Write "<script>parent.opener.document.all.photo0.src='showphoto.asp?caseno="&caseno&"'</script>"
Response.Write "<script>parent.close()</script>"

显示照片的showphoto.asp文件，查询数据库，有照片就提取出来，没有就用默认照片替代

<%
set obj=server.CreateObject ("gdcom.database")
set conn=server.CreateObject("ADODB.connection")
conn.Open obj.GetConnString()
set rec=server.createobject("ADODB.recordset")
Response.ContentType="image/*"
strsql="select zp from gab_gmet where ajbh='"&Request.QueryString ("caseno")&"'"

rec.open strsql,conn,1,1
if not rec.EOF then
 if not isnull(rec("zp")) then
  Response.BinaryWrite rec("zp").getChunk(750000)              'zp(照片)字段为long raw类型
 else
  BackURL="../images/alert.gif"
 end if
else
 BackURL="../images/alert.gif"
end if

rec.Close
if BackURL<>"" then
 Response.Redirect BackURL
end if
%>