See many friends for no reason to be cheated, special release this inquiry system, lest again fooled!
Directly input each other's domain name or website, support in English and Chinese! Point Query can
<% @LANGUAGE = "VBSCRIPT" codepage= "936"%>
<%
On Error Resume Next
Ff= "Rubbish, is rubbish, liar, shameless, do not buy, cheat money, rubbish space, the best in rubbish, rubbish in rubbish, often drop line, close for no reason"
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
' Declaring the scope of the interception
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, "Baidu Click, find Related page") <>0 Then
Response.Write "<font color=red> has" &getkey (Searcht, "Baidu Click, find relevant Web page", "article") & "Information </font>"
' Baidu Click to find the relevant page 1 articles
ElseIf Instr (Searcht, "Sorry, not found with") <>0 then
Response.Write "No relevant information"
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 ">
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 "/>
<title> Space Business Information Query system </title>
<Script>
function Input_ok ()
{Form1. Submit.style.display= ' None '; tit.style.display= ' block '; return true;}
</Script>
<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" > Space Business Information Query system </font></td>
</tr>
<tr>
<TD colspan= "2" > How to: Directly enter the domain name or the other side of the site can be! </td>
</tr>
<tr>
<TD colspan= "2" ><table border= "0" cellspacing= "0" cellpadding= "3" >
<tr>
<td> website Access domain name </td>
<td><input name= "Strdomain" type= text "id=" Strdomain "value=" <%=request. Form ("Strdomain")%> "/></td>
<td><select name= "St" >
<option value= "Baidu" > Baidu </option>
</select>
</td>
<TD width= "><input type=" "Submit" name= "submit" value= "Query" accesskey= "S" onclick= "return Input_ok ()"/>
<div style= Display:none id= > <font color= #FF0000 > Please wait
<marquee direction= "Right" width= "scrollamount=" 3 ">
......
</marquee>
</font></div></td>
</tr>
</table></td>
</tr>
<tr>
<TD height= colspan= "2" > This search will only show all results on one page, and too much data will be time-consuming. </td>
</tr>
<tr>
<TD width= "valign=" "Top" ><input type= "checkbox" name= "checkbox" value= "checkbox" onclick= "Showadv ()" ></td>
<TD width= "426" valign= "Top" id= "Advancev" > whether to use the default keyword, word </td>
</tr>
<tr>
<TD colspan= "2" valign= "Top" id= "ADVVV" style= "Display:none" name= "ADVVV" ><textarea name= "Zff" cols= "M" = "wrap=" "virtual" ><%=replace (FF, ",", CHR)%></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= > Keywords </td>
<TD width= > Results </td>
<TD width= > </td>
</tr>
</table>
<%for i=0 To UBound (split (FF, ","))%>
<table border= "0" align= "center" cellpadding= "5" cellspacing= "0" >
<tr>
<TD width= "><%=split" (FF, ",") (i)%></td>
<TD width= "><%call" Searcht (Request.Form ("Strdomain"), Split (FF, ",") (i), Request.Form ("St"))%></ Td>
<TD width= "><%if" request. Form ("st") = "Baidu" then%>
<a href= "Http://www.baidu.com/s?wd=<%=Request.Form (" Strdomain ")%>+<%=split (FF,", ") (i)%>&cl=3 "target=" _blank > Detail </a>
<%end if%>
</td>
</tr>
</table>
<%Next%>
<table border= "0" align= "center" cellpadding= "5" cellspacing= "0" >
<tr>
<td> a total of query key words <%=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= "Custom keywords, words (each keyword separated by a carriage return or half-width comma)";
}else{
document.getElementById ("ADVVV"). Style.display = "None";
document.getElementById ("Advancev"). Innerhtml= "Default keyword, word";
}
}
-->
</script>
Outdated "Consult Master"
</body>
