function ImageUp(formsize,formdata) '这个函数的功能是截取其中的图像部分。
bncrlf=chrb(13) & chrb(10) '做成函数后。以后你可以自己随意使用了。
divider=leftb(formdata,instrb(formdata,bncrlf)-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
imageup=midb(formdata,datastart,dataend)
end function
set rs=server.CreateObject("adodb.recordset")
'sql="update tfiles set efile="&Image&"where id="&id
sql="SELECT top 1 * FROM tfiles order by id desc"
'response.write sql
'response.end
rs.Open sql,conn,1,3