中文源码网欢迎您！ 会员登录 会员注册 发布自媒体 发布模版 发布源码 发布模版 发布酷站
推荐源码常用源码帮助中心

Python语言技术文档

微信小程序技术文档

php语言技术文档

jsp语言技术文档

asp语言技术文档

C#/.NET语言技术文档

html5/css技术文档

javascript

点击排行

您现在的位置：首页 > 技术文档 > asp技巧

用XMLHTTP来偷东西哈！

来源：中文源码网    浏览：365 次    日期：2024-04-26 21:44:21
【下载文档:  用XMLHTTP来偷东西哈！.txt 】

用XMLHTTP来偷东西哈！
只做了一部份，IP查询请大家自己照着我里边的样例自己完成吧！演示：http://www.goalercn.com/demo/searcher.asp<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">常用查询<%'==========请保留以下信息==============='作者(Author)：goaler'主页(homepage)：http://www.goalercn.com'=======================================on error resume nextDim url,PostStr,sType,getContent,isType = Trim(Request.QueryString("sType"))%>
手机号归属地查询
<% Dim MobileNumber MobileNumber = Trim(Request.Form("MobileNumber")) %>
请输入手机号码段： 输入完整的11位手机号或手机号前七位
<% 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,"卡号归属地((.|\n)*?)") getType = RegExpText(getContent,"卡 类 型((.|\n)*?)") Response.Write("
    ") Response.Write("
  • 手机号码段：" & MobileNumber & "
    • ") Response.Write("
  • 号码归属地：" & Replace(getArea,",","") & "
    • ") Response.Write("
  • 卡　类　型：" & Replace(getType,",","") & "
    • ") Response.Write("
") END IF %>
Google PR 值查询
<% Dim domainName domainName = Replace(Replace(LCASE(Trim(Request.Form("domainName"))),"www.",""),"http://","") %>
请输入域名 ：www. 不要带 http://www.
<% IF(sType = "pr" AND domainName<>"")THEN PostStr = "" getContent=GetURL("http://so.5eo.com/info.php?action=ra ... "&domainName,PostStr) getContent=RegExpText(getContent,"在满分10分评价中获得 ((.|\n)*?) 分") 'getContent=ReplaceKey(getContent,"在满分10分评价中获得 ||||| 分") Dim ArrayPr ArrayPr=Split(getContent,",") Response.Write("") END IF %>
地区<->区号查询
<% Dim zoneName zoneName = Trim(Request.Form("zoneName")) %>
地 区 → 区 号：
<% IF(sType = "zone2number" AND zoneName <> "")THEN Dim getNumber,ArrayNumber PostStr = "area=" & escape(zoneName) & "&action=area2zone" getContent=GetURL("http://www.ip138.com/post/search.asp",PostStr) getNumber = RegExpText(getContent,"◎((.|\n)*?)") Response.Write("
    ") IF(getNumber="")THEN Response.Write("
  • 没有搜索到记录
    • ") ELSE ArrayNumber = split(getNumber,",") IF(isArray(ArrayNumber))THEN For i=0 TO UBOUND(ArrayNumber)-1 Response.Write("
  • "&Replace(ArrayNumber(i),",","")&"
    • ") Next ELSE Response.Write("
  • "&Replace(getNumber,",","")&"
    • ") END IF END IF Response.Write("
") END IF Dim zoneNumber zoneNumber = Trim(Request.Form("zoneNumber")) %>
区 号 → 地 区：
<% IF(sType = "number2zone" AND zoneNumber <> "")THEN Dim getZone,ArrayZone PostStr = "action=zone2area&zone="&zoneNumber getContent=GetURL("http://www.ip138.com/post/search.asp",PostStr) getZone = RegExpText(getContent,"◎((.|\n)*?)") Response.Write("
    ") IF(getZone="")THEN Response.Write("
  • 没有搜索到记录
    • ") ELSE ArrayZone = split(getZone,",") IF(isArray(ArrayZone))THEN For i=0 TO UBOUND(ArrayZone)-1 Response.Write("
  • "&Replace(ArrayZone(i),",","")&"
    • ") Next ELSE Response.Write("
  • "&Replace(getZone,",","")&"
    • ") END IF END IF Response.Write("
") END IF %>
ＩＰ地理位置查询
待查询的ＩＰ地址：
身份证号码查询
<% Dim identityNumber identityNumber = Trim(Request.Form("identityNumber")) %>
15或18位身份证号：
<% 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,"：((.|\n)*?)
") Response.Write("
    ") IF(getContent="")THEN Response.Write("
  • 身份证号码错误或没有查询到相关数据
    • ") ELSE ArrayIDCardInfo = split(getContent,",") Response.Write("
  • 性 别："&Replace(ArrayIDCardInfo(0),",","")&"
    • ") Response.Write("
  • 出生日期："&Replace(ArrayIDCardInfo(1),",","")&"
    • ") Response.Write("
  • 发证地区："&Replace(ArrayIDCardInfo(2),",","")&"
    • ") END IF Response.Write("
") END IF %>
15位号码升至18位：
<% 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)*?)") Response.Write("
    ") IF(getContent="")THEN Response.Write("
  • 身份证号码错误或没有查询到相关数据
    • ") ELSE Response.Write("
  • 升位(18位)后号码是："&Replace(getContent,",","")&"
    • ") END IF Response.Write("
") END IF %>
DESIGNED BY

上一篇：用存储过程、GetRows()、抽取10万条数据的速度测试

下一篇：用XMLHTTP很好的一个例子

相关内容