asp空间奸商查询系统


看到很多朋友无缘无故的被骗,特发布此查询系统,以免再次上当!
使用方法非常简单:
直接输入对方的域名或者网站名称,支持中英文!点查询即可

复制代码 代码如下:

<%@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>



相关阅读:
在Linux操作系统下安装与运行GAMIT软件
关于Windows 7 RTM的所有消息
点击图片,AJAX删除后台图片文件的实现代码(asp.net)
一直复略了的一个问题,关于表单重复提交
Silverlight4 VS Flex4 打印功能大比拼
PHP环境快读搭建绿色软件包PHPnow
统计分析Web服务器日志
MSSQL 生成日期列表代码
基于jquery的多彩百分比 动态进度条 投票效果显示效果实现代码
一个很酷的拖动层的js类,兼容IE及Firefox
初学javascript之cookie篇(4)
发现的以前不知道的函数
滚动条代码生成器
用ASP显示ACCESS数据库的的GIF图象
快速导航
PHP MySQL HTML CSS JavaScript MSSQL AJAX .NET JSP Linux Mac ASP 服务器 SQL jQuery C# C++ java Android IOS oracle MongoDB SQLite wamp 交通频道 作文范文 为了我的梦想作文 雪花飘呀作文600字 夜走秦岭深处 帮妈妈作家务 地球妈妈流泪了作文 新学期研究生入党申请书范本 就算世界没有童话 还好吗,儿时伙伴 未来的雨伞作文300字 给恋人的生日经典祝福语 慢慢来,请别急,生活终将为你备好所有的答 各民族的民风民俗 番茄炒鸡蛋作文 心*光 秦殇——秦始皇陵兵马俑游记 小学四年级作文400字:五一趣事——煎荷包蛋 人口计生干部第二批群众路线教育实践活动心得体会 乡镇人员个人工作总结范文 保险公司上半年财产险业务工作总结 风中的鹈鹕 职场励志电视剧 《加减人生》 读思路决定出路心得体会 暑假实践日志 贴鼻子——陈沭阳 感恩非难事作文600字 社团活动总结模板 白衣飘飘的年代作文 歌头 2017年大学生创业项目计划书 爱祖国高于一切——《小英雄雨来》观后感作文1200字 小学国庆节英语作文: National Day 《梦想的翅膀》读后感作文800字 小学五年级作文1000字:寒假中的回念 Ⅰ 争先创优工作总结6篇 一句话正能量短句 寂寞天空请微笑——致我亲爱的朋友们 小学六年级作文550字:我眼中的大自然 我将把你藏在心里 很错很错你 诠释人生的四个字 蚂蚁大战甲虫350字 二姐出嫁作文500字 亲子运动会日记350字 假如有机会,我一定还会来参加的 “祖国在我心中”演讲稿作文600字 霍兰德代码决定你的未来 我为李鸿章平反作文600字 三月的记忆作文1000字 在全区计划生育卫生工作会议上的讲话 酒店销售部经理述职报告

Copyright © 2016 phpStudy |