紧急求救,解答即结贴

[xygxyg]

在局域网代理服务器里面架设了一个WEB服务器，如果用户从外网登录，则需输入用户名和密码，如果从内网访问则跳过用户密码的输入，程序应该如何写？

[xygxyg]

那么请问如何检测ip最主要的也是检测ip

[lijun355]

'===================================================================================
'函数名称：IPAddressToNumber()
' 函数原型： IPAddressToNumber(IPAddress)
'功 能：将IP地址转化为数字
'参 数：IPAddress待转化的IP地址
'返 回 值：Double类型的数字
'涉及的表：无
'===================================================================================
Function IPAddressToNumber(IPAddress)
Dim arrayTemp
arrayTemp=Split(IPAddress,".")
If UBound(arrayTemp)<>3 Then
Err.Raise 1234,"IPAddressToNumber()","参数不是合法的IP地址值：[" & IPAddress & "]"
Exit Function
End If
IPAddressToNumber=CDbl(arrayTemp(3))
IPAddressToNumber=IPAddressToNumber+CDbl(arrayTemp(2)*256)
IPAddressToNumber=IPAddressToNumber+CDbl(arrayTemp(1)*256*256)
IPAddressToNumber=IPAddressToNumber+CDbl(arrayTemp(0)*256*256*256)
End Function
'===================================================================================
'函数名称：NumberToIpAddress()
' 函数原型： NumberToIpAddress(ipNumber)
'功 能：将数字转化为IP地址
'参 数：ipNumber待转化的IP地址
'返 回 值：IP字符串
'涉及的表：无
'===================================================================================
Function NumberToIpAddress(ipNumber)
Dim arrayTemp(4)
Dim ipHigh,ipLow,iCnt
ipHigh=ipNumber/65536
ipLow=ipNumber-Fix(ipHigh)*65536
arrayTemp(0)=(ipHigh And &HFF00) / 256
arrayTemp(1)=ipHigh And &H00FF
arrayTemp(2)=(ipLow And &HFF00) / 256
arrayTemp(3)=ipLow And &H00FF
NumberToIpAddress=CStr(arrayTemp(0)) & "." & CStr(arrayTemp(1)) & "." & CStr(arrayTemp(2)) & "." & CStr(arrayTemp(3))
End Function

[lijun355]

用IPAddressToNumber函数把IP地址转换成数字
再比较大小就可以了

[xiefeng]

1、获取IP
2、用字符串匹配是否以192开头。
if left(ip,3)="192" then
*******
else
Response.Redirect URL "login.asp"
end if

[riqo]

何必呢，无论内网还是外网都需要用用户密码进入就行了~。
内网的人也有可能出现“网外”的人

[若白师妹]

首页获取用户ip,设定ip范围,if在ip范围,不用密码,否则:密码

[fangq]

楼上所说的不错！

用检测IP是最快的方法！