|
|
|
|
批量读图片到数据库 |
|
|
|
作者：未知 来源：月光软件站 加入时间：2005-2-28 月光软件站 |
<!--#include file="conn.asp" -->
<%
'假设图片路径为path="d:/photo/"
set rs=conn.execute("select id from youtable")
set ads=CreateObject("Adodb.Stream")
Set rs2=Server.CreateObject("Adodb.RecordSet")
ads.Mode=3
ads.Type=1
set id=rs("id")
do while rs.eof=false
ads.Open
ads.LoadFromFile(path & id &".jpg")
rs2.Open "select * from youtable where id=" & id,conn,1,3
rs2.addnew
rs2("photo")=ads.read()
rs2.update
rs2.close
ads.close
rs.movenext
loop
set id=nothing
set rs2=nothing
set ads=nothing
set rs=nothing
%>
|
|
相关文章：相关软件： |
|
本类阅读TOP10