|
|
|
|
读数据库图片存为文件 |
|
|
|
作者：未知 来源：月光软件站 加入时间：2005-2-28 月光软件站 |
<!--#include file="conn.asp" -->
<%
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()
%>
|
|
相关文章：相关软件： |
|
本类阅读TOP10