本系统google关键词搜索查询工具,为站长提供详细相关关键字查询。如遇查询失败，请多刷新几次即可。程序开发：阿里查询
<% If request("do")<>"" Then %>
<%
dim dos
dos=request("do")
function getHTTPPageutf8(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPageutf8=bytesToBSTR(Http.responseBody,"utf-8")
set http=nothing
if err.number<>0 then err.Clear
end function
'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function GetKey(HTML,Start,Last)
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
End Function
Url="http://www.google.cn/search?hl=zh-CN&q="&request("do")
Html = getHTTPPageutf8(Url)
'获取指定页面的全部数据
On Error Resume Next
start=Instr(html," | ")
body=mid(html,start+26,over-start-1)
'
''替换界面中的HTML代码
body=replace(body,"style=""padding-left:1em"">","")
body=replace(body,"","#kws#")
%>
<% End If %>
搜索不到相关的关键字，可以使用GOOGLE英文的高级关键字版本！点进进入 |
baidu相关关键字
google趋势图