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
