取出来
<%
ID=Request("ID")
set rs=Server.CreateObject("ADODB.Recordset")
sql="select image from Photo where id=" & id
end if
rs.Open sql,conn,0,1
Response.contenttype="image/gif"
Response.BinaryWrite rs("image")
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>
if FormSize>1024*maxlength then
Response.Write "<script>alert('请控制照片文件大小在" & maxlength & "K字节以内');history.back();</script>"
Response.End
end if
if FormSize<200 then
Response.Write "<script>alert('请选择照片文件后上传');history.back();</script>"
Response.End
end if
Image=ImageUp (FormSize,Formdata) '这里就是图像部分了。
set conn=Server.CreateObject("ADODB.Connection")
conn.open connstr
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from Photo where 1=0"
rs.Open sql,conn,1,3
rs.AddNew
rs("logid")=logid
rs("image").Appendchunk Image
rs.Update
rs.Close
set rs=nothing
conn.close
set conn=nothing
function ImageUp(formsize,formdata) '这个函数的功能是截取其中的图像部分。
bncrlf=chrb(13) & chrb(10) '做成函数后。以后你可以自己随意使用了。
divider=leftb(formdata,instrb(formdata,bncrlf)-1)
'response.binarywrite formdata
'response.write "<hr>"
'response.binarywrite divider
'response.end
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
imageup=midb(formdata,datastart,dataend)
end function
%>