asp空間奸商查詢系統(tǒng)
更新時間:2007年10月15日 12:07:53 作者:
看到很多朋友無緣無故的被騙,特發(fā)布此查詢系統(tǒng),以免再次上當!
使用方法非常簡單:
直接輸入對方的域名或者網(wǎng)站名稱,支持中英文!點查詢即可
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
On Error Resume Next
ff="垃圾,是垃圾,騙子,無恥,不要買,騙錢,垃圾空間,垃圾中的極品,垃圾中的垃圾,經(jīng)常掉線,無緣無故的關閉"
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,"百度一下,找到相關網(wǎng)頁")<>0 then
Response.write "<font color=red>有"&GetKey(SearchT,"百度一下,找到相關網(wǎng)頁","篇")&"條相關信息</font>"
'百度一下,找到相關網(wǎng)頁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>空間商信息查詢系統(tǒng)</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">空間商信息查詢系統(tǒng)</font></td>
</tr>
<tr>
<td colspan="2">使用辦法:直接輸入域名或者對方網(wǎng)站的名稱即可!</td>
</tr>
<tr>
<td colspan="2"><table border="0" cellspacing="0" cellpadding="3">
<tr>
<td>網(wǎng)站訪問域名</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">本搜索將只在一頁顯示所有結(jié)果,數(shù)據(jù)過多將較為耗時.</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">結(jié)果</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 >詳細</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>
使用方法非常簡單:
直接輸入對方的域名或者網(wǎng)站名稱,支持中英文!點查詢即可
復制代碼 代碼如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
On Error Resume Next
ff="垃圾,是垃圾,騙子,無恥,不要買,騙錢,垃圾空間,垃圾中的極品,垃圾中的垃圾,經(jīng)常掉線,無緣無故的關閉"
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,"百度一下,找到相關網(wǎng)頁")<>0 then
Response.write "<font color=red>有"&GetKey(SearchT,"百度一下,找到相關網(wǎng)頁","篇")&"條相關信息</font>"
'百度一下,找到相關網(wǎng)頁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>空間商信息查詢系統(tǒng)</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">空間商信息查詢系統(tǒng)</font></td>
</tr>
<tr>
<td colspan="2">使用辦法:直接輸入域名或者對方網(wǎng)站的名稱即可!</td>
</tr>
<tr>
<td colspan="2"><table border="0" cellspacing="0" cellpadding="3">
<tr>
<td>網(wǎng)站訪問域名</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">本搜索將只在一頁顯示所有結(jié)果,數(shù)據(jù)過多將較為耗時.</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">結(jié)果</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 >詳細</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>
相關文章
ASP開發(fā)中可能遇到的錯誤信息中文說明大全(整理收集)
ASP開發(fā)中可能遇到的錯誤信息中文說明大全(整理收集)...2007-03-03Asp Conn.execute的參數(shù)與返回值總結(jié)
這篇文章主要介紹了Asp Conn.execute的參數(shù)與返回值總結(jié),數(shù)據(jù)庫對象的execute方法參數(shù)與返回值總結(jié),需要的朋友可以參考下2014-07-07ASP關于編碼的幾個有用的函數(shù)小結(jié)(utf8)
UTF8轉(zhuǎn)GB2312將UTF8編碼文字轉(zhuǎn)換為GB編碼文字,UTF8編碼文字將轉(zhuǎn)換為漢字的代碼,需要的朋友可以參考下。2011-05-05用asp實現(xiàn)把文件打包成Xml文件包,帶解包的ASP工具附下載
用asp實現(xiàn)把文件打包成Xml文件包,帶解包的ASP工具附下載...2007-06-06P3P 和 跨域 (cross-domain) cookie 訪問(讀取和設置)
在IE 里面跨域去設置 cookie跨域的實現(xiàn),嘗試了n中方法都不行,查了一下資料,可以通過設置header中的p3p值來實現(xiàn),真不錯:)2009-06-06