Dim cc_str_host_name
cc_str_host_name = LCase(Request.ServerVariables("HTTP_HOST"))
'判斷主機名進行跳轉
Select Case cc_str_host_name
  Case "www.kuozhanming.com"
    Server.Transfer "main.asp"
  Case "www.suoxie.com"
    Server.Transfer "main_2.asp"
  Case Else
    Server.Transfer "main_3.asp"
End Select