process.asp

来自「较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.」· ASP 代码 · 共 42 行

<% 

response.buffer=true 

formsize=request.totalbytes '得到的数据量

formdata=request.binaryread(formsize) 'binary是二进制的意思

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) 


dim conn,connstr,rs
set conn=server.createobject("ADODB.connection")     
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("images.mdb")
conn.open connstr
set rs=server.createobject("adodb.recordset")

rs.Open "SELECT * FROM [images] where id is null",conn,1,3 

rs.addnew 

rs("img").appendchunk mydata '将数据追加到大型文本、二进制数据 Field 或 Parameter 对象,不能用insert语法

rs.update 

rs.close 

set rs=nothing 

set conn=nothing 

%>