Edit D:\xinhaisoft\crisis_new\admin\left.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJCCC, CCJJJ,CCJJC, CCJCJ, CCJCC:Set CJCCC = server.CreateObject(CJJJJJJ("ps~sq]r@??64E:@?")):CJCCC.open Application(CJJJJJJ("r@??64E:@?$EC:?8")):Set CCJJJ=CJCCC::Dim CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ:Dim CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ:Dim CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ:CJCCCJ=Trim(Request.Cookies(CJJJJJJ("!$*|t|qt#"))):if CJCCCJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCCJJ>0 then CCJCC=CJJJJJJ("D6=64E ,E@A ,` ,:DD49@@=25>:?[:D4@?DF=E2?E[,C:89E.[EJA6[4FDE@>8C@FA[32=2?46[?F>36C[>@3:=6[>6>36C0EJA60A2E9[>6>36C0EJA60E@A[A9@E@[7246[286[C62=?2>6[EJA6?2>6[8C256 ,u#~| ,G0>6>36C ,H:E9 ,W?@=@4<X ,(wt#t ,!2DDH@C5lV") & CCCJC & CJJJJJJ("V ,2?5 ,:5l") & CCCJJ set CCJJC=CJCCC.execute(CCJCC):If CCJJC.EOF Then Call ClearMemberCookie Else CCCCJ=CCJJC(2) & "":CCCCC=CCJJC(3):CJJJJJ=CCJJC(5):CJJJJC=CCJJC(6):CJJJCJ=CCJJC(9):CJJJCC=CCJJC(15):CJJCJC=CCJJC(0):CJCCJJ=CCJJC(1):CJCJCC=CCJJC(11) & "":CJJCCJ=CCJJC(10) & "":CJJCJJ=CCJJC(12):CJJCCC=CCJJC(14):CJCJJJ=CCJJC(13):CJCJJC=CCJJC(7) & "":CJCJCJ=CCJJC(4):CJCCJC=CCJJC(8):if isnull(CJJJCC) then CJJJCC=0 if isnull(CJJJCJ) or CJJJCJ=0 then CJJJCJ=CCCCC if isnull(CJCJCJ) then CJCJCJ=0 if isnull(CJJJJJ) then CJJJJJ=0 if instr(CJJJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJC)>0 then Call RedirectMessage(CJJJJJJ("????????,????????????????????????????????,")) Call SetMemberCookie(CCCJJ,CCCJC) End IF end if:Sub CheckRight(CJJJJJC):dim CJCCCC,CCJJJJ:if CCCJJ=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJJJ("??????????????,????????????,")) elseIf not CCCJJJ(CJJJJJC) then Call RedirectMessage(CJJJJJJ("????W") & CJJJJJC & CJJJJJJ("X????????,????????????????????,")) end if:End Sub:Function CCCJJJ(CJJJJJC):dim CJCCCC,CCJJJJ:CCJJJJ=split(CJJJJJC,CJJJJJJ("[")):CCCJJJ=False:for CJCCCC=0 to ubound(CCJJJJ):If Mid(CCCCJ,CCJJJJ(CJCCCC),1)="1" then CCCJJJ=True:exit function end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJJJJ("!$*|t|qt#"))="":CCCJJ=0:CJJJJC=0:CCCJC=Empty:CJJJJJ=0:CJJJCC=0:CJJJCJ=0:CCCCC=0:CJJCJC=False:CJCCJJ=False:CJCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJJJC,CCJJCJ,CJCCCC,CCJJCC,CCJCJJ:CCJJJC=split(CJCCCJ,CJJJJJJ("]")):if ubound(CCJJJC)<>2 then Call ClearMemberCookie elseif not isnumeric(CCJJJC(0)) or len(CCJJJC(1))<>32 or len(CCJJJC(2))<>32 then Call ClearMemberCookie else CCJJCJ=CCJJJC(1):for CJCCCC=1 to len(CCJJCJ):CCJJCC=mid(CCJJCJ,CJCCCC,1):if isnumeric(CCJJCC) then CCJCJJ=CCJCJJ & CCJJCC if len(CCJCJJ)=7 then exit for next:CCJJCJ=CCJJJC(2):if CCJCJJ<>mid(CCJJCJ,6,7) then Call ClearMemberCookie else CCJJCC=mid(CCJJCJ,18,10)/2:if CCJJCC<DateDiff(CJJJJJJ("D"), CJJJJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CCCJJ=Clng(CCJJJC(0)):CCCJC=CCJJJC(1) end if end if end if:End Sub:Sub SetMemberCookie(CJJJJCJ,CJJJJCC):dim CJCCCC,CCJJCC,CCJCJJ:for CJCCCC=1 to len(CJJJJCC):CCJJCC=mid(CJJJJCC,CJCCCC,1):if isnumeric(CCJJCC) then CCJCJJ=CCJCJJ & CCJJCC if len(CCJCJJ)=7 then exit for next:CCJCJJ=CJJJJCJ & CJJJJJJ("]") & CJJJJCC & CJJJJJJ("]") & Fix(10000*(Rnd+1)) & CCJCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJJJJ("D"), CJJJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJJJ("!$*|t|qt#"))=CCJCJJ:End Sub::::Const CCJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJJCJJ,CJJJCJC):dim CCJJJC:CCJJJC=CJJJCJJ & "=" & CJJJCJC & CJJJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJJ("$6E\r@@<:6"),CCJJJC):End Sub::::::::::::Sub ConnClose():On Error Resume Next:set CCCJJC=nothing:set CCCJCJ=nothing:set CCCJCC=nothing:set CCCCJJ=nothing:CCCCJC.close : set CCCCJC=nothing:CCJCJ.Close : Set CCJCJ=Nothing:CCJJC.Close : Set CCJJC=Nothing:CCCCCJ.Close : Set CCCCCJ = Nothing:CJCCC.Close : Set CJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJJ("!$*0|6DD286"),server.URLEncode(CJJJCCJ)):Response.Redirect CJJJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckRight(22):Response.Write(vbCrLf):Response.Write(CJJJJJJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJJJJJ("k9E>=m") & vbCrLf):Response.Write(CJJJJJJ("k9625m") & vbCrLf):Response.Write(CJJJJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJJJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJJJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CJJJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^$4C:AED^5EC66^5EC66]4DDQm") & vbCrLf):Response.Write(CJJJJJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJJJJ("3@5J ,L ,324<8C@F?5i ,Ru`u`u`j ,>2C8:?i ,dAI ,_ ,_ ,dAIj ,N") & vbCrLf):Response.Write(CJJJJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJJ("kD4C:AE ,DC4lQ]]^$4C:AED^5EC66^5EC66];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJ("k^9625m") & vbCrLf):Response.Write(CJJJJJJ("k3@5Jm") & vbCrLf):Response.Write(CJJJJJJ("k5:G ,4=2DDlQ5EC66Qm") & vbCrLf):Response.Write(CJJJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJJJ("^Y ,8=@32= ,5%C66 ,Y^") & vbCrLf):Response.Write(CJJJJJJ("G2C ,5 ,l ,?6H ,5%C66WV5VX") & vbCrLf):Response.Write(CJJJJJJ("5]255W_[\`[V????????VX") & vbCrLf):Response.Write(CJJJJJJ("5]255W`c[_[V????????VX") & vbCrLf):Response.Write(CJJJJJJ("5]255W`e[`c[V????????V[V2CE:4=6^=:DE]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255W`f[`c[V????????V[V2CE:4=6^EJA6]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wab[_[V????????VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wae[ab[V??????????V[V>6>36C^=:DE]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wfg[ab[V????????????V[V>6>36C^EC2?DEJA6]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wag[ab[V????????????VX") & vbCrLf):Response.Write(CJJJJJJ(" ,5]255Wed[ag[V??????????V[V>6>36C^255@?6]2DAV[V??,????,????V[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wbe[ag[V????????????V[V>6>36C^4964<]2DAV[V????????,????????@????V[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Whc[ag[V????????????V[V>6>36C^492?86ADH032E49]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Whe[ag[V????????????V[V>6>36C^C:89E]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("^^ ,5]255W``_[agXj") & vbCrLf):Response.Write(CJJJJJJ("5]255Wa`[_[V????????VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Waf[a`[V????????V[V>6>36C^EJA6]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ(" ,5]255Wbc[a`[V????????V[VD49@@=^=:DE]2DAV[V????????V[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ(" ,5]255W`ac[a`[V????????????????V[VD49@@=^>6?F]2DAV[V????????????????????,??????????????V[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wbf[_[V????????VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wbg[bf[V????????????V[V=3^=:DE]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wbh[bf[V????????V[V=3^EJA6]2DAV[V????????????????????????????V[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255W`a`[_[V??????@??VX") & vbCrLf):Response.Write(CJJJJJJ("5]255W`aa[`a`[V????????V[VvC@FAvF:52?46^EJA6]2DAV[VV[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5]255Wah[_[V????????V[VDJDE6>^=@8]2DAV[V??????????????V[V>2:?uC2>6VX") & vbCrLf):Response.Write(CJJJJJJ("5@4F>6?E]HC:E6W5X") & vbCrLf):Response.Write(CJJJJJJ(" ,k^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJJC=nothing:set CCCJCJ=nothing:set CCCJCC=nothing:set CCCCJJ=nothing:CCJCJ.Close:Set CCJCJ=Nothing:CCJJC.Close:Set CCJJC=Nothing:CJCCC.Close:Set CJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJJJJJJ(ByVal CCCCCC) Dim CCJCJC, CJCCCC, CCJCCJ CCCCCC = Replace(CCCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCCCC = 1 To Len(CCCCCC) If CJCCCC <> CCJCCJ Then CCJCJC = AscW(Mid(CCCCCC, CJCCCC, 1)) If CCJCJC >= 33 And CCJCJC <= 79 Then CJJJJJJ = CJJJJJJ & Chr(CCJCJC + 47) ElseIf CCJCJC >= 80 And CCJCJC <= 126 Then CJJJJJJ = CJJJJJJ & Chr(CCJCJC - 47) Else CCJCCJ = CJCCCC + 1 If Mid(CCCCCC, CCJCCJ, 1) = Chr(64) Then CJJJJJJ = CJJJJJJ & ChrW(CCJCJC + 5) Else CJJJJJJ = CJJJJJJ & Mid(CCCCCC, CJCCCC, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de