百度风云榜搜索前50名钩子源码

概述发表于中国站长站（Chinaz.com）论坛的贴子。 可在页面任何地方调用，调用方法<!--#include file= baidutop50.asp --> 据发表人说可有效提高网站在搜索引擎中的排名。 baidutop50.asp源代码： <%dim url,pa...

发表于中国站长站（Chinaz.com）论坛的贴子。

可在页面任何地方调用，调用方法<!--#include file="baIDutop50.asp"-->

据发表人说可有效提高网站在搜索引擎中的排名。

baIDutop50.asp源代码：

<%
dim url,page,rr,i,cutpage,str
'on error resume next
 Function gethttpPage(url)
 'on error resume next
  dim http
  set http=Server.createobject("Microsoft.XMLhttp")
  http.open "GET",url,false
  http.send()
  if http.readystate<>4 then
   exit function
  end if
  gethttpPage=bytesToBSTR(http.responseBody,"GB2312")
  set http=nothing
  if err.number<>0 then err.Clear 
 End function
  
 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
'===================================================
url="http://top.baidu.com/top_keyword.html"
page= gethttpPage(url)
cutpage=split(page,"<td wIDth="&chr(34)&"124"&chr(34)&">")
str=""
for i=1 to ubound(cutpage)
rr=instr(cutpage(i),"</td>")
str=str&mID(cutpage(i),1,rr-1)&" "
next
str=replace(replace(str,"<div align="&chr(34)&"center"&chr(34)&">",""),"</div>","")
response.Write("<marquee direction='up' height='1' wIDth='1' ID='xp' scrollamount='1' scrolldelay='100' wIDth='100%' align='center' border='0'><b>"&str&"</b></marquee>")
%>

总结

以上是内存溢出为你收集整理的百度风云榜搜索前50名钩子源码全部内容，希望文章能够帮你解决百度风云榜搜索前50名钩子源码所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。