正在阅读:显示以OLE对象存储图片的方法显示以OLE对象存储图片的方法

2004-02-14 09:33 出处:PConline 作者:inelm/CSDN 责任编辑:linjixiong


  '循环找到 SOI marker 的位置
  for i = 1 to size
  if AscB(MidB(field, i, 1)) = &HFF and AscB(MidB(field, i + 1, 1)) = &HD8 then
  exit for
  end if
  next
  
  '忽略前面的无用信息, 从 SOI marker 开始输出真正的图片信息
  for j = i to size
  response.BinaryWrite MidB(field, j, 1)
  next
  end function
  %>
  
  <%
  '-------- 主程序开始 -------------------
  dim conn
  set conn = Server.CreateObject("ADODB.Connection")
  conn.open("Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=123;Data Source=MARK")
  
  sql = "select * from xinxi_mishuchu"
  set rs = conn.execute(sql)
  
  '声明输出类型, 清空输出缓冲区
  response.buffer = true
  response.clear
  response.ContentType = "image/jpeg"
  
  '调用函数输出图片
  ShowJpegField(rs("picture1"))
  
  '打完收功!
  rs.close : set rs = nothing
  conn.close : set conn = nothing
  %>
  
  如果是其他格式的图片, 如 bmp, gif 等, 输出方法类似, 只不过是 SOI marker 不同而已。
  
  由于作者水平有限, 错误之处在所难免,欢迎大家批评指正。
  

察看评论详细内容 我要发表评论
作者笔名 简短内容 发表时间
:
键盘也能翻页,试试“← →”键

关注我们

最新资讯离线随时看 聊天吐槽赢奖品