最近要把两个网站合在一个空间里，有两个域名想都保留，于是在网上找了一段重定向代码

DIM urlname
urlname=Request.ServerVariables("SERVER_NAME")   '
if urlname="cfme.cn" or urlname="aaa" then
response.redirect "/index.asp"    '
elseif urlname="cfse.cn" or urlname="bbb" then
response.redirect "/bbb/index.asp"     '
else
response.write "亲,请检查域名拼写......"     '
end if

复制修改后添加在根目录index.asp里的前面，但是没起作用，不过可以访问子目录，且访问子目录跟访问根目录一样，想请教高手问题出在哪，要怎么修改？

附：index asp文件

<%
'****************************************************
' Software name:Kesion CMS 7.0
' Email: service@kesion.com . QQ:111394,9537636
' Web: http://www.kesion.com http://www.kesion.cn
' Copyright (C) Kesion Network All Rights Reserved.
'****************************************************

DIM urlname
urlname=Request.ServerVariables("SERVER_NAME") '
if urlname="cfme.cn" or urlname="aaa" then
response.redirect "/index.asp" '
elseif urlname="cfse.cn" or urlname="bbb" then
response.redirect "/bbb/index.asp" '
else
response.write "亲,请检查域名拼写......" '
end if

Dim KSCls
Set KSCls = New SiteIndex
KSCls.Kesion()
Set KSCls = Nothing
Const AllowSecondDomain=false       '是否允许开启空间二级域名 true-开启 false-不开启

Class SiteIndex
        Private KS,AppCls
  Private Sub Class_Initialize()
   If (Not Response.IsClientConnected)Then
   Response.Clear
   Response.End
   End If
    Set AppCls=New KesionAppCls
    Set KS=New PublicCls
  End Sub
        Private Sub Class_Terminate()
   Set KS=Nothing
   Set AppCls=Nothing
   Call CloseConn()
  End Sub
  Public Sub Kesion()
      If AllowSecondDomain=True And KS.IsNul(Request.QueryString("do")) Then
       SecondDomain
   Else
                Call AppCls.HomePage()
   End If
  End Sub
  
  Public Sub SecondDomain()
  dim From,gourl,sdomain,title,username,domain
  From = LCase(Request.ServerVariables("HTTP_HOST"))
  sdomain = LCase(KS.SSetting(15))
  sdomain = Replace(sdomain,"http://","")
  sdomain = Replace(sdomain,"/","")
  
  dim domain1,domain2
  domain = LCase (from)
  domain = Replace (domain,"http://","")
  domain = Replace (domain,"/","")
     
  If lcase(domain)=lcase(KS.Setting(69)) or lcase(domain)=lcase(KS.JSetting(41)) or (sdomain=domain and sdomain<>"") Then  '小论坛
                Call AppCls.Domain(domain)
    Exit Sub
  else
    domain1= Replace (Left (domain,InStr (domain,".")),".","")
    if Trim (domain1)="" or (domain1="www" and domain=replace(lcase(KS.Setting(2)),"http://","")) or (Request.ServerVariables("HTTP_HOST")="http://" & KS.Setting(2)) or ("http://" & lcase(Request.ServerVariables("HTTP_HOST"))=lcase(KS.Setting(2))) Then
        Call AppCls.HomePage() : Exit Sub
    Else
      '=====================这里定义其它系统非个人空间的二级域名转向，如论坛等=============================
      if instr(Request.ServerVariables("SERVER_NAME"),"bbs.kesion.com")>0 then
      response.redirect KS.GetDomain & "bbs/index.asp"
      elseif instr(Request.ServerVariables("SERVER_NAME"),"news.kesion.com")>0 then
      response.redirect KS.GetDomain & "news/"
      elseif instr(Request.ServerVariables("SERVER_NAME"),"help.kesion.com")>0 then
      response.redirect KS.GetDomain & "help/"
      end if
      '============================================================================
    End If
          Set AppCls=New KesionAppCls
       if instr(domain,replace(replace(lcase(KS.Setting(2)),"http://",""),"www.",""))=0 and domain1="www" then
                Call AppCls.Domain(domain)
    else
                Call AppCls.Domain(domain1)
    end if
    Exit Sub
   end if
  End Sub
End Class
%>