asp空间奸商查询系统
程序员文章站
2022-06-21 22:51:50
看到很多朋友无缘无故的被骗，特发布此查询系统，以免再次上当！ 使用方法非常简单： 直接输入对方的域名或者网站名称，支持中英文！点查询即可 复制代码 代码如下:<%@l...
看到很多朋友无缘无故的被骗，特发布此查询系统，以免再次上当！
使用方法非常简单：
直接输入对方的域名或者网站名称，支持中英文！点查询即可
<%@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>
使用方法非常简单：
直接输入对方的域名或者网站名称，支持中英文！点查询即可
复制代码 代码如下:
<%@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>
上一篇： Java程序动态编译Java源文件