savereimg.asp

自己的网站 看看吧 我以前的网站

<!--#include file="bkconn.asp"-->
<!--#INCLUDE file="upload.asp"-->
<%
FormSize=Request.TotalBytes
FormData=Request.BinaryRead(FormSize)
Set Fields = GetUpload(FormData)

userid=Fields("userid").Value
imgsize= Fields("reimg").length
imgtype= Fields("reimg").ContentType
imgdata=Fields("reimg").Value

if imgsize=0 or (imgtype<>"image/pjpeg" and imgtype<>"image/gif") then
else
   set rs=server.createobject("ADODB.recordset") 
   rs.Open "SELECT * FROM Book Where id="&userid,conn,1,3
   rs("img").appendchunk imgdata 
   rs("size")=imgsize
   rs.update 
   imgid=userid
   rs.close 
   set rs=nothing
end if
response.redirect "showimg2.asp?id="&userid
%>