当前位置:七道奇文章资讯网站建设网站编程
日期:2010-07-31 11:22:00  来源:本站整理

ASP代码获得真实ip的[网站编程]

赞助商链接



  本文“ASP代码获得真实ip的[网站编程]”是由七道奇为您精心收集,来源于网络转载,文章版权归文章作者所有,本站不对其观点以及内容做任何评价,请读者自行判断,以下是其具体内容:
  1. Function getIP() 
  2. Dim strIPAddr 
  3. If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" or InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then 
  4.  
  5. strIPAddr = Request.ServerVariables("REMOTE_ADDR") 
  6.  
  7. ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then 
  8. strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) 
  9.  
  10. ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then 
  11. strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1) 
  12.  
  13. Else 
  14. strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
  15. End If 
  16. getIP = Trim(Mid(strIPAddr, 1, 30)) 
  17.  
  18. End Function 


利用这个函数能得到真实的ip地址,而不会是http代理服务器的地址


  以上是“ASP代码获得真实ip的[网站编程]”的内容,如果你对以上该文章内容感兴趣,你可以看看七道奇为您推荐以下文章:
  • 判断能否是蜘蛛的asp代码
  • ASP代码获得真实ip的
  • ASP代码的对象化
  • asp代码实现网站目录自动跳转
  • 本文地址: 与您的QQ/BBS好友分享!
    • 好的评价 如果您觉得此文章好,就请您
        0%(0)
    • 差的评价 如果您觉得此文章差,就请您
        0%(0)

    文章评论评论内容只代表网友观点,与本站立场无关!

       评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
    Copyright © 2020-2022 www.xiamiku.com. All Rights Reserved .