Dim domaindomain=Lcase(Request.ServerVariables("SERVER_NAME"))Select Case domain Case "cdpy.com","www.cdpy.com" Response.Redirect("default.asp") Case "xingqiba.com","www.xingqiba.com" Response.Redirect("cdhome/default.asp") Case "blog.xingqiba.com" Response.Redirect("blog/")End Select
