不同域名访问同一网站引导跳转到指定的相关页面

<%
  Dim StrDomain
    StrDomain=Request.ServerVariables("SERVER_NAME")
      '获得包含域名的字符串
      select case StrDomain
    case "www.msgz.org"
         Response.redirect "http://www.msgz.org/"
    case "msgz.org"
         Response.redirect "http://www.msgz.org/"
    case "www.wmjy.cn"
         Response.redirect "http://www.msgz.org/"
    case "wmjy.cn"
         Response.redirect "http://www.msgz.org/"
    case else
         Response.write "请直接刷新即可访问！或者在地址栏中输入完整地址：http://www.msgz.org/Index.html"       
     end select   
     %>