全部

紧急求救,解答即结贴

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

回复赞

WEB开发文档2 总结转自：http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx怎样将后台生成的在内存中的图象显示到客户端Microsoft IE WebControls下载地址如何在DATAGRID中使用JAVASCRIPT脚本控制DataGrid中连接到...

我在CSDN参与的3000个帖子今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题望高手帮忙！...

600个问与答 http://faq.xunweb.org/itfaq/mfcbasic/ 怎样彻底结束一个线程? (2006-06-04) v 怎么样以纯idispatch方式而不是引入类型库的方法调...

MS-SQL Server 基础类 - SQL语句

转--《煮酒探西游》吴闲云煮酒探西游吴闲云目录 (1)唐僧的父母之谜 (2)《西游记》中最大的秘密 (3)殷小姐为什么要绣球招亲 (4)唐僧的亲爹究竟是谁 (5)小姐为什么要弃婴江中 (6)唐僧复仇 ...(13)观音菩萨是一个什么样的人

《暗时间》读书笔记第五章-- 一直以来伴随我的一些学习习惯五、一直以来伴随我的一些学习习惯（一）学习与思考 3.做读书笔记。一是将自己阅读的时候的思考（包括闪念）总结下来，二是将书中的好例子摘抄下来。（这个习惯是一年前才养成的，发现受益极大。...

基础各位兄弟，在SDK编程中如果实现窗口分割呢？请问怎么得到一个函数的执行时间，单位毫秒！如何调试asp组件呀。用vc++调试编制的组件怎样画一个箭头？高分请教如何限制程序运行的方法？求助：通过编程DirectX抓屏-----...

博弈论集锦看完这么多效应及定理,能否总结成一条? 1.马太效应 ...　《新约马太福音》中有这样一个故事，一个国王远行前，交给三个仆人每人一锭银子，吩咐他们：“你们去做生意，等我回来时，再来见我。...