IP地址查询工具
相关最新源码
通过该工具可以查询指定IP的物理地址或网站域名服务器的IP和物理地址，及所在国家或城市，甚至精确到某个网吧，机房或学校等；查出的结果仅供参考！
数字地址：即IP地址的数字化形式，复制在浏览器中访问就和访问IP一样
&&&&&&&&&&&&&&&&&&&&&&&&&
源码下载地址查看: 734|回复: 12
求个ASP上传文件源码。
阅读权限50
在线时间 小时
结帖率： (8/10)
论坛翻遍了，没能找到，只看到个ASP收信源码，
看不懂ASP源码自己不会改，哪个好心人手里有的发一份谢谢
我是来收币的
回答提醒：如果本帖被关闭无法回复，您有更好的答案帮助楼主解决，请发表至
可获得加分喔。友情提醒：本版被采纳的主题可在
帖子申请荣誉值，获得 1点 荣誉值,荣誉值可兑换终身vip用户组哦。快捷通道： →
阅读权限10
在线时间 小时
结帖率： (1/3)
我是来收币的
阅读权限120
在线时间 小时
签到天数: 7 天结帖率： (93/98)
文件的话php...............
阅读权限140
在线时间 小时
签到天数: 8 天结帖率： (3/3)
建议你尽量不要用ASP上传图片，asp的上传写得不好就有漏洞，很容易在图片里面藏一个 最小马
谢谢提醒，我自用的不要紧&
阅读权限200
在线时间 小时
签到天数: 7 天结帖率： (8/9)
百度一堆哦
能找到我就不来这发帖咯&
阅读权限120
在线时间 小时
签到天数: 8 天结帖率： (22/23)
(845 Bytes, 下载次数: 7)
23:46 上传
点击文件名下载附件
23:45 上传
点击文件名下载附件
845 Bytes, 下载次数: 9
我上传到空间看了，这是指在网页上传的？我是想要易语言内直接传东西到空间 不需要这么麻烦的&
表示看不懂ASP源码哦，能否配上易语言源码呢&
阅读权限120
在线时间 小时
签到天数: 8 天结帖率： (22/23)
易语言通过asp上传文件到空间？
为何不干脆易语言链接FTP上传
阅读权限120
在线时间 小时
签到天数: 8 天结帖率： (22/23)
遍历目录下所有指定文件类型上传到七牛
(出处: 精易论坛)
FTP也可以啊，但是我试过不行，要不你帮我看看这个
http://bbs.125.la/forum.php?mod=viewthread&tid=&page=1#pid9160504&
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论，本站内容均为会员发表，并不代表精易立场!
揭阳精易科技有限公司申明:我公司所有的培训课程版权归精易所有，任何人以任何方式翻录、盗版、破解本站培训课程，我们必将通过法律途径解决！
公司简介：揭阳市揭东区精易科技有限公司致力于易语言教学培训/易语言学习交流社区的建设与软件开发，多年来为中小企业编写过许许多多各式软件，并把多年积累的开发经验逐步录制成视频课程供学员学习，让学员全面系统化学习易语言编程，少走弯路，减少对相关技术的研究与摸索时间，从而加快了学习进度！
Powered by网页设计教程与开发
提供各种常见网页效果
提供各种各样的设计教程
装扮QQ，让QQ变得更酷
设计参考，提高自升水平
学习服务器和操作系统
提供各种素材和工具
收藏学习资料
您现在的位置：&&>>&&>>&&>>&&>>&&>>&正文
做了CDN获取用户真实IP的函数代码(PHP与Asp设置方式)
asp函数代码：. 代码如下:function checkip(checkstring)'用正则判断IP是否合法dim re1set re1=new RegExpre1.pattern=”^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$”re1.global=falsere1.Ignorecase=falsecheckip=re1.test(checkstring)set re1=nothingend function
function get_cli_ip()'取真实IP函数，先 HTTP_CLIENT_IP 再 HTTP_X_FORWARDED_FOR 再 REMOTE_ADDRdim client_ipif checkip(Request.ServerVariables(”HTTP_CLIENT_IP”))=true thenget_cli_ip = checkip(Request.ServerVariables(”HTTP_CLIENT_IP”))elseMyArray = split(Request.ServerVariables(”HTTP_X_FORWARDED_FOR”),”,”)if ubound(MyArray)&=0 thenclient_ip = trim(MyArray(0))if checkip(client_ip)=true thenget_cli_ip = client_ipexit functionend ifend ifget_cli_ip = Request.ServerVariables(”REMOTE_ADDR”)end ifend function
discuz论坛取真实IP的php代码，其它类似，请参考稍做修改
(discuz修改include/common.inc.php)用以下这段代码:. 代码如下:if(getenv('HTTP_CLIENT_IP') && strcasecmp(getenv('HTTP_CLIENT_IP'),'unknown')) {$onlineip = getenv('HTTP_CLIENT_IP');} elseif(getenv('HTTP_X_FORWARDED_FOR') && strcasecmp(getenv('HTTP_X_FORWARDED_FOR'),
'unknown')) {
$testip = explode('.', getenv('HTTP_X_FORWARDED_FOR'));
if ($testip[0]=='192′ && $testip[1]=='168′) {$onlineip = getenv('REMOTE_ADDR');}elseif($testip[0]=='10′) {$onlineip = getenv('REMOTE_ADDR');}else {$onlineip = getenv('HTTP_X_FORWARDED_FOR');}
//gamesir hack end} elseif(getenv('REMOTE_ADDR') && strcasecmp(getenv('REMOTE_ADDR'),
'unknown')) {$onlineip = getenv('REMOTE_ADDR');} elseif(isset($_SERVER['REMOTE_ADDR']) && $_SERVER['REMOTE_ADDR'] && strcasecmp($_SERVER
['REMOTE_ADDR'],'unknown')) {//by Johnny$tmp_ip = explode(',',$_SERVER['HTTP_X_FORWARDED_FOR']);$tmp_ip1 = explode(',',$tmp_ip[0]);if ($tmp_ip1[0] =='192′ && $tmp_ip1[1] =='168′) {$onlineip = getenv('REMOTE_ADDR');}else if($tmp_ip1[0]=='10′) {$onlineip = getenv('REMOTE_ADDR');}else{$onlineip = $tmp_ip[0];}unset($tmp_ip);unset($tmp_ip1);
替换这段代码:
. 代码如下:if(getenv('HTTP_CLIENT_IP') && strcasecmp(getenv('HTTP_CLIENT_IP'),'unknown')) {$onlineip = getenv('HTTP_CLIENT_IP');} elseif(getenv('HTTP_X_FORWARDED_FOR') && strcasecmp(getenv('HTTP_X_FORWARDED_FOR'),
'unknown')) {$onlineip = getenv('HTTP_X_FORWARDED_FOR');} elseif(getenv('REMOTE_ADDR') && strcasecmp(getenv('REMOTE_ADDR'),'unknown')) {$onlineip = getenv('REMOTE_ADDR');} elseif(isset($_SERVER['REMOTE_ADDR']) && $_SERVER['REMOTE_ADDR'] && strcasecmp($_SERVER
['REMOTE_ADDR'],'unknown')) {$onlineip = $_SERVER['REMOTE_ADDR'];}
转载请注明:破洛洛(谢谢合作)
上一篇文章： 下一篇文章： 没有了
网友评论：
[][][][][][][][][][]Asp获取真实IP地址
Asp获取真实IP地址：
最简单的用以下语句:
ip=request.ServerVariables(&REMOTE_ADDR&)
response.Write(ip)
但这种方法对代理服务器上网的就不准了,故比较全面的是用下面的方法:
&%Private Function getIP()
Dim strIPAddr
If Request.ServerVariables(&HTTP_X_FORWARDED_FOR&) = && OR InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &unknown&) & 0 Then
strIPAddr = Request.ServerVariables(&REMOTE_ADDR&)
ElseIf InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &,&) & 0 Then
strIPAddr = Mid(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), 1, InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &,&)-1)
ElseIf InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &;&) & 0 Then
strIPAddr = Mid(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), 1, InStr(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&), &;&)-1)
strIPAddr = Request.ServerVariables(&HTTP_X_FORWARDED_FOR&)
getIP = Trim(Mid(strIPAddr, 1, 30))
End Function
ip=getIP()
response.write(ip)
阅读本文后您有什么感想? 已有
人给出评价!
13-03-2612-12-0711-11-1811-07-0911-07-0811-07-0611-05-2311-05-17
注：您的评论需要经过审核才会显示出来
没有查询到任何记录。
Copyright &
PC6下载().All Rights Reserved
备案编号:湘ICP备号function checkip(checkstring)'用正则判断IP是否合法
set re1=new RegExp
re1.pattern=&^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$&
re1.global=false
re1.Ignorecase=false
checkip=re1.test(checkstring)
set re1=nothing
end function
'-------------------------------------------------------------
'取真实IP函数，先 HTTP_CLIENT_IP 再 HTTP_X_FORWARDED_FOR 再 REMOTE_ADDR
'-------------------------------------------------------------
function get_cli_ip()
dim client_ip
if checkip(Request.ServerVariables(&HTTP_CLIENT_IP&))=true then
get_cli_ip = checkip(Request.ServerVariables(&HTTP_CLIENT_IP&))
MyArray = split(Request.ServerVariables(&HTTP_X_FORWARDED_FOR&),&,&)
if ubound(MyArray)&=0 then
client_ip = trim(MyArray(0))
if checkip(client_ip)=true then
get_cli_ip = client_ip
exit function
get_cli_ip = Request.ServerVariables(&REMOTE_ADDR&)
end function
%&您可能感兴趣的文章：