?? 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 + -