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
'Declare the range of interceptions
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, find the relevant webpage") <> 0 then
Response. Write "<font color = Red> available" & getkey (searcht, "Baidu click, find related webpage", "article") & "Related Information </font>"
'Baidu: 1 related webpage
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">
<HTML xmlns = "http://www.w3.org/1999/xhtml">
<Head>
<Meta http-equiv = "Content-Type" content = "text/html; charset = gb2312"/>
<Title> Geospatial Information Query System </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"> Geospatial Information Query System </font> </TD>
</Tr>
<Tr>
<TD colspan = "2"> usage: Enter the domain name or the website name of the other party! </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 = "100"> <input type = "Submit" name = "Submit" value = "query" accesskey = "S" onclick = "Return input_ OK ()"/>
<Div style = "display: none" id = "tit"> <font color = "# ff0000"> Please wait.
<Marquee direction = "right" width = "20" scrollamount = "3">
......
</Marquee>
</Font> </div> </TD>
</Tr>
</Table> </TD>
</Tr>
<Tr>
<TD Height = "25" colspan = "2"> This search will only display all results on one page, and excessive data consumption will be relatively time-consuming. </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"> use of default keywords and words </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"> keywords </TD>
<TD width = "150" type = "codeph" text = "codeph"> result </TD type = "codeph" text = "/codeph">
<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 "> details </a>
<% End if %>
</TD>
</Tr>
</Table>
<% Next %>
<Table border = "0" align = "center" cellpadding = "5" cellspacing = "0">
<Tr>
<TD> total query keyword <% = 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 and words (each keyword is separated by a carriage return or a half-width comma )";
} Else {
Document. getelementbyid ("advvv"). style. Display = "NONE ";
Document. getelementbyid ("advancev"). innerhtml = "Default keyword, word ";
}
}
// -->
</SCRIPT>
Outdated [consult experts]
</Body>
</Html>
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
