<% Dim CJJJJCJ, CJJJJCC,CJJJCJJ, CJJJCJC, CJJJCCJ:Set CJJJJCJ = server.CreateObject(CJJCJCC("ps~sq]r@??64E:@?")):CJJJJCJ.open Application(CJJCJCC("r@??64E:@?$EC:?8")):Set CJJJJCC=CJJJJCJ:Response.Write(vbCrLf) Function CJJCJCC(ByVal CJJCJCJ) Dim CJJJCCC, CJJCJJJ, CJJCJJC CJJCJCJ = Replace(CJJCJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJJCJJJ = 1 To Len(CJJCJCJ) If CJJCJJJ <> CJJCJJC Then CJJJCCC = AscW(Mid(CJJCJCJ, CJJCJJJ, 1)) If CJJJCCC >= 33 And CJJJCCC <= 79 Then CJJCJCC = CJJCJCC & Chr(CJJJCCC + 47) ElseIf CJJJCCC >= 80 And CJJJCCC <= 126 Then CJJCJCC = CJJCJCC & Chr(CJJJCCC - 47) Else CJJCJJC = CJJCJJJ + 1 If Mid(CJJCJCJ, CJJCJJC, 1) = Chr(64) Then CJJCJCC = CJJCJCC & ChrW(CJJJCCC + 5) Else CJJCJCC = CJJCJCC & Mid(CJJCJCJ, CJJCJJJ, 1) End If End If Next End Function %>