ASP + ACCESS保存图片文件之实现

con.execute "CREATE tblImg (lngId COUNTER PRIMARY KEY, binImg IMAGE)"
 
set ads=createobject("adodb.stream")
ads.type=1
ads.mode=3
ads.open
ads.loadFromFile "test.jpg"
 
 
set rst=createobject("adodb.recordset")
rst.open "tblImg",con,0,3,2
rst.addNew
ads.Position=0
rst("binImg").appendChunk ads.read()
ads.close
rst.update

ASP + ACCESS保存图片文件之实现,古老的榕树,5-wow.com

郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。