<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim redirect:redirect=Request.QueryString(CCCJJC("C65:C64E")):Response.Cookies(CCCJJC("!$*|t|qt#"))="":if redirect="" then response.write CCCJJC("巭@迻@凵@") else response.redirect(redirect) end if:Response.Write(vbCrLf) Function CCCJJC(ByVal CCCJJJ) Dim CCJCJC, CCJCCJ, CCJCCC CCCJJJ = Replace(CCCJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCJCCJ = 1 To Len(CCCJJJ) If CCJCCJ <> CCJCCC Then CCJCJC = AscW(Mid(CCCJJJ, CCJCCJ, 1)) If CCJCJC >= 33 And CCJCJC <= 79 Then CCCJJC = CCCJJC & Chr(CCJCJC + 47) ElseIf CCJCJC >= 80 And CCJCJC <= 126 Then CCCJJC = CCCJJC & Chr(CCJCJC - 47) Else CCJCCC = CCJCCJ + 1 If Mid(CCCJJJ, CCJCCC, 1) = Chr(64) Then CCCJJC = CCCJJC & ChrW(CCJCJC + 5) Else CCCJJC = CCCJJC & Mid(CCCJJJ, CCJCCJ, 1) End If End If Next End Function %>