asp空间奸商查询系统
2018-09-06 11:38
看到很多朋友无缘无故的被骗，特发布此查询系统，以免再次上当！
使用方法非常简单：
直接输入对方的域名或者网站名称，支持中英文！点查询即可
复制代码 代码如下:
<%@LANGUAGE=VBSCRIPTCODEPAGE=936%>
<%
OnErrorResumeNext
ff=垃圾,是垃圾,骗子,无耻,不要买,骗钱,垃圾空间,垃圾中的极品,垃圾中的垃圾,经常掉线,无缘无故的关闭
ifRequest.Form(checkbox)<>then
ff=Replace(Replace(request.Form(zff),,),chr(13),,)
Endif
ifrequest.Form(st)=baiduthen
Url=
Endif
ClassPostForm
Publicform
FunctionAddItem(Key,Value)
OnErrorResumeNext
DimTempStr
Ifform=Then
form=Key+=+Server.URLEncode(Trim(Value))
Else
form=form+&+Key+=+Server.URLEncode(Trim(Value))
EndIf
EndFunction
EndClass
FunctionOpenXHttp(QuUrl,QuStr)
SetXML=CreateObject(Microsoft.XMLHTTP)
XML.OpenGET,QuUrl&?&QuStr,False
XML.SetRequestHeaderContent-Type,application/x-
XML.Send
IsSuccess=XML.Responsebody
XML.Abort()
SetXML=Nothing
SetBytesStream=CreateObject(ADODB.Stream)
BytesStream.Type=2
BytesStream.Open
BytesStream.WriteTextIsSuccess
BytesStream.Position=0
BytesStream.Charset=GB2312
BytesStream.Position=2
StringReturn=BytesStream.ReadText
BytesStream.Close
SetBytesStream=Nothing
OpenXHttp=StringReturn
EndFunction
声明截取的范围
FunctionGetKey(HTML,Start,Last)
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
EndFunction
FunctionSearchT(byvalstrdomain,byvalkey,byvalt)
keys=site:&strdomain&&key
SetReg=NewPostForm
Ift=baiduthen
callReg.AddItem(wd,keys)
callReg.AddItem(cl,3)
SearchT=OpenXHttp(Url,Reg.form)
SetReg=Nothing
IfInstr(SearchT,百度一下，找到相关网页)<>0then
Response.write<fontcolor=red>有&GetKey(SearchT,百度一下，找到相关网页,篇)&条相关信息</font>
百度一下，找到相关网页1篇
elseifInstr(SearchT,抱歉，没有找到与)<>0then
Response.write无相关信息
endif
Endif
EndFunction
%>
<!DOCTYPEhtmlPUBLIC-//W3C//DTDXHTML1.0Transitional//EN
<htmlxmlns=
<head>
<metahttp-equiv=Content-Typecontent=text/html;charset=gb2312/>
<title>空间商信息查询系统</title>
<Script>
functioninput_ok()
{form1.Submit.style.display=none;tit.style.display=block;returntrue;}
</Script>
</head>
<body>
<tablewidth=100%border=0cellpadding=0cellspacing=0>
<tr>
<tdwidth=49%valign=top><tableborder=0cellspacing=0cellpadding=0>
<formaction=method=postname=form1id=form1>
<tr>
<tdcolspan=2><fontsize=5>空间商信息查询系统</font></td>
</tr>
<tr>
<tdcolspan=2>使用办法：直接输入域名或者对方网站的名称即可！</td>
</tr>
<tr>
<tdcolspan=2><tableborder=0cellspacing=0cellpadding=3>
<tr>
<td>网站访问域名</td>
<td><inputname=strdomaintype=textid=strdomainvalue=<%=request.Form(strdomain)%>/></td>
<td><selectname=st>
<optionvalue=baidu>百度</option>
</select>
</td>
<tdwidth=100><inputtype=submitname=Submitvalue=查询accesskey=Sonclick=returninput_ok()/>
<divstyle=display:noneid=tit><fontcolor=#FF0000>请稍候
<marqueedirection=rightwidth=20scrollamount=3>
……
</marquee>
</font></div></td>
</tr>
</table></td>
</tr>
<tr>
<tdheight=25colspan=2>本搜索将只在一页显示所有结果，数据过多将较为耗时．</td>
</tr>
<tr>
<tdwidth=20valign=top><inputtype=checkboxname=checkboxvalue=checkboxonclick=showadv()/></td>
<tdwidth=426valign=topid=advancev>是否采用默认关键字、词</td>
</tr>
<tr>
<tdcolspan=2valign=topid=advvvstyle=DISPLAY:nonename=advvv><textareaname=zffcols=50rows=20wrap=virtual><%=Replace(ff,,,chr(13))%></textarea></td>
</tr>
<tr>
<tdcolspan=2valign=top></td>
</tr>
</form>
</table></td>
<tdwidth=51%valign=top><%ifrequest.Form()<>then%>
<tableborder=0align=centercellpadding=5cellspacing=0>
<tr>
<tdwidth=100>关键字</td>
<tdwidth=150>结果</td>
<tdwidth=80></td>
</tr>
</table>
<%Fori=0toubound(split(ff,,))%>
<tableborder=0align=centercellpadding=5cellspacing=0>
<tr>
<tdwidth=100><%=split(ff,,)(i)%></td>
<tdwidth=150><%CallSearchT(Request.Form(strdomain),split(ff,,)(i),Request.Form(st))%></td>
<tdwidth=80><%ifrequest.Form(st)=baiduthen%>
<ahref=详细</a>
<%endif%>
</td>
</tr>
</table>
<%Next%>
<tableborder=0align=centercellpadding=5cellspacing=0>
<tr>
<td>共查询关键字词<%=ubound(split(ff,,))+1%>个．</td>
</tr>
</table>
<%endif%>
</td>
</tr>
</table>
<scriptlanguage=JavaScripttype=text/javascript>
<!--
functionshowadv(){
if(document.form1.checkbox.checked==true){
document.getElementById(advvv).style.display=block;
}else{
document.getElementById(advvv).style.display=none;
document.getElementById(advancev).innerHTML=默认关键字、词;
}
}
//-->
</script>
落伍【请教高手】
</body>
</html>