| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 852 人关注过本帖
标题:[求助]如何只让指定的计算机打开我的网站!
只看楼主 加入收藏
pcjun405
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2006-2-6
收藏
 问题点数:0 回复次数:9 
[求助]如何只让指定的计算机打开我的网站!
我想用asp做一个程序,为了安全起见,只想让指定的计算机来访问,不知道如何做,希望高手指点!
我原本想读取客户端的硬盘序列号,或网卡的序列号,在数据库中将序列号加入,客户端访问时看看序列号是否合数据库中的序列号相同,如果相同则进入登陆界面,如果不同则转到其他页面。但一直弄不出来。
请各位指点有没有其他什么方法,如在客户端安装一个程序或放个什么文件,安装了这个程序或有指定文件的话才可访问。请大家来讨论讨论!
搜索更多相关主题的帖子: 计算机 
2006-02-06 18:13
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
使用 ActiveX 控件比较可靠。

天津网站建设 http://www./
2006-02-06 22:23
pcjun405
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2006-2-6
收藏
得分:0 
我也想学习使用ActiveX 控件,但我以前没有用过,您有这方面的文档吗?
2006-02-07 08:45
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 

如果是使用的 固定IP,可以根据IP判断


专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2006-02-07 08:54
pcjun405
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2006-2-6
收藏
得分:0 

是用ADSL拨号上网的,ip不固定,如果固定就好了,希望大家多给点意见!

2006-02-07 11:39
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 


获取网卡的MAC地址


<%
'----------------------提取网卡的信息--------------------'
Public Function GetMacInfo()
On Error Resume Next

Dim fso, FileStr, AspSleepThread, CmdStr, SysDir, wshshell, CmdRe, MacFileContentFile, MacFileContent
Const MacFile = "TmpYesoulSoft001.LLP"
Set fso = Server.CreateObject("Scripting.FileSystemObject")

SysDir = Split(GlobalMod.GetSysDir, ",")(1)
'response.Write(SysDir)
If InStr(LCase(SysDir), "system32") = 0 Then
GetMacInfo = "本系统只能运行在Nt、Windows 2000、Windows.Net、Windows Xp、Windows 2003等32位系统下,不支持32位以下的系统!"
Exit Function
Else
CmdStr = SysDir + "\Cmd.exe /C " + SysDir + "\Ipconfig.exe /All > " + Server.MapPath(MacFile)
End If
'response.Write(CmdStr)
CmdRe = Shell(CmdStr, vbHide)
'response.Write(CmdRe)
If CmdRe <> 0 Then
Set MacFileContentFile = fso.OpenTextFile(Server.MapPath(MacFile), 1, False, TristateUseDefault)
'GetMacInfo = MacFileContentFile.ReadAll()
'Response.Flush
FileStr = MacFileContentFile.ReadAll()
'response.Write(FileStr)
MacFileContentFile.Close
Set MacFileContentFile = Nothing
Set AspSleepThread = Server.CreateObject("YesoulSoft.SleepThread")
'定义线程挂起的时间,这里为毫秒
AspSleepThread.SleepTime = 500
AspSleepThread.BeginSleepThread
GetMacInfo = ExecuteOne(FileStr, "Physical Address. . . . . . . . . : (.*)")
Set AspSleepThread = Nothing
Else
GetMacInfo = "系统当前无法获取您的网络信息,请检查权限继承关系后再运行本系统!"
Exit Function
End If
DelFile MacFile
Set fso = Nothing
End Function
'------------------在字符串匹配一次结果-------------------'
Public Function ExecuteOne(inpStr, PatStr)
Dim oRe, oMatch, oMatches
Set oRe = New RegExp
oRe.Pattern = PatStr
inpStr = LCase(inpStr)
oRe.IgnoreCase = True
Set oMatches = oRe.Execute(inpStr)
Set oMatch = oMatches(0)
ExecuteOne = oMatch.SubMatches(0)
End Function
response.Write(GetMacInfo())
'代码中GETMACINFO函数仅仅可以获取首个网卡的MAC地址。
%>

以前收集的,大家一起测试一下,我这测试后提示“本系统只能运行在Nt、Windows 2000、Windows.Net、Windows Xp、Windows 2003等32位系统下,不支持32位以下的系统!”,也不知道是不是我系统的问题,我用的是WIN2000 SERVER

专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2006-02-07 13:08
pcjun405
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2006-2-6
收藏
得分:0 
感谢6楼的朋友!
我运行后也出现“本系统只能运行在Nt、Windows 2000、Windows.Net、Windows Xp、Windows 2003等32位系统下,不支持32位以下的系统!”,我的系统是windows2003 server
希望大家一起研究研究。
2006-02-07 21:34
rainic
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2367
专家分:0
注 册:2005-8-9
收藏
得分:0 
我用XP,也不行,再说,mac地址也不能保证计算机的唯一性
你做这个有什么用?通过用户名密码来验证不好吗?
如果你的网站有部分网页是内部使用的话,建个内部网就行了,那些内部网页使用内网IP

2006-02-07 21:58
linuxpluto
Rank: 4
等 级:贵宾
威 望:13
帖 子:889
专家分:23
注 册:2005-8-14
收藏
得分:0 
mac地址都可以手动修改的~~

吃的比猪还差,干的比驴还累,起的比鸡还早,睡得比小姐还晚,挣得比民工还少,看起来比谁都好——苦命的人.人生短短几十年,不要给自己留下了什么遗憾,想笑就笑,想哭就哭,该爱的时候就去爱,无谓压抑自己
2006-02-08 00:53
pcjun405
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2006-2-6
收藏
得分:0 
感谢8楼、9楼的朋友!
你做这个有什么用?通过用户名密码来验证不好吗?
我做的是一个刷卡消费程序。里面有用户名和密码验证,因涉及到资金问题,防止有人恶意破解出密码,不想让其他人访问的这个地址,我在数据库里加入可以访问的mac地址,用户输入网址时先检查mac地址,如果在数据库中有这个地址就可以看到登陆界面,如果不存在,则转到其他页面上。

如果你的网站有部分网页是内部使用的话,建个内部网就行了,那些内部网页使用内网IP
几个分店在不同的地方,只有通过互联网访问。

mac地址都可以手动修改的
修改也没有关系。

或者通过其他办法也可以,只要能限制就行!盼各位多给意见,谢谢!
2006-02-08 08:47
快速回复:[求助]如何只让指定的计算机打开我的网站!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.063746 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved