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