同一空间绑定多个域名而实现访问不同的页面代码

ASP代码如下：
 程序代码
<%
select case request.servervariables("http_host")
case "www1.9asp.com.cn"
Server.Transfer("index1.htm")
case "www2.9asp.com.cn"
Server.Transfer("index2.htm")
case "www3.9asp.com.cn"
Server.Transfer("index3.htm")
...... 继续添加 ......
end select
%>

<%
CheckDomain
Sub CheckDomain()
dim sDomain
sDomain = Request.ServerVariables("HTTP_HOST")
If Instr(sDomain,"blog.flyso.net")>0 then Response.Redirect "blog/"
End Sub
%>