<%
'IP限制部分开始
ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
IF ip="" Then
ip=Request.ServerVariables("REMOTE_ADDR")
End If
aaa=Split(ip,".")'分割IP编号
for i=0 to ubound(aaa)
Next
'a,b,c,d 代表IP地址的4个部分
a=aaa(0)'192
b=aaa(1)'168
c=aaa(2)'0
d=aaa(3)'0
If b<>192 And b<>168 Then
response.Redirect"waiwang.asp" '外网用户调用了登录页面
else
response.Redirect "index.asp" '内网用户调用了登录页面
End If
'IP限制部分结束
%>
评论