羟丙甲基纤维_可分散性树脂胶粉车间设备_北京永兴纤维素有限公司
  • <% Function GetUrl() Dim ScriptAddress,Servername,qs ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) Servername = CStr(Request.ServerVariables("Server_Name")) qs=Request.QueryString if qs<>"" then GetUrl ="http://"& Servername & ScriptAddress &"?"&qs else GetUrl ="http://"& Servername & ScriptAddress end if End Function dim urlstr,a,b,oldurl,c urlstr=GetUrl oldurl=GetUrl urlstr=replace(urlstr,"http://","") a=instr(urlstr,"/") if a>0 then urlstr=left(urlstr,a) end if urlstr=replace(urlstr,"/","") b=lcase(urlstr) if b<>"www.yxxws.com" then c=replace(oldurl,"http://" & b,"") response.redirect "http://www.yxxws.com" & c end if %>