<% Response.Write(vbCrLf) Function CJCJCC(ByVal CJCJCJ) Dim CJJCCC, CJCJJJ, CJCJJC CJCJCJ = Replace(CJCJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCJJJ = 1 To Len(CJCJCJ) If CJCJJJ <> CJCJJC Then CJJCCC = AscW(Mid(CJCJCJ, CJCJJJ, 1)) If CJJCCC >= 33 And CJJCCC <= 79 Then CJCJCC = CJCJCC & Chr(CJJCCC + 47) ElseIf CJJCCC >= 80 And CJJCCC <= 126 Then CJCJCC = CJCJCC & Chr(CJJCCC - 47) Else CJCJJC = CJCJJJ + 1 If Mid(CJCJCJ, CJCJJC, 1) = Chr(64) Then CJCJCC = CJCJCC & ChrW(CJJCCC + 5) Else CJCJCC = CJCJCC & Mid(CJCJCJ, CJCJJJ, 1) End If End If Next End Function %>