读数据库图片存为文件

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档 | 网通镜像

当前位置：> 未整理篇

读数据库图片存为文件

作者:lienzhu 时间:2003-02-20 11:11 出处:互联网责编:chinaitpower

摘要：读数据库图片存为文件

<%
set rs=conn.execute("select * from youtable")
Set oFileStream = CreateObject ("ADODB.Stream")
oFileStream.Type = 1
set id=rs("id")
set photo=rs("photo")
do while rs.eof=false
oFileStream.Open
oFileStream.Write photo.value
oFileStream.SaveToFile "d:\photo"& id &".jpg",2
oFileStream.close
rs.movenext
loop
set oFileStream=nothing
set photo=nothing
set id=nothing
rs.close
set rs=nothing
call closedatabase()
%>

关闭本页