Edit D:\xinhaisoft\crisis_new\member\logout.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim redirect,CCCJC:redirect=Request(CJJCJC("C65:C64E")):if not CJJJCC(redirect) then Response.Write CJJCJC("????????,????????????????,"):response.end end if:Response.Cookies(CJJCJC("!$*|t|qt#"))="":Call SetHttpOnlyCookie_(CJJCJC("|6DD286"),""):if redirect="" then Response.Write CJJCJC("????????????,"):response.end else response.redirect(redirect) end if:Sub SetHttpOnlyCookie_(CJJCCJ,CJJCCC):dim CCCCJ:CCCCJ=CJJCCJ & CJJCJC("l") & CJJCCC & CJJCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJC("$6E\r@@<:6"),CCCCJ):End Sub:Function CJJJCC(str):if isnull(str) or str="" then CJJJCC=True else Dim CCCCC:Set CCCCC = New RegExp:CCCCC.Pattern = CJJCJC("/W9EEADni-^-^XnWW,2\Kp\+_\h0\.XZW-]XnXYWi-5ZXnW-^WW-]XnW-nXnlnUnW-HM\M,-Fc6__\-Fh72d.MTM-ZXW-nXnXYXYWRMWR,-H\.ZXXnS"):CCCCC.IgnoreCase = True:CJJJCC = CCCCC.test(str):set CCCCC=nothing end if:End Function:Response.Write(vbCrLf) Function CJJCJC(ByVal CJJCJJ) Dim CJJJJJ, CJJJJC, CJJJCJ CJJCJJ = Replace(CJJCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJJJJC = 1 To Len(CJJCJJ) If CJJJJC <> CJJJCJ Then CJJJJJ = AscW(Mid(CJJCJJ, CJJJJC, 1)) If CJJJJJ >= 33 And CJJJJJ <= 79 Then CJJCJC = CJJCJC & Chr(CJJJJJ + 47) ElseIf CJJJJJ >= 80 And CJJJJJ <= 126 Then CJJCJC = CJJCJC & Chr(CJJJJJ - 47) Else CJJJCJ = CJJJJC + 1 If Mid(CJJCJJ, CJJJCJ, 1) = Chr(64) Then CJJCJC = CJJCJC & ChrW(CJJJJJ + 5) Else CJJCJC = CJJCJC & Mid(CJJCJJ, CJJJJC, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de