| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45411) |
| -- 作者：Bin -- 发布时间：2014/1/24 15:18:00 -- If User.Group = "开发者" andalso ip="你指定的IP" Then \'获取IP参考这里http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=40106&skin=0 Tables("证件信息").Current("审核人") = User.Name Tables("证件信息").Current("审核日期") = Date.Now() Else MessageBox.show("你无审核权限!") End If |
| -- 作者：Bin -- 发布时间：2014/1/24 16:25:00 -- 就是上面这么简单啊.没有别的了. |
| -- 作者：Bin -- 发布时间：2014/1/24 16:28:00 -- 假如你希望IP 为 192.168.0.101 的用户才有权限 Dim IPAdress As System.Net.IPAddress Dim HostName As String HostName = System.Net.Dns.GetHostName \'获得本机的机器名 IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) \'获得本机的IP If User.Group = "开发者" andalso IPAdress.ToString ="192.168.0.101" Then Tables("证件信息").Current("审核人") = User.Name Tables("证件信息").Current("审核日期") = Date.Now() Else MessageBox.show("你无审核权限!") End If |
| -- 作者：Bin -- 发布时间：2014/1/24 16:29:00 -- 你要先声明获取IP才可以,不是直接复制我2楼的代码,汗... 你还需要加强学习. [此贴子已经被作者于2014-1-24 16:29:29编辑过]
|