'取得客户端送出的数据字节大小frmsize=Request.TotalBytes '以二进制方式读取数据frmData=Request.BinaryRead(frmsize) '去掉实际数据前、后的边界字符串行bnCrLf=ChrB(13)&ChrB(10)divider=leftB(frmdata,CLng(InstrB(frmdata,bnCrLf))-1)dataStart=InstrB(frmData,bnCrLf&bncrlf)+4dataEnd=InstrB(datastart+1,frmData,divider)-dataStart '读出图象数据myData=Midb(frmdata,dataStart,dataEnd) '将图象数据存入数据库strSQL="SELECT * FROM tblImages"set rs=Server.CreateObject("ADODB.Recordset")rs.open strSQL,conn,1,3rs.addnewrs("picData").AppendChunk myDatars.Updatecounts=rs.recordCount+1rs.closeconn.close strSQL="SELECT picData FROM tblImages WHERE id=" & sIDSet rs=Server.CreateObject("ADODB.Recordset")rs.Open strSQL,conn,1,1Response.ContentType="image/*"dataSize=rs(0).actualSizeResponse.BinaryWrite rs(0).getChunk(dataSize)rs.Closeconn.Close