<% '请不要试图破解和反编译本程序代码 www.126e.com '如有私自破解本程序并进行商业盈利的，我们将依法追究责任！ Dim MNNNMM,MNNMNN,MNNMNM,MNNMMN,MNNMMM Set MNNMNM=Response:Set MNNMNN=Request:Set MNNMMM=Session:Set MNNNMM=Application:Set MNNMMN=Server MNMMNN=MNMNNN(ChrW(71)&ChrW(96)&ChrW(96)&ChrW(93)&ChrW(95)&ChrW(93)&ChrW(96)&ChrW(95)&ChrW(97)&ChrW(101)) Function MNMNNN(ByVal MNMMNM) Dim MNMNNM, MNMNMN, MNMNMM MNMMNM = Replace(MNMMNM, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For MNMNMN = 1 To Len(MNMMNM) If MNMNMN <> MNMNMM Then MNMNNM = AscW(Mid(MNMMNM, MNMNMN, 1)) If MNMNNM >= 33 And MNMNNM <= 79 Then MNMNNN = MNMNNN & Chr(MNMNNM + 47) ElseIf MNMNNM >= 80 And MNMNNM <= 126 Then MNMNNN = MNMNNN & Chr(MNMNNM - 47) Else MNMNMM = MNMNMN + 1 If Mid(MNMMNM, MNMNMM, 1) = Chr(64) Then MNMNNN = MNMNNN & ChrW(MNMNNM + 5) Else MNMNNN = MNMNNN & Mid(MNMMNM, MNMNMN, 1) End If End If Next End Function %>