<%@ 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
%>
建構中
