| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 移动应用开发 斑竹:flyers,iamdream | |||||
| 作者： |
|
2006/4/4 8:30:39 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 小弟有问题请教各位前辈`` 我要做一个通过查询IP地址来获得用户资料的流言本 意思就是用户一登陆通过他的IP来获得他的名字地址电话 数据库我有一个就是不知道代码该如何写 在这里先谢谢各位前辈给我点提示 谢谢！！！！！！！！！！ ---------------------------------------------- - |
|||||
| 作者： |
|
2006/4/4 9:02:07 | ||||
| 2楼： | request.ServerVariables("REMOTE_ADDR")，比较下 ---------------------------------------------- 我Delphi水平不行，其他的也不怎么样，来这纯属灌水~~~~~ |
|||||
| 作者： |
|
2006/4/4 22:57:37 | ||||
| 3楼： | <% function En_IP(ip) ip = CStr(request.ServerVariables("REMOTE_ADDR")) ip1 = left(ip,CInt(instr(ip,".")-1)) ip = mid(ip,instr(ip,".")+1) ip2 = left(ip,CInt(instr(ip,".")-1)) ip = mid(ip,instr(ip,".")+1) ip3 = left(ip,CInt(instr(ip,".")-1)) ip4 = mid(ip,instr(ip,".")+1) En_IP = Cint(ip1)*256*256*256+Cint(ip2)*256*256+Cint(ip3)*256+Cint(ip4) end function %> 然后根据函数返回的值En_IP从数据库中取出IP地址判断来自于那里。然后作出相应判断，如果是局域网的话，用request.ServerVariables("Remote_Addr")就足够了 ---------------------------------------------- 
|
|||||
| 作者： |
|
2006/4/7 18:44:06 | ||||
| 4楼： | 谢谢啊`！ ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
