------------------------------------
''首先獲取IP地址
ip1 = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
'如果沒有遠程IP則獲取當前IP
ip2 = Request.ServerVariables("REMOTE_ADDR")
'如果遠程IP地址存在，則認為當前客戶端的IP地址為此IP,否則為當前IP
If ip1 = "" Then
ip = ip2
Else
ip = ip1
End If
''上面兩步已得到了客戶機的IP，下面只要判斷其中是否包含有"192.168"即可認定是否是內網的機器
aa = Instr(0,ip,"192.168",1)''執行查找
if aa>0 then
''進行內網頁面
else
''給出提示，說明不是內網IP在訪問
end if
如果內網使用的是"10.1.x.x",則更改上述代碼中的“192.168”即可。