ASP页面转向代码

IsaacZ

ASP 脚本：

1. <%
   
2. dim url
   
3. Private Function GetUrl()
   
4. Dim s criptAddress, M_ItemUrl, M_item
   
5. s criptAddress = CStr(Request.ServerVariables("s cript_NAME")) '取得当前地址
   
6. M_ItemUrl = ""
   
7. If (Request.QueryString <> "") Then
   
8. s criptAddress = s criptAddress & "?"
   
9. For Each M_item In Request.QueryString
   
10. If InStr(page,M_Item)=0 Then
    
11. M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) &
    
12. 
    
13. "&"
    
14. End If
    
15. Next
    
16. end if
    
17. GetUrl = s criptAddress & M_ItemUrl
    
18. End Function
    
19. %>
    
20. <%Response.Redirect "http://www.abc.com/"&Url&""%> '跳转的域名
    

复制代码

JS脚本：

1. <script language="javascript">
   
2. var newdomain="www.163.com";          //新域名，例如说跳到 www.163.com
   
3. var stoptime=0;                    //页面停留时间，以秒为单位
   
4. var My_Url=document.location.href;
   
5. godomain();
   
6. function godomain()
   
7. {
   
8.     var str=My_Url;
   
9.     stag=str.indexOf('//')+1;
   
10.     str=str.substring(stag+1,str.length)
    
11.     stag=str.indexOf('/');
    
12.     rstr=str.substring(0,stag);
    
13.     olddomain=rstr;
    
14.     My_Url=My_Url.replace(olddomain,newdomain);
    
15.     setTimeout("gourl()",stoptime*1000);
    
16. }
    
17. function gourl()
    
18. {window.location=My_Url;}
    
19. </script>

复制代码

来源：http://www.phpwind.net/read-htm-tid-490700.html ，未验证。