用XMLHTTP来偷东西哈！

gt;
<legend><strong>ＩＰ地理位置查询</strong></legend>
<div>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="ipForm" method="post" action="searcher.asp?sType=ip" onsubmit="return checkIPForm()">
待查询的ＩＰ地址：<input type="text" name="ipAddress" value="<%=ipAddress%>" /> <input type="submit" value="提 交" />
</form>
</div>

</div>
</fieldset>

<fieldset>
<legend><strong>身份证号码查询</strong></legend>
<div>
<%
Dim identityNumber
identityNumber = Trim(Request.Form("identityNumber"))
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="identityForm" method="post" action="searcher.asp?sType=identity" onsubmit="return checkIdentityForm()">
15或18位身份证号：<input type="text" name="identityNumber" value="<%=identityNumber%>" /> <input type="submit" value="提 交" />
</form>
</div>
<%
IF(sType = "identity" AND identityNumber<>"")THEN
Dim ArrayIDCardInfo
PostStr = "action=idcard&userid="&identityNumber
getContent=GetURL("http://www.oicq88.com/idsearch/index.asp",PostStr)
getContent=RegExpText(getContent,"：</font>((.|\n)*?)<BR>")
Response.Write("<UL>")
IF(getContent="")THEN
Response.Write("<li>身份证号码错误或没有查询到相关数据</li>")
ELSE
ArrayIDCardInfo = split(getContent,",")
Response.Write("<li><strong>性 别：</strong><font color=""#008000""><strong>"&Replace(ArrayIDCardInfo(0),",","")&"</strong></font></li>")
Response.Write("<li><strong>出生日期：</strong><font color=""#008000""><strong>"&Replace(ArrayIDCardInfo(1),",","")&"</strong></font></li>")
Response.Write("<li><strong>发证地区：</strong><font color=""#008000""><strong>"&Replace(ArrayIDCardInfo(2),",","")&"</strong></font></li>")
END IF
Response.Write("</UL>")
END IF
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="identityUpForm" method="post" action="searcher.asp?sType=upIdentity" onsubmit="return checkIdentityUpForm()">
15位号码升至18位：<input type="text" name="identityNumber" value="<%=identityNumber%>" /> <input type="submit" value="提 交" />
</form>
</div>
<%
IF(sType = "upIdentity" AND identityNumber<>"")THEN
PostStr = "action=upto18&userid="&identityNumber
getContent=GetURL("http://www.oicq88.com/idsearch/index.asp",PostStr)
getContent=RegExpText(getContent,"升位后号码：((.|\n)*?)</TD>")
Response.Write("<UL>")
IF(getContent="")THEN
Response.Write("<li>身份证号码错误或没有查询到相关数据</li>")
ELSE
Response.Write("<li><strong>升位(18位)后号码是：</strong><font color=""#008000""><strong>"&Replace(getContent,",","")&"</strong></font>&