processimg.asp

来自「SQL2000跟课件学习的源代码 分享共同学习」· ASP 代码 · 共 28 行

<%
  Response.Buffer=True
  ImageSize=Request.TotalBytes '获取提交数据量的总字节数
  ImageData=Request.BinaryRead(ImageSize) '保存从客户端读取到的数据
  '优化读取到的二进制数据
  BnCrLf=chrB(13)&chr(10)
  Divider=LeftB(ImageData,Clng(InstrB(ImageData, BnCrLf))-1)
  Dstart=InstrB(ImageData, BnCrLf& BnCrLf)+4
  Dend=InstrB(Dstart+1, ImageData, Divider)- Dstart
  MyData=MidB(ImageData, Dstart, Dend)
  '创建对象实例
  Set imgConn=Server.CreateObject(“ADODB.Connection”)
  StrConn="Driver={SQL Server};Server=ServerName;"&_
"Uid=xxxx;Pwd=xxxx;DataBase=DataBaseName"
  imgConn.open strConn
  Set Rs= Server.CreateObject(“ADODB.RecordSet”)
  Sql=”Select * From img Where id is null”
  Rs.open sql,imgConn,1,3
  '追加数据到数据库
  Rs.AddNew
  Rs("img").AppendChunk myData
  Rs.Update
  '关闭和释放对象
  Rs.close
  ImgConn.close
  Set Rs=Nothing
  Set ImgConn=Nothing
  %>