<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim CJJJJCC:CJJJJCC=Request.QueryString(CJJCJJJ("24E")):if CJJJJCC=CJJCJJJ("4=62C42496") then Application.Contents.Remove(CJJCJJJ("!$*rw0%6DED")) end if:Response.Write(vbCrLf):Response.Write(CJJCJJJ("k9E>=m") & vbCrLf):Response.Write(CJJCJJJ("k9625m") & vbCrLf):Response.Write(CJJCJJJ("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6ElFE7\gQm") & vbCrLf):Response.Write(CJJCJJJ("kE:E=6m&?E:E=65 ,s@4F>6?Ek^E:E=6m") & vbCrLf):Response.Write(CJJCJJJ("k^9625m") & vbCrLf):Response.Write(CJJCJJJ("k3@5Jm") & vbCrLf):Response.Write(CJJCJJJ("~zP") & vbCrLf):Response.Write(CJJCJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJCJJJ("k^9E>=m") & vbCrLf) Function CJJCJJJ(ByVal CJJJCCC) Dim CJJJCJJ, CJJJCJC, CJJJCCJ CJJJCCC = Replace(CJJJCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJJJCJC = 1 To Len(CJJJCCC) If CJJJCJC <> CJJJCCJ Then CJJJCJJ = AscW(Mid(CJJJCCC, CJJJCJC, 1)) If CJJJCJJ >= 33 And CJJJCJJ <= 79 Then CJJCJJJ = CJJCJJJ & Chr(CJJJCJJ + 47) ElseIf CJJJCJJ >= 80 And CJJJCJJ <= 126 Then CJJCJJJ = CJJCJJJ & Chr(CJJJCJJ - 47) Else CJJJCCJ = CJJJCJC + 1 If Mid(CJJJCCC, CJJJCCJ, 1) = Chr(64) Then CJJCJJJ = CJJCJJJ & ChrW(CJJJCJJ + 5) Else CJJCJJJ = CJJCJJJ & Mid(CJJJCCC, CJJJCJC, 1) End If End If Next End Function %>