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 交通频道 作文范文 城区工程建设指挥部关于重点道路工程收尾工作的情况汇报 相拥鼓励,实现梦想 初三学生入团志愿书300字 奏起晨之心曲 美女过敏症 “三八”妇女节讲话 军训总结作文450字 轻握一份懂得,带着明媚温暖前行 班级文艺汇演发言稿 赛尔号,雷伊 玛斯战争 念你的心绪象那无序的雨丝纷飞… 写于凌晨 小学议论文800字:探索 海宴小说作品中的经典语录 2015庆祝教师节演讲稿 我的初中生活(一)_900字 才发现这么微不足道 商场物业管理合同 多想想父母】 2016年党员创先争优活动公开承诺书 湖南岳阳高考零分作文范文800字 春风无语醉乡愁 I am waiting for a hug .hug all my uneasiness 环境教育工作计划(精选4篇) 秀才与小偷(穿越)系列3 怎么写好安全生产工作总结 《复活》读后感1000字 感恩话题作文600字 十九岁的包袱 创建五好党委事迹材料_事迹材料 开心事作文500字 年会小品剧本;鬼子进村 世俗与婚姻 今生难得有情人 如果感觉很辛苦那么不妨停下来休息一下 夜伴孤灯写清愁 对不起我的良知,对不起我的病人 回到21世纪 学生获奖感言 营销与策划专业毕业生求职信范文 愿你所到之处,遍地阳光 暗恋——没有勇气,只能是浓浓的暗恋 “醋坛子”丢丢 在全市规范化服务型政府(机关)建设监督员聘任会上的讲话 变作文150字 描写“昆虫”的好句 新年火辣辣作文 办公室文职求职信范文 为青春喝彩:民政局工作人员爱岗奉献演讲二则

Copyright © 2016 phpStudy |