<!--#include virtual="/_inc/conn.inc"-->  <%  '取得客户端送出的数据字节大小  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)+4  dataEnd=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,3  rs.addnew  rs("picData").AppendChunk myData  rs.Update  counts=rs.recordCount+1  rs.close  conn.close  %> 

<!--#include virtual="/_inc/conn.inc"-->  <%  sID=Request.QueryString("id")  strSQL="Select picData FROM tblImages Where id=" & sID  Set rs=Server.CreateObject("ADODB.Recordset")  rs.Open strSQL,conn,1,1  Response.ContentType="image/*"  dataSize=rs(0).actualSize  Response.BinaryWrite rs(0).getChunk(dataSize)  rs.Close  conn.Close  %>