批量读图片到数据库

<!--#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
%>