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