1
2dim rs,username
3dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
4username=Session.Contents("tmpid")
5formsize=request.totalbytes
6formdata=request.binaryread(formsize)
7
8bncrlf=chrB(13) & chrB(10)
9divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
10datastart=instrb(formdata,bncrlf & bncrlf)+4
11dataend=instrb(datastart+1,formdata,divider)-datastart
12mydata=midb(formdata,datastart,dataend)
13Set rs = Server.CreateObject("ADODB.Recordset")
14'rs.Open "human_info where P_id='"&session("tmpid")&"'",conn,3,3
15rs.open "select * from human_info",conn,3,2
16rs.addnew
17
18rs("P_image").appendchunk mydata
19rs("P_id")=session("tmpid")
20rs("small")=true
21rs.update
22rs.close
23set rs=nothing
24set conn=nothing
---------------------------------------------------------------
1
2dim rs,username
3dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata '定义各变量
4username=Session.Contents("tmpid")
5formsize=request.totalbytes
6formdata=request.binaryread(formsize) '读取上传文件的内容
7
8bncrlf=chrB(13) & chrB(10)
9divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
10datastart=instrb(formdata,bncrlf & bncrlf)+4
11dataend=instrb(datastart+1,formdata,divider)-datastart
12mydata=midb(formdata,datastart,dataend)
13'上面这段是将上传过来的数据进行整理以便保存
14Set rs = Server.CreateObject("ADODB.Recordset")
15'rs.Open "human_info where P_id='"&session("tmpid")&"'",conn,3,3
16rs.open "select * from human_info",conn,3,2
17rs.addnew
18'上面这段是打开数据库连接,并在human_info表中增加一条记录
19rs("P_image").appendchunk mydata
20'将文件保存到数据库中
21rs("P_id")=session("tmpid")
22rs("small")=true
23'添加相关信息
24rs.update
25'保存数据库
26rs.close
27set rs=nothing
28set conn=nothing
29'关闭数据库连接
---------------------------------------------------------------
1
2dim rs,username
3dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata '定义变量
4username=Session.Contents("tmpid") '用username取得session变量的值
5formsize=request.totalbytes '获得传递数据的大小值
6formdata=request.binaryread(formsize)'用formdata获得传递的数据.
7
8bncrlf=chrB(13) & chrB(10)'用bncrlf变量代表换行和回车.
9divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)'用divider代表分隔符.
10datastart=instrb(formdata,bncrlf & bncrlf)+4'定义数据的起始处.
11dataend=instrb(datastart+1,formdata,divider)-datastart'这个是结束的地方.
12mydata=midb(formdata,datastart,dataend)'取得数据
13Set rs = Server.CreateObject("ADODB.Recordset")
14'rs.Open "human_info where P_id='"&session("tmpid")&"'",conn,3,3
15rs.open "select * from human_info",conn,3,2
16rs.addnew'定义数据集,调用addnew方法.
17
18rs("P_image").appendchunk mydata'把数据加入到数据库.
19rs("P_id")=session("tmpid")
20rs("small")=true
21rs.update
22rs.close
23set rs=nothing
24set conn=nothing
---------------------------------------------------------------
dim rs,username
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata '定义各变量
username=Session.Contents("tmpid")
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 rs = Server.CreateObject("ADODB.Recordset")
'rs.Open "human_info where P_id='"&session("tmpid")&"'",conn,3,3
rs.open "select * from human_info",conn,3,2
rs.addnew
'上面这段是打开数据库连接,并在human_info表中增加一条记录
rs("P_image").appendchunk mydata
'将文件保存到数据库中
rs("P_id")=session("tmpid")
rs("small")=true
'添加相关信息
rs.update
'保存数据库
rs.close
set rs=nothing
set conn=nothing
'关闭数据库连接
%>
big是不发送的,只在当页供客户端脚本使用
---------------------------------------------------------------
formsize=request.totalbytes
formdata=request.binaryread(formsize)
只是得到上传过来的数据,什么东西都有,包括一些你不想要的,如:-----------------------------7d31162c20810 Content-Disposition: form-data;什么的,这里我把得到的东西转成字符的,如果form里enctype="multipart/form-data"的话,得到的是二进制的东西.
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)
这一段就是把没有用的东西去掉,只要有用的东西.明白了吗?