|
看到很多朋友无缘无故的被骗,特发布此查询系统,以免再次上当! 使用方法非常简单: 直接输入对方的域名或者网站名称,支持中英文!点查询即可 复制代码 代码如下: <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% On Error Resume Next ff="垃圾,是垃圾,骗子,无耻,不要买,骗钱,垃圾空间,垃圾中的极品,垃圾中的垃圾,经常掉线,无缘无故的关闭" if Request.Form("checkbox")<>"" then ff=Replace(Replace(request.Form("zff")," ",""),chr(13),",") End if
if request.Form("st")="baidu" then Url="http://www.baidu.com/s/" End if Class PostForm Public form
Function AddItem(Key, Value) 'On Error Resume Next Dim TempStr If form = "" Then form = Key + "=" + Server.URLEncode(Trim(Value)) Else form = form + "&" + Key + "=" + Server.URLEncode(Trim(Value)) End If End Function
End Class
Function OpenXHttp(QuUrl,QuStr)
Set XML = CreateObject("Microsoft.XMLHTTP") XML.Open "GET", QuUrl & "?" & QuStr, False XML.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded" XML.Send IsSuccess = XML.Responsebody XML.Abort() Set XML = Nothing Set BytesStream = CreateObject("ADODB.Stream") BytesStream.Type = 2 BytesStream.Open BytesStream.WriteText IsSuccess BytesStream.Position = 0 BytesStream.Charset = "GB2312" BytesStream.Position = 2 StringReturn = BytesStream.ReadText BytesStream.Close Set BytesStream = Nothing OpenXHttp = StringReturn End Function
'声明截取的范围 Function GetKey(HTML,Start,Last) filearray=split(HTML,Start) filearray2=split(filearray(1),Last) GetKey=filearray2(0) End Function
Function SearchT(byval strdomain,byval key,byval t) keys="site:"&strdomain&" "&key Set Reg = New PostForm If t="baidu" then call Reg.AddItem("wd",keys) call Reg.AddItem("cl","3") SearchT = OpenXHttp (Url,Reg.form) Set Reg = Nothing If Instr(SearchT,"百度一下,找到相关网页")<>0 then Response.write "<font color=red>有"&GetKey(SearchT,"百度一下,找到相关网页","篇")&"条相关信息</font>" '百度一下,找到相关网页1篇 elseif Instr(SearchT,"抱歉,没有找到与")<>0 then Response.write "无相关信息" end if End if End Function %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>空间商信息查询系统</title> <Script> function input_ok() {form1.Submit.style.display='none';tit.style.display='block';return true;} </Script> </head>
<body> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="49%" valign="top"><table border="0" cellspacing="0" cellpadding="0"> <form action="" method="post" name="form1" id="form1"> <tr> <td colspan="2"><font size="5">空间商信息查询系统</font></td> </tr> <tr> <td colspan="2">使用办法:直接输入域名或者对方网站的名称即可!</td> </tr> <tr> <td colspan="2"><table border="0" cellspacing="0" cellpadding="3"> <tr> <td>网站访问域名</td> <td><input name="strdomain" type="text" id="strdomain" value="<%=request.Form("strdomain")%>"/></td> <td><select name="st"> <option value="baidu">百度</option> </select> </td> <td width="100"><input type="submit" name="Submit" value="查询" accesskey="S" onclick="return input_ok()"/> <div style="display:none" id="tit"> <font color="#FF0000">请稍候 <marquee direction="right" width="20" scrollamount="3"> …… </marquee> </font></div></td> </tr> </table></td> </tr> <tr> <td height="25" colspan="2">本搜索将只在一页显示所有结果,数据过多将较为耗时.</td> </tr> <tr> <td width="20" valign="top"><input type="checkbox" name="checkbox" value="checkbox" onclick="showadv()" /></td> <td width="426" valign="top" id="advancev">是否采用默认关键字、词</td> </tr> <tr> <td colspan="2" valign="top" id="advvv" style="DISPLAY: none" name="advvv"><textarea name="zff" cols="50" rows="20" wrap="virtual"><%=Replace(ff,",",chr(13))%></textarea></td> </tr> <tr> <td colspan="2" valign="top"> </td> </tr> </form> </table></td> <td width="51%" valign="top"><%if request.Form()<>"" then%> <table border="0" align="center" cellpadding="5" cellspacing="0"> <tr> <td width="100">关键字</td> <td width="150">结果</td> <td width="80"> </td> </tr> </table> <%For i=0 to ubound(split(ff,","))%> <table border="0" align="center" cellpadding="5" cellspacing="0"> <tr> <td width="100"><%=split(ff,",")(i)%></td> <td width="150"><%Call SearchT(Request.Form("strdomain"),split(ff,",")(i),Request.Form("st"))%></td> <td width="80"><%if request.Form("st")="baidu" then%> <a href="http://www.baidu.com/s?wd=<%=Request.Form("strdomain")%>+<%=split(ff,",")(i)%>&cl=3" target="_blank">详细</a> <%end if%> </td> </tr> </table> <%Next%> <table border="0" align="center" cellpadding="5" cellspacing="0"> <tr> <td>共查询关键字词<%=ubound(split(ff,","))+1%>个.</td> </tr> </table> <%end if%> </td> </tr> </table> <script language="JavaScript" type="text/javascript"> <!-- function showadv(){
if (document.form1.checkbox.checked == true) { document.getElementById("advvv").style.display = "block"; document.getElementById("advancev").innerHTML="自定义关键字、词(每个关键词用回车分隔或半角逗号分隔)"; }else{ document.getElementById("advvv").style.display = "none"; document.getElementById("advancev").innerHTML="默认关键字、词"; }
} //--> </script> 落伍【请教高手】 </body> </html>
|
|