</tr>
          <% If Action = 1 Then
				'If iXs.Sys_Info(6) = False And iXs.Sys_Info(7) = False Then
				Dim IpArr, n, m
				IpArr = Split(IpStr, vbCRLF)
				m = UBound(IpArr)
				' 判斷系統(tǒng)是否允許批量查詢
				If m >= 1 And (iXs.Sys_Info(6) = False And iXs.Sys_Info(7) = False) Then Call iXs.Alert("系統(tǒng)當(dāng)前設(shè)置不允許批量查詢", 0, 0)
				For n = 0 To m
					IpStr = iXs.RegExpFilter("\r*", IpArr(n), 1, "")
					If IpStr <> "" Then
				%>
          <tr bordercolor="#F0F0F0" bgcolor="#F0F0F0">
            <td colspan="2" bgcolor="#F0F0F0"><table width="100%"  border="0" cellpadding="2" cellspacing="1" bordercolor="#3B6DC4" bgcolor="#3B6DC4">
                <tr>
                  <td colspan="2" align="center" class="White">－<strong>來自本站的查詢結(jié)果</strong>－(第 <% = n + 1 %>/<% = m + 1 %> 項)</td>
                </tr>
                <% If iXs.IsIp(IpStr) Then
					' 判斷系統(tǒng)是否允許IP地址參與批量查詢
					If m >= 1 And iXs.Sys_Info(6) = False Then Call iXs.Alert("系統(tǒng)當(dāng)前設(shè)置不允許IP地址參與批量查詢", 0, 0)
				%>
                <tr bordercolor="#FFFFFF" bgcolor="#FFFFFF" onMouseOver="this.bgColor='#F0F0F0';" onMouseOut="this.bgColor='#FFFFFF';">
                  <td width="28%" bordercolor="#F0F0F0" bgcolor="#F0F0F0"><span class="Font_1">·</span>您所查詢的IP地址：</td>
                  <td width="72%" align="center"><span class="Red"><strong><% = IpStr %></strong></span></td>
                </tr>
                <tr bordercolor="#FFFFFF" bgcolor="#FFFFFF" onMouseOver="this.bgColor='#F0F0F0';" onMouseOut="this.bgColor='#FFFFFF';">
                  <td bordercolor="#F0F0F0" bgcolor="#F0F0F0"><span class="Font_1">·</span>該IP查詢物理定位：</td>
                  <td align="center"><span class="Green"><strong><% = Look_Ip(IpStr) %></strong></span></td>
                </tr>
                <tr align="center" bordercolor="#F0F0F0" bgcolor="#F0F0F0">
                  <td colspan="2" bgcolor="#F0F0F0"><a href="http://www.whois.sc/<% = IpStr %>" target="_blank" class="Menu"><span class="Blue">查看官方 IP Whois 數(shù)據(jù)庫資料</span></a></td>
                </tr>
                <% Else
					' 判斷系統(tǒng)是否允許域名解析并參與批量查詢
					If m >= 1 And iXs.Sys_Info(7) = False Then Call iXs.Alert("系統(tǒng)當(dāng)前設(shè)置不允許域名解析并參與批量查詢", 0, 0)
					Dim Domain, DomainFix
					' 域名后綴
					DomainFix = iXs.Sys_Info(2)
					
					Domain = IpStr
					
					' 先進行域名整形，如果出錯則是因為域名不合法，給出提示
						' 標(biāo)準(zhǔn)域名中不包含任何斜杠和冒號等，如：www.xlfw.cn
						' 帶路徑的域名包含且至少包含一個斜杠，如：www.xlfw.cn:80/ddd/ddd/dd.asp
						' 帶端口的域名一定包含一個冒號且隨后緊跟數(shù)字，如：www.xlfw.cn:80
						' 帶協(xié)議的域名前端肯定包含雙斜杠，如：http://www.xlfw.cn:80/ddd/ddd/dd.asp
						' 先檢測域名中是否包含協(xié)議，如果有則刪除它，為了兼容，使用正則表達式
					Domain = iXs.RegExpFilter("(http|https|ftp|rtsp|mms):(\/\/|\\\\){1}", Domain, 1, "")
					' 再檢測域名中是否包含斜杠，如果有，則刪除并刪除它后面的所有字串
					Domain = iXs.RegExpFilter("/.*", Domain, 1, "")
					' 然后應(yīng)該檢測域名中是否包含端口項，并刪除
					Domain = iXs.RegExpFilter(":\d*", Domain, 1, "")
					' 最后驗證域名格式有效性
					If InStr(Domain, ".") = 0 Then Call iXs.Alert("您的域名格式錯誤！\n\n請檢查后重新輸入！", 0, 0) ' 域名至少包含一個英文句點
					If InStr(LCase(DomainFix), LCase(Replace(CStr(iXs.RegExpSearch("\.(" & DomainFix & ")$", Domain, 1, "")), ".", ""))) = 0 Then Call iXs.Alert("您的域名后綴錯誤！或者當(dāng)前系統(tǒng)拒絕此后綴的域名查詢。\n\n請檢查后重新輸入或者聯(lián)系管理員！", 0, 0) ' 應(yīng)當(dāng)以標(biāo)準(zhǔn)的域名后綴結(jié)尾
					
					' 利用XMLHTTP獲取域名解析后的IP地址
					Dim Dm_Arr, Dm_Num, Dm_Par
					
					' 獲取網(wǎng)頁數(shù)據(jù)
					Dm_Par = iXs.GetHTTPPage("http://www.hexillion.com/samples/AspLookup.asp?addr=" & Domain)%>
                <tr align="left" bordercolor="#F0F0F0" bgcolor="#F0F0F0">
                  <td colspan="2"><strong>您查詢的域名為：<a href="http://<% = Domain %>" target="_blank"><span class="Blue" title="點擊訪問該站點"><% = Domain %></span></a>，其對應(yīng)IP地址及物理定位如下：</strong></td>
                </tr>
					<%
					' 判斷是否存在錯誤信息
					If InStr(LCase(Dm_Par), "<tt><strong>host not found</strong></tt>") > 0 Then Call iXs.Alert("這個域名不存在，解析失敗，請檢查您的輸入！", 0, 0) ' 該域名不存在！
					If InStr(LCase(Dm_Par), "<tt><strong>no data</strong></tt>") > 0 Then Call iXs.Alert("這個域名合法，但是解析失敗，請檢查您的輸入！", 0, 0) ' 該域名不存在！
					' 利用正則表達式獲取包含IP串的字符串
					Dm_Par = CStr(iXs.RegExpSearch("<tt><strong>((0|[1-9]\d?|[0-1]\d{2}|2[0-4]\d|25[0-5])\.(0|[1-9]\d?|[0-1]\d{2}|2[0-4]\d|25[0-5])\.(0|[1-9]\d?|[0-1]\d{2}|2[0-4]\d|25[0-5])\.(0|[1-9]\d?|[0-1]\d{2}|2[0-4]\d|25[0-5])(<br>)?)+</strong></tt>", Dm_Par, 1, ""))
					Dm_Par = CStr(iXs.RegExpFilter("<.+?>", Dm_Par, 1, "|"))
					
					Dm_Arr = Split(Dm_Par, "|")
					Dm_Num = 0
					Dm_Par = ""
					For i = 0 To UBound(Dm_Arr)
						If iXs.IsIp(Dm_Arr(i)) = True Then
							Response.Write("<tr align=""left"" bordercolor=""#FFFFFF"" bgcolor=""#FFFFFF"" onMouseOver=""this.bgColor='#F0F0F0';"" onMouseOut=""this.bgColor='#FFFFFF';"">")
							Response.Write("<td colspan=""2""><span class=""Font_1"">·</span><a href=""Look_Ip.asp?Action=1&IpStr=" & iXs.Format_Ip(Dm_Arr(i)) & """ target=""_blank""><strong class=""red"" title=""點擊查詢 " & iXs.Format_Ip(Dm_Arr(i)) & " 的單個定位"">" & iXs.Format_Ip(Dm_Arr(i)) & "</strong></a> → <strong class=""green"">" & Look_Ip(Dm_Arr(i)) & "</strong></td>")
							Response.Write("</tr>")
							Dm_Num = Dm_Num + 1
						End If
					Next%>
                <tr align="right" bordercolor="#FFFFFF" bgcolor="#FFFFFF" onMouseOver="this.bgColor='#F0F0F0';" onMouseOut="this.bgColor='#FFFFFF';">
                  <td colspan="2">共 <strong><% = Dm_Num %></strong> 個結(jié)果</td>
                </tr>
				<% End If %>
            </table></td>
          </tr>
          <%
		  		Response.Flush()
				End If
				Next
		  End If %>
          <tr bordercolor="#3B6DC4" bgcolor="#3B6DC4">
            <td height="1" colspan="2"></td>
          </tr>
		  <tr id="tr1" bordercolor="#F0F0F0" bgcolor="#F0F0F0" onMouseOver="this.bgColor='#FFFFFF';" onMouseOut="this.bgColor='#F0F0F0';">
		    <td colspan="3"><table width="100%" border="0" cellpadding="2" cellspacing="0">
                <tr align="center">
                  <td><span class="Font_1">·</span>IP地址查詢：
                  <%If iXs.Sys_Info(6) = True Then%><span class="Red">支持</span><%Else%><span class="Blue">不支持</span><%End If%></td>
                  <td><span class="Font_1">·</span>域名查詢：
                  <%If iXs.Sys_Info(7) = True Then%><span class="Red">支持</span><%Else%><span class="Blue">不支持</span><%End If%></td>
                  <td><a href="Look_Ip.asp?Action=2" target="_self" class="Menu"><span class="Green"><strong>點擊這里獲取調(diào)用代碼</strong></span></a></td>
              </tr>
            </table></td>
		  </tr>
          <tr id="tr2" bordercolor="#3B6DC4" bgcolor="#3B6DC4">
            <td height="1" colspan="2"></td>
          </tr>
        </table>
  <% End If %>
<p>&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>
<%If iXs.Sys_Info(6) = True Or iXs.Sys_Info(7) = True Then%>
<script language="javascript1.2">
<!--
	function ShowTextArea(){
		// IP_Table, IP_Data, IsBatch
		var Obj_1 = document.getElementById("IP_Table");
		var Obj_2 = document.getElementById("IP_Data");
		var Obj_3 = document.getElementById("IsBatch");
		if (Obj_3.value != "批量查詢"){
			Obj_3.value = "批量查詢";
			Obj_2.innerHTML = "<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=\"多條內(nèi)容請用空格分開，或者點擊右邊的批量查詢按鈕！\">"
			// 嘗試刪除已經(jīng)增加的對象
			try{
				myNewRow.removeNode(true);
			}
			catch(e){};
		}else{
			Obj_3.value = "簡單查詢";
			// 創(chuàng)建提示
			Obj_2.innerHTML = "<span class=\"Font_1\">·</span><strong>請在下面輸入IP地址或域名，多個用回車隔開：</strong>";
			// 創(chuàng)建新行
			myNewRow = Obj_1.insertRow();
			myNewCell = myNewRow.insertCell();
			myNewCell.colSpan = 3;
			myNewCell.innerHTML = "<textarea name=\"IpStr\" id=\"IpStr\" style=\"color:#000000; height:100px; width:100%; font:bold Tahoma, '宋體'; text-shadow: Lime; ime-Mode:disabled;\" title=\"支持IP地址和域名混查！\"></textarea>";
		}
	}
-->
</script>
<%End If%>