<%
response.Buffer=true '需将response.Buffer=true属性值设置为true
formsize=request.totalbytes '获取数据大小
formdata=request.binaryread(formsize)'获取二进制数据
bncrlf=chrB(13) & chrB(10)'二进制数据需用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)
'建立数据库连接
Dim cnn,strConn
 strConn="Dbq=" & Server.Mappath("jxgl.mdb") & _
 ";Driver={Microsoft Access Driver (*.mdb)}"
 Set cnn=Server.CreateObject("ADODB.Connection") 
 cnn.Open strConn
Set rs = Server.CreateObject("ADODB.Recordset")
strsql="select * from xsxx where 学号='" &session("stuid")&"'"
rs.open strsql,cnn,3,2
'不能用SQL update语句更新二进制数据
rs("照片").appendchunk mydata
rs.update 
rs.close
set rs=nothing
set conn=nothing
%> 
<center>
数据已经成功传送
</center>
