部分代码：

＜%
Select Case request.ServerVariables("REMOTE_HOST")
    Case "127.0.0.1"
        '本机调试
        constr = "1"

    Case "192.168.1.1" '如果浏览器访问127.0.0.2，结果还是127.0.0.1
        '本机调试
        constr = "2"

    Case Else
        '服务器本地
        constr = "3"
End Select
%＞