📄 look_ip.asp
字号:
<!--#include file="Inc/Const.asp" -->
<!--#include file="Inc/iXs_Ip.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META NAME="googlebot" CONTENT="ALL">
<meta name="robots" content="ALL">
<meta name="Abstract" content="爱雪儿网站建设，爱雪儿网页设计公司，信息">
<META name="copyright" content="本站版权归爱雪儿工作室所有。All Rights Reserved 2005">
<title><% = iXs.Sys_Info(1) %></title>
<link href="Skins/Style_1.css" rel="stylesheet" type="text/css">
<script language="javascript1.2" src="Js/iXs_Main.js"></script>
</head>
<body>
<p> </p>
<p> </p>
<%
Server.ScriptTimeout = 9999
Dim Action, IpStr
Dim IpDataInfo
Dim i
Action = iXs.ReqNum("Action")
IpStr = iXs.ReqStr("IpStr")
IpStr = iXs.RegExpFilter("\s+", IpStr, 1, vbCRLF)
' 缓存IP地址库版本信息
iXs.Name = "iXsTemp_IpDataInfo"
If iXs.ObjIsEmpty Then
Call iXs.DelCache("iXsTemp_IpDataInfo", 0)
' 获取版本信息和数据库IP数量
iXs.Value = WryInfo()
End If
IpDataInfo = iXs.Value
iXs.User_Agent = Request.ServerVariables("HTTP_USER_AGENT")
If Action = "" Then Action = 0
%>
<%If Action = 2 Then%><table width="450" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#F0F0F0" bgcolor="#F0F0F0">
<tr bordercolor="#3B6DC4" bgcolor="#3B6DC4">
<td height="1" colspan="3" class="White"></td>
</tr>
<tr bordercolor="#3B6DC4" bgcolor="#3B6DC4">
<td colspan="3" class="White">－<strong>调用代码</strong>－</td>
</tr>
<tr bordercolor="#F0F0F0" bgcolor="#F0F0F0">
<td colspan="3" bgcolor="#F0F0F0"><span class="Font_1">·</span><strong class="Red">在您的主页上加入以下的代码即可显示来访者的IP信息。</strong></td>
</tr>
<tr bordercolor="#F0F0F0" bgcolor="#F0F0F0">
<td colspan="3" bgcolor="#F0F0F0"><div style="border:1px solid #ADD7FF; width:100%; color:infotext; background-color:infobackground; font:bold 11px Tahoma, '宋体';"><script language="javascript1.2" src="<% = iXs.Sys_Info(0) %>IpInfo.asp<span class="Red">?sType=0</span>"></script></div></td>
</tr>
<tr bordercolor="#F0F0F0" bgcolor="#ADD7FF">
<td colspan="3"><span class="Font_1">·</span>效果演示：</td>
</tr>
<tr bordercolor="#F0F0F0" bgcolor="#F0F0F0">
<td colspan="3" align="center" bgcolor="#FFFFFF" onMouseOver="this.bgColor='#ADD7FF';" onMouseOut="this.bgColor='#FFFFFF';"><script language="javascript1.2" src="IpInfo.asp"></script></td>
</tr>
<tr bordercolor="#3B6DC4" bgcolor="#3B6DC4">
<td colspan="3" class="White">－<span style="font-weight: bold">参数说明</span>－</td>
</tr>
<tr bordercolor="#FFEE9D" bgcolor="#FFEE9D" onMouseOver="this.bgColor='#ADD7FF';" onMouseOut="this.bgColor='#FFEE9D';">
<td width="70">IP 地 址</td>
<td width="70" bordercolor="#ADD7FF" bgcolor="#ADD7FF"><strong>sType=1</strong></td>
<td width="294" bordercolor="#ADD7FF" bgcolor="#ADD7FF"><span class="Font_1">·</span>显示来访者的IP地址</td>
</tr>
<tr bordercolor="#FFEE9D" bgcolor="#FFEE9D" onMouseOver="this.bgColor='#ADD7FF';" onMouseOut="this.bgColor='#FFEE9D';">
<td>国家信息</td>
<td bordercolor="#ADD7FF" bgcolor="#ADD7FF"><strong>sType=2</strong></td>
<td bordercolor="#ADD7FF" bgcolor="#ADD7FF"><span class="Font_1">·</span>显示该IP对应的国家、省份、单位、公司名称等</td>
</tr>
<tr bordercolor="#FFEE9D" bgcolor="#FFEE9D" onMouseOver="this.bgColor='#ADD7FF';" onMouseOut="this.bgColor='#FFEE9D';">
<td>地域信息</td>
<td bordercolor="#ADD7FF" bgcolor="#ADD7FF"><strong>sType=3</strong></td>
<td bordercolor="#ADD7FF" bgcolor="#ADD7FF"><span class="Font_1">·</span>显示该IP对应的地域、地市、上网方式等</td>
</tr>
<tr bordercolor="#ADD7FF" bgcolor="#ADD7FF">
<td colspan="3"><span class="Font_1">·</span>如果在调用语句中省略了“<span class="Red">?sType=*</span>”参数，那么就会按以上演示的效果显示。</td>
</tr>
<tr bordercolor="#ADD7FF" bgcolor="#ADD7FF">
<td colspan="3"><span class="Font_1">·</span>以上信息如果数据库中没有或者查询过程错误都是显示为“<strong>未知</strong>”或者为空。</td>
</tr>
<tr bordercolor="#3B6DC4" bgcolor="#3B6DC4">
<td colspan="3" class="White">－<strong>图形调用</strong>－</td>
</tr>
<tr bordercolor="#ADD7FF" bgcolor="#ADD7FF">
<td colspan="3"><div style="border:1px solid #ADD7FF; width:100%; color:infotext; background-color:infobackground; font:bold 11px Tahoma, '宋体';"><script language="javascript1.2" src="<% = iXs.Sys_Info(0) %>IpInfo.asp<span class="Red">?Action=1</span>"></script></div></td>
</tr>
<tr bordercolor="#ADD7FF" bgcolor="#ADD7FF">
<td colspan="3">效果演示：</td>
</tr>
<tr align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<td colspan="3"><script language="javascript1.2" src="IpInfo.asp?Action=1"></script></td>
</tr>
<tr bordercolor="#ADD7FF" bgcolor="#ADD7FF">
<td colspan="3">调用说明：</td>
</tr>
<tr bordercolor="#ADD7FF" bgcolor="#ADD7FF">
<td colspan="3"><span class="Font_1">·</span>以上图片可以作为您的IP签名图片使用，但是因为当前系统是采用ASP+无组件图形处理生成的，执行速度较慢。</td>
</tr>
<tr bordercolor="#3B6DC4" bgcolor="#3B6DC4">
<td height="1" colspan="3"></td>
</tr>
</table>
<% Else %><table width="450" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<tr bordercolor="#3B6DC4" bgcolor="#3B6DC4">
<td height="1" colspan="2" class="White"></td>
</tr>
<tr bordercolor="#3B6DC4" bgcolor="#3B6DC4" class="White">
<td colspan="2" class="White">－<strong>IP查询</strong>－（数据库版本：<span class="Yellow">
<% = IpDataInfo(0) %></span>，记录：<span class="Yellow"><% = IpDataInfo(1) %></span> 条）</td>
</tr>
<tr bordercolor="#F0F0F0" bgcolor="#F0F0F0">
<td width="110" bgcolor="#F0F0F0"><span class="Font_1">·</span><strong>您的IP地址：</strong></td>
<td width="340" class="Red" onMouseOver="this.bgColor='#FFFFFF';" onMouseOut="this.bgColor='#F0F0F0';"><strong><% = iXs.ReqIp() %></strong></td>
</tr>
<tr bordercolor="#F0F0F0" bgcolor="#F0F0F0">
<td bgcolor="#F0F0F0"><span class="Font_1">·</span><strong>IP所在位置：</strong></td>
<td class="Blue" onMouseOver="this.bgColor='#FFFFFF';" onMouseOut="this.bgColor='#F0F0F0';"><% = Look_Ip(iXs.ReqIp()) %></td>
</tr>
<tr bordercolor="#F0F0F0" bgcolor="#F0F0F0">
<td bgcolor="#F0F0F0"><span class="Font_1">·</span><strong>您的操作系统：</strong></td>
<td onMouseOver="this.bgColor='#FFFFFF';" onMouseOut="this.bgColor='#F0F0F0';"><% = iXs.ClientInfo(0) %></td>
</tr>
<tr bordercolor="#F0F0F0" bgcolor="#F0F0F0">
<td bgcolor="#F0F0F0"><span class="Font_1">·</span><strong>浏览器的类型：</strong></td>
<td onMouseOver="this.bgColor='#FFFFFF';" onMouseOut="this.bgColor='#F0F0F0';"><% = iXs.ClientInfo(1) %></td>
</tr>
<tr bordercolor="#F0F0F0" bgcolor="#F0F0F0">
<td bgcolor="#F0F0F0"><span class="Font_1">·</span><strong>您的屏幕信息：</strong></td>
<td onMouseOver="this.bgColor='#FFFFFF';" onMouseOut="this.bgColor='#F0F0F0';"><script language="javascript1.2">document.write(screen.width + "×" + screen.height + "；(" + screen.colorDepth + " 位色深)");</script></td>
</tr>
<tr bordercolor="#3B6DC4" bgcolor="#3B6DC4">
<td height="1" colspan="2"></td>
</tr>
<tr bordercolor="#F0F0F0" bgcolor="#F0F0F0">
<td colspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="0" id="IP_Table">
<form name="Look_Ip" method="post" action="Look_Ip.asp?Action=1">
<tr>
<td width="73%" id="IP_Data"><span class="Font_1">·</span><strong>请输入IP地址或域名：</strong>
<input name="IpStr" type="text" id="IpStr" size="22" maxlength="250" style="border:1px solid #000000; color:#000000; height:20px; font:bold Tahoma, '宋体'; text-align:center; text-shadow: Lime; ime-Mode:disabled;" title="多条内容请用空格分开，或者点击右边的批量查询按钮！"></td>
<td width="10%" align="left"><input type="submit" name="Submit2" value="查询" style="border:1px solid #3B6DC4; background-color:#3B6DC4; color:#FFFFFF; height:20px;"></td>
<%If iXs.Sys_Info(6) = True Or iXs.Sys_Info(7) = True Then%><td width="17%" align="center"><input name="IsBatch" type="button" id="IsBatch" value="批量查询" onClick="ShowTextArea();" style="border:1px solid #3B6DC4; background-color:#3B6DC4; color:#FFFFFF; height:20px; width:60px;"></td><%End If%>
</tr>
</form>
</table></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -