紧急求救,解答即结贴

xygxyg 2004-11-30 10:26:18

在局域网代理服务器里面架设了一个WEB服务器,如果用户从外网登录,则需输入用户名和密码,如果从内网访问则跳过用户密码的输入,程序应该如何写?
...全文
57 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
fangq 2004-11-30
楼上所说的不错!

用检测IP是最快的方法!
回复
若白师妹 2004-11-30
首页获取用户ip,设定ip范围,if在ip范围,不用密码,否则:密码
回复
riqo 2004-11-30
何必呢,无论内网还是外网都需要用用户密码进入就行了~。
内网的人也有可能出现“网外”的人
回复
xiefeng 2004-11-30
1、获取IP
2、用字符串匹配是否以192开头。
if left(ip,3)="192" then
*******
else
Response.Redirect URL "login.asp"
end if
回复
lijun355 2004-11-30
用IPAddressToNumber函数把IP地址转换成数字
再比较大小就可以了
回复
lijun355 2004-11-30
'===================================================================================
'函数名称: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
回复
xygxyg 2004-11-30
那么请问如何检测ip最主要的也是检测ip
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-11-30 10:26
社区公告
暂无公告