您现在的位置是：网站首页> 编程资料编程资料

用XMLHTTP来偷东西哈！_小偷/采集_

2023-05-25 313人已围观

简介用XMLHTTP来偷东西哈！_小偷/采集_

只做了一部份，IP查询请大家自己照着我里边的样例自己完成吧！
演示：http://www.goalercn.com/demo/searcher.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
" target="_blank" rel="nofollow">http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

常用查询

<%
'==========请保留以下信息===============
'作者(Author)：goaler
'主页(homepage)：http://www.goalercn.com
'=======================================
on error resume next
Dim url,PostStr,sType,getContent,i
sType = Trim(Request.QueryString("sType"))
%>

手机号归属地查询

<%
Dim MobileNumber
MobileNumber = Trim(Request.Form("MobileNumber"))
%>

请输入手机号码段：" onfocus="select()" />
输入完整的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("

手机号码段：" & MobileNumber & "

号码归属地：" & Replace(getArea,",","") & "

卡　类　型：" & Replace(getType,",","") & "

")
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("

http://"&domainName&""" target=""new""> 的Google PageRank值："&ArrayPr(0)&"

http://www."&domainName&""" target=""new""> 的Google PageRank值："&ArrayPr(1)&"")
Response.Write("

")
END IF
%>

地区<->区号查询

<%
Dim zoneName
zoneName = Trim(Request.Form("zoneName"))
%>

地区 → 区号：" onfocus="select()" />

<%
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("

没有搜索到记录

"&Replace(ArrayNumber(i),",","")&"

"&Replace(getNumber,",","")&"

")
END IF

Dim zoneNumber
zoneNumber = Trim(Request.Form("zoneNumber"))
%>

区号 → 地区：" onfocus="select()" />

<%
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("

没有搜索到记录

"&Replace(ArrayZone(i),",","")&"

"&Replace(getZone,",","")&"

")
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("

身份证号码错误或没有查询到相关数据

性别："&Replace(ArrayIDCardInfo(0),",","")&"

出生日期："&Replace(ArrayIDCardInfo(1),",","")&"

发证地区："&Replace(ArrayIDCardInfo(2),",","")&"

")
END IF
%>

15位号码升至18位：" /> 提示： 本文由神整理自网络，如有侵权请联系本站删除！
本站声明：
1、本站所有资源均来源于互联网，不保证100%完整、不提供任何技术支持；
2、本站所发布的文章以及附件仅限用于学习和研究目的;不得将用于商业或者非法用途；否则由此产生的法律后果，本站概不负责！

上一篇：以前写的一个分页存储过程，刚才不小心翻出来的_存储过程_

下一篇：XMLHTTP利用POST发送表单时提交中文的问题_小偷/采集_

您现在的位置是：网站首页> 编程资料编程资料

用XMLHTTP来偷东西哈！_小偷/采集_

相关内容

点击排行

本栏推荐

猜你喜欢