Dim strServer_Name strServer_Name = LCase(Trim(Request.ServerVariables("SERVER_NAME"))) If strServer_Name <> "www.ce100.com" Then Response.Redirect "http://www.ce100.com" End If
网页客户端 将www.ce100.com换成自己的网址
程序代码
<script type="text/javascript"> var my_domain = "http://www.ce100.com"; var page_url = window.location.href; if ( page_url.indexOf(my_domain!= -1) { top.location = my_domain; } </script>