<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.Write(vbCrLf):Response.Write(CCJCC("kPs~r%*!t ,9E>= ,!&q{xr ,Q\^^(br^^s%s ,)w%|{ ,`]_ ,uC2>6D6E^^t}Q ,Q9EEAi^^HHH]Hb]@C8^%#^I9E>=`^s%s^I9E>=`\7C2>6D6E]5E5Qm") & vbCrLf):Response.Write(CCJCC("k9E>= ,I>=?DlQ9EEAi^^HHH]Hb]@C8^`hhh^I9E>=Qm") & vbCrLf):Response.Write(CCJCC("k9625m") & vbCrLf):Response.Write(CCJCC("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6ElFE7\gQ ,^m") & vbCrLf):Response.Write(CCJCC("kE:E=6m徾@琁@箜@琁@糶@绚@k^E:E=6m") & vbCrLf):Response.Write(CCJCC("k^9625m") & vbCrLf):Response.Write(CCJCC("k7C2>6D6E ,C@HDlQ`bd[Y[acQ ,4@=DlQYQ ,7C2>6DA24:?8lQ_Q ,7C2>63@C56ClQ?@Q ,3@C56ClQ_Qm") & vbCrLf):Response.Write(CCJCC(" ,k7C2>6 ,DC4lQ96256C]2DAQ ,?2>6lQE@AQ ,D4C@==:?8lQ?@Q ,?@C6D:K6lQ?@C6D:K6Q ,:5lQE@AQ ,^m") & vbCrLf):Response.Write(CCJCC(" ,k7C2>6D6E ,C@HDlQYQ ,4@=DlQ`e_[YQ ,7C2>6DA24:?8lQ_Q ,7C2>63@C56ClQ?@Q ,3@C56ClQ_Qm") & vbCrLf):Response.Write(CCJCC(" ,k7C2>6 ,DC4lQ=67E]2DAQ ,?2>6lQ=67EQ ,:5lQ=67EQ ,DEJ=6lQ3@C56C\C:89Ei`AI ,D@=:5 ,RhhhhhhQ ,^m") & vbCrLf):Response.Write(CCJCC(" ,k7C2>6 ,DC4lQH6=4@>6]2DAQ ,?2>6lQ>2:?Q ,:5lQ>2:?Q ,^m") & vbCrLf):Response.Write(CCJCC(" ,k^7C2>6D6Em") & vbCrLf):Response.Write(CCJCC(" ,k7C2>6 ,DC4lQ7@@E6C]2DAQ ,?2>6lQ3@EE@>Q ,D4C@==:?8lQ?@Q ,?@C6D:K6lQ?@C6D:K6Q ,:5lQ3@EE@>QQ ,DEJ=6lQ3@C56C\E@Ai`AI ,D@=:5 ,H9:E6Q ,^m") & vbCrLf):Response.Write(CCJCC("k^7C2>6D6Em") & vbCrLf):Response.Write(CCJCC("k?@7C2>6Dm") & vbCrLf):Response.Write(CCJCC("k3@5Jm") & vbCrLf):Response.Write(CCJCC("k^3@5Jm") & vbCrLf):Response.Write(CCJCC("k^?@7C2>6Dm") & vbCrLf):Response.Write(CCJCC("k^9E>=m")) Function CCJCC(ByVal CCJCJ) Dim CJCCC, CCJJJ, CCJJC CCJCJ = Replace(CCJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCJJJ = 1 To Len(CCJCJ) If CCJJJ <> CCJJC Then CJCCC = AscW(Mid(CCJCJ, CCJJJ, 1)) If CJCCC >= 33 And CJCCC <= 79 Then CCJCC = CCJCC & Chr(CJCCC + 47) ElseIf CJCCC >= 80 And CJCCC <= 126 Then CCJCC = CCJCC & Chr(CJCCC - 47) Else CCJJC = CCJJJ + 1 If Mid(CCJCJ, CCJJC, 1) = Chr(64) Then CCJCC = CCJCC & ChrW(CJCCC + 5) Else CCJCC = CCJCC & Mid(CCJCJ, CCJJJ, 1) End If End If Next End Function %>