如何使不同域名访问同一网站时跳出各自的首页？

    点击或名后到你所需的页面

    我输入http://www.msgz.org后直接到下面的这个页面

    http://www.msgz.org/Tennis/HYZJ/Index.asp

    建一个index.asp，或者修改现在的index.asp，只保留这一行代码即可

    <%response.redirect"Tennis/HYZJ/Index.asp"%>

    你有两个或名想让他们访问不同的首页面

    多一个判断就可以了

    <%

    ifTrim(Request.ServerVariables("SERVER_NAME"))="www.msgz.org"then

    response.redirect"Tennis/HYZJ/Index.asp"

    else

    response.redirect"Tennis/NewsTv/Index.asp"

    endif

    %>

    那我还要增加一个或名指向另一频道首页呢

    <%

    selectcaseTrim(Request.ServerVariables("SERVER_NAME"))

    case"www.msgz.org"

    response.redirect"Tennis/NewsTv/Index.asp"case"www.aaa.com"

    response.redirect"aaaa/index.asp"

    case"www.bbb.com"

    response.redirect"bbbb/index.asp"

    caseelse

    response.redirect"Tennis/Index.asp"

    endselect

    %>

   

 

下面是本站正在使用的了：

    <%

      Dim StrDomain

            StrDomain=Request.ServerVariables("SERVER_NAME")

            '获得包含域名的字符串 

     select case StrDomain

              case "www.195504.com"

                      Response.redirect "http://www.msgz.org/Index.html"

              case "msgz.org"

                      Response.redirect "/wenxuClass3/Index.html"

              case "www.msgz.org"

                      Response.redirect "/wenxuClass7/Index.html"

              case "msgz.org"

                      Response.redirect "/wenxuClass4/Index.html"

              case "www.wmjy.cn"

                      Response.redirect "/wenxuClass6/Index.html"   

              case "wmjy.cn"

                      Response.redirect "/wenxuClass2/Index.html"

              case else

                     Response.write "请直接刷新即可访问！或者在地址栏中输入完整地址：www.195504.com/Index.html"          

     end select      

     %>

【来源：互联网络】