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

　　'循环找到 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 不同而已。
　　
　　由于作者水平有限， 错误之处在所难免，欢迎大家批评指正。