请教无组件上传

 1   
 2dim search,my_conn,rs   
 3dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata   
 4formsize=request.totalbytes   
 5formdata=request.binaryread(formsize)   
 6bncrlf=chrB(13) & chrB(10)   
 7divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)   
 8datastart=instrb(formdata,bncrlf & bncrlf)+4   
 9ty=chrb(ascb("T"))&chrb(ascb("y"))&chrb(ascb("p"))&chrb(ascb("e"))&chrb(ascb(":"))   
10name=chrb(ascb("e"))&chrb(ascb("n"))&chrb(ascb("a"))&chrb(ascb("m"))&chrb(ascb("e"))&chrb(ascb("="))&chrb(ascb(chr(34)))   
11star2=instrb(formdata,ty)+6   
12mydata2=midb(formdata,star2,datastart-4-star2)   
13star3=instrb(formdata,name)+7   
14star4=instrb(formdata,chrb(ascb(".")))   
15mydata4=midb(formdata,star3,star4-star3)   
16for i=1 to lenb(mydata2)   
17mydata3=mydata3&chr(ascb(midb(mydata2,i,1)))   
18next   
19do while instrb(mydata4,chrb(ascb("\")))<>0   
20stara=instrb(mydata4,chrb(ascb("\")))+1   
21mydata4=midb(mydata4,stara,200)   
22loop   
23dataend=instrb(datastart+1,formdata,divider)-datastart   
24mydata=midb(formdata,datastart,dataend)   
25  
26'以上取得的变量中 MYDATA3 为文件类型 ASCII格式   
27'MYDATA为文件内容 二进制   
28'MYDATA4为文件名 二进制   
29'把这些东东怎么办?各位看着办吧,可以写入库,也可以用配合组件写入文件