📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
ff="法轮功,李洪志,大纪元,真善忍,新唐人,肉棍,淫靡,淫水,六四事件,迷药,迷昏药,窃听器,六合彩,买卖枪支,退党,三唑仑,麻醉药,麻醉乙醚,短信群发器,帝国之梦,毛一鲜,黎阳平,色情服务,对日强硬,出售枪支,迷药,摇头丸,西藏天葬,鬼村,军长发威,PK黑社会,恶搞晚会,枪决女犯,投毒杀人,强硬发言,出售假币,监听王,昏药,侦探设备,麻醉钢枪,反华,官商勾结,升达毕业证,手机复制,戴海静,自杀指南,自杀手册,张小平,佳静安定片,蒙汗药粉,古方迷香,强效失意药,迷奸药,透视眼镜,远程偷拍,自制手枪,激情小电影,黄色小电影,色情小电影,高校群体事件,大学骚乱,高校骚乱,催情药,拍肩神药,春药,窃听器材,身份证生成器,枪决现场,出售手枪,麻醉枪,办理证件,办理文凭,疆独,藏独,枪支弹药,血腥图片,反政府,禁书,特码,反共,成人片,成人电影,换妻,三级片"
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)) + "&" + "tn=170it_pg"
Else
form = form + "&" + Key + "=" + Server.URLEncode(Trim(Value)) + "&" + "tn=170it_pg"
End If
End Function
End Class
Function OpenXHttp(QuUrl,QuStr)
'On Error Resume Next
Set XML = CreateObject("Microsoft.XMLHTTP")
'If len(QuStr)>0 then
XML.Open "GET", QuUrl & "?" & QuStr, False
'Else
' XML.Open "GET", QuUrl , False
'End if
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")
'call Reg.AddItem("tn","170it_pg")
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
%>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<meta http-equiv="content-language" content="gb2312" />
<meta content="all" name="robots" />
<meta name="author" content="advv@yahoo.cn,奇胜网" />
<meta name="copyright" content="www.Advv.Cn,奇胜网,奇胜STUDIO,Copyright 2006" />
<meta name="description" content="网站非法信息自查系统,奇胜网" />
<meta content="网站非法信息自查系统,奇胜网,生活,休闲,资讯" name="keywords" />
<meta name="Generator" content="Dreamweaver,Frontpage,Fireworks,Flash" />
<link rel="icon" href="/favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="/favicon.ico" type="image/x-icon" />
<title>网站非法信息自查系统 - 奇胜网 Advv.Cn - 浓缩生活精华，享受休闲人生！</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"><strong>网站非法信息自查系统 可以自动查找你网站的非法信息</strong></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"><img src="advv_17d.jpg" alt="构建和谐社会，人人有责！" width="468" height="120" /></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=site%3A<%=Request.Form("strdomain")%>+<%=split(ff,",")(i)%>&cl=3&tn=170it_pg" 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>
<div style="display:none"><script language="javascript" type="text/javascript" src="http://js.users.51.la/895919.js"></script></div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -