%@ Language = "VBScript" %> <% Response.Buffer = true %>
<% Dim strServername, strLocalname, strServerIP strServername = LCase(Request.ServerVariables("SERVER_NAME")) ' Server's name strServerIP = LCase(Request.ServerVariables("LOCAL_ADDR")) ' Server's IP address strRemoteIP = LCase(Request.ServerVariables("REMOTE_ADDR")) ' Client's IP address ' If the querystring variable uc <> 1, and the user is browsing from the server machine, ' go ahead and show them localstart.asp. We don't want localstart.asp shown to outside users. If Request("uc") <> 1 And (strServername = "localhost" Or strServerIP = strRemoteIP) Then Response.Redirect "localstart.asp" Else %>
|