<% response.buffer=true formsize=request.totalbytes formdata=request.binaryread(formsize) bncrlf=chrB(13) &. chrB(10) divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1) datastart=instrb(formdata,bncrlf &. bncrlf) 4 dataend=instrb(datastart 1,formdata,divider)-datastart mydata=midb(formdata,datastart,dataend) set connGraph=server.CreateObject("ADODB.connection") connGraph.Open "Provider=Microsoft.Jet.OLEDB.4.0. Data Source=" &. server.MapPath("images.mdb") set rec=server.createobject("ADODB.recordset") rec.Open "SELECT * FROM images where id is null",connGraph,1,3 rec.addnew rec("img").appendchunk mydata rec.0update rec.closes set rec=nothing set connGraph=nothing %>
set connGraph=server.CreateObject("ADODB.connection") connGraph.Open "Provider=Microsoft.Jet.OLEDB.4.0. Data Source=" &. server.MapPath("images.mdb") 创建connection对象,并连接Microsoft Access数据库。
set rec=server.createobject("ADODB.recordset") rec.Open "SELECT * FROM images where id is null",connGraph,1,3 rec.addnew rec("img").appendchunk mydata src="/ncre2/js/wxgg.js">