哪位高手帮忙写一小小段代码？不胜感激～～～～

[mg365]

由于本人的网站以前使用的域名比较多，现在想统一起来，因而想增加一段以下功能的判断代码，望高手赐教（帮我写出来哈）～～～～

功能要求：
根据当前URL判断是否为本站统一域名，如果是，则正常执行，如果不是，则进行：1、对用户作出提示，10秒钟的时间（也可以用确认），然后自动使用统一域名替换当前URL中的域名。
例如：
现在使用http://www.csdn.net/bbs/index.asp来访问该页面，但是www.csdn.net不是统一域名，那么对用户作出提示：请使用本站统一域名www.csdn.com访问本站，本次将直接为您跳转，然后将页面自动转到 http://www.csdn.com/bbs/index.asp 最好还能提示：如果网络没有反映，请点击下面的链接转到新页面！
注意域名部分是不同的。。。。

[cnrk_net]

'把一下代码存为一个文件，包含到所有页面
Dim temp
temp=Request.ServerVariables("SERVER_NAME")
if temp<>"www.***.com" then
response.write "<script language=javascript>"
response.write "alert('请使用本站统一域名www.*.com访问本站');"
response.write "window.location.href='www.*.com'"
response.write "</script>"
response.end
end if

[mg365]

我自己搞定了。谢谢二楼的。。。

[cnrk_net]

可能有地方写错了，不过好你能解决你的问题吧...
~~

[mg365]

谢谢，但是代码依然没有达到要求。。。。