用XMLHTTP来偷东西哈！
Type=mobile" onsubmit="return checkMobile()">
请输入手机号码段：<input type="text" name="MobileNumber" value="<%=MobileNumber%>" onfocus="select()" /> <input type="submit" id="subBtn" value="查 询" />
输入完整的11位手机号或手机号前七位
</form>
</div>
<%
IF(sType = "mobile" AND MobileNumber<>"")THEN
Dim getArea,getType
PostStr = "action=mobile&mobile="&MobileNumber
getContent=GetURL("http://www.ip138.com:8080/search.asp",PostStr)
getArea = RegExpText(getContent,"卡号归属地</TD>((.|\n)*?)</TD>")
getType = RegExpText(getContent,"卡 类 型</TD>((.|\n)*?)</TD>")
Response.Write("<UL>")
Response.Write("<li><strong>手机号码段：</strong><font color=""#008000""><strong>" & MobileNumber & "</strong></font></li>")
Response.Write("<li><strong>号码归属地：</strong><font color=""#008000""><strong>" & Replace(getArea,",","") & "</strong></font></li>")
Response.Write("<li><strong>卡 类 型：</strong><font color=""#008000""><strong>" & Replace(getType,",","") & "</strong></font></li>")
Response.Write("</UL>")
END IF
%>
</div>
</fieldset>
<fieldset>
<legend><strong>Google PR 值查询</strong></legend>
<div>
<%
Dim domainName
domainName = Replace(Replace(LCASE(Trim(Request.Form("domainName"))),"www.",""),"http://","")
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="prForm" method="post" action="searcher.asp?sType=pr" onsubmit="return checkPR()">
请输入域名 ：www.<input type="text" name="domainName" value="<%=domainName%>" /> <input type="submit" value="提 交" />
不要带 http://www.
</form>
</div>
<%
IF(sType = "pr" AND domainName<>"")THEN
PostStr = ""
getContent=GetURL("http://so.5eo.com/info.php?action=ra ... "&domainName,PostStr)
getContent=RegExpText(getContent,"在满分10分评价中获得 <font color=#FB5E3C>((.|\n)*?)</font> 分")
''getContent=ReplaceKey(getContent,"在满分10分评价中获得 <font color=#FB5E3C>|||||</font> 分")
Dim ArrayPr
ArrayPr=Split(getContent,",")
Response.Write("<UL>")
Response.Write("<li><a href="""&domainName&" '' target=_blank rel=nofollow>http://"&domainName&""" target=""new""><font color=" ... t;&domainName&"</strong></font></a> 的Google PageRank值：<font color=""#FF0000""><strong>"&ArrayPr(0)&"</strong></font></li>")
Response.Write("<li><a href=""www."&domainName&" '' target=_blank rel=nofollow>http://www."&domainName&""" target=""new""><font color=" ... uot;&domainName&"</font></strong></a> 的Google PageRank值：<font color=""#FF0000""><strong>"&ArrayPr(1)&"</strong></font>")
Response.Write("</UL>")
END IF
%>
</div>
</field
请输入手机号码段：<input type="text" name="MobileNumber" value="<%=MobileNumber%>" onfocus="select()" /> <input type="submit" id="subBtn" value="查 询" />
输入完整的11位手机号或手机号前七位
</form>
</div>
<%
IF(sType = "mobile" AND MobileNumber<>"")THEN
Dim getArea,getType
PostStr = "action=mobile&mobile="&MobileNumber
getContent=GetURL("http://www.ip138.com:8080/search.asp",PostStr)
getArea = RegExpText(getContent,"卡号归属地</TD>((.|\n)*?)</TD>")
getType = RegExpText(getContent,"卡 类 型</TD>((.|\n)*?)</TD>")
Response.Write("<UL>")
Response.Write("<li><strong>手机号码段：</strong><font color=""#008000""><strong>" & MobileNumber & "</strong></font></li>")
Response.Write("<li><strong>号码归属地：</strong><font color=""#008000""><strong>" & Replace(getArea,",","") & "</strong></font></li>")
Response.Write("<li><strong>卡 类 型：</strong><font color=""#008000""><strong>" & Replace(getType,",","") & "</strong></font></li>")
Response.Write("</UL>")
END IF
%>
</div>
</fieldset>
<fieldset>
<legend><strong>Google PR 值查询</strong></legend>
<div>
<%
Dim domainName
domainName = Replace(Replace(LCASE(Trim(Request.Form("domainName"))),"www.",""),"http://","")
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="prForm" method="post" action="searcher.asp?sType=pr" onsubmit="return checkPR()">
请输入域名 ：www.<input type="text" name="domainName" value="<%=domainName%>" /> <input type="submit" value="提 交" />
不要带 http://www.
</form>
</div>
<%
IF(sType = "pr" AND domainName<>"")THEN
PostStr = ""
getContent=GetURL("http://so.5eo.com/info.php?action=ra ... "&domainName,PostStr)
getContent=RegExpText(getContent,"在满分10分评价中获得 <font color=#FB5E3C>((.|\n)*?)</font> 分")
''getContent=ReplaceKey(getContent,"在满分10分评价中获得 <font color=#FB5E3C>|||||</font> 分")
Dim ArrayPr
ArrayPr=Split(getContent,",")
Response.Write("<UL>")
Response.Write("<li><a href="""&domainName&" '' target=_blank rel=nofollow>http://"&domainName&""" target=""new""><font color=" ... t;&domainName&"</strong></font></a> 的Google PageRank值：<font color=""#FF0000""><strong>"&ArrayPr(0)&"</strong></font></li>")
Response.Write("<li><a href=""www."&domainName&" '' target=_blank rel=nofollow>http://www."&domainName&""" target=""new""><font color=" ... uot;&domainName&"</font></strong></a> 的Google PageRank值：<font color=""#FF0000""><strong>"&ArrayPr(1)&"</strong></font>")
Response.Write("</UL>")
END IF
%>
</div>
</field