常用搜索引擎关键字转换!

原创 2004年07月25日 17:12:00

 Public Function GetSearchKeyword(RefererUrl) '搜索关键词
  on error resume next
  Dim re
  Set re = New RegExp
  re.IgnoreCase = True
  re.Global = True
  Dim a,b,j
  re.Pattern = "(" _
   & "google.+?q=([^&]*)" & "|sina.+?word=([^&]*)" _
   & "|sohu.+?query=([^&]*)" & "|163.+?q=([^&]*)" _
   & "|yahoo.+?p=([^&]*)" & "|baidu.+?word=([^&]*)" _
   & "|openfind.+?q=([^&]*)" & "|lycos.+?query=([^&]*)" _
   & "|aol.+?query=([^&]*)" & "|onseek.+?keyword=([^&]*)" _
   & "|3721/.com.+?p=([^&]*)" & "|search/.tom.+?word=([^&]*)" _
    & ")"
  Set a = re.Execute(RefererUrl)
  If a.Count>0 then
   Set b = a(a.Count-1).SubMatches
   For j=1 to b.Count
    If Len(b(j))>0 then GetSearchKeyword=b(j) : Exit Function
   Next
  End If
  if err then
  err.clear
  GetSearchKeyword = RefererUrl
  else
  GetSearchKeyword = ""  
  end if  
 End Function

UTF-8类型:比如google

<%Function utf8code(strUtf)
'将单个的utf字符串,转换成gb汉字,
l=len(strutf)/9
for i=1 to l
  astr=left(strutf,9)
  if i=l then
  strutf=""
  else
  strutf=mid(strutf,10,(l-i+1)*9)
  end if

dim iCode,iCode1,iCode2

iCode=Mid(astr,2,2)
iCode1=Mid(astr,5,2)
iCode2=Mid(astr,8,2)

iCode="&h"&iCode
iCode1="&h"&iCode1
iCode2="&h"&iCode2

iiCode=(iCode And &h0f)
iiCode1=(iCOde1 And &h3f)
iiCode2=(iCode2 And &h3f)

st=ChrW((iiCode*2^12) OR (iiCode1*2^6) OR iiCode2) '编码转换算法程序,测试通过
utf8code=utf8code&st
next
End Function%>

16进制转换10进制

<% Function ten(num)
  for i=1 to len(num)
   temp=mid(num,i,1)
   if trim(temp)="A"  then
    temp=10
   elseif trim(temp)="B"  then
    temp=11
   elseif trim(temp)="C"  then
    temp=12
   elseif trim(temp)="D"  then
    temp=13
   elseif trim(temp)="E"  then
    temp=14
   elseif trim(temp)="F"  then
    temp=15
   end if
   cf=len(num)-i
   sum=sum+cint(temp)*(16^cf)
  next
  ten=sum
 end Function

'转换搜索引擎关键字比如3721,baidu.163等
 Function fn(st)
  js1=cdbl(ten(mid(st,2,2))*256)
  js2=cdbl(ten(mid(st,5,2)))
  js=cdbl(js1)+cdbl(js2)
  js=js-65536
  fn=chr(js)
 end Function%>

<%function naf(str)
l=Len(str)/6
for j=1 to l
  hz=left(str,6)
  if j=l then
  str=""
  else
  str=mid(str,7,(l-j+1)*6)
  end if
  naf=naf&fn(hz)
next
end function%>

'3721,baidu,等关键字的乱码转换方法

<SCRIPT language="VBScript">
Function URLEncoding(vstrIn)
    strReturn = ""
    For i = 1 To Len(vstrIn)
        ThisChr = Mid(vStrIn,i,1)
        If Abs(Asc(ThisChr)) < &HFF Then
            strReturn = strReturn & ThisChr
        Else
            innerCode = Asc(ThisChr)
            If innerCode < 0 Then
                innerCode = innerCode + &H10000
            End If
            Hight8 = (innerCode  And &HFF00)/ &HFF
            Low8 = innerCode And &HFF
            strReturn = strReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)
        End If
    Next
    URLEncoding = strReturn
End Function

</ScRIPT>

PHP获取搜索引擎关键词

有时候我们需要知道用户通过哪个搜索引擎,通过拿个关键词访问我们页面,当然js也可以实现,这里介绍下php的实现代码,包含(百度、谷歌、雅虎、搜狗、搜搜、必应、有道)几大搜索引擎的获取方法。//获取来自...
  • php_80
  • php_80
  • 2015-02-03 17:19:19
  • 854

常用搜索引擎使用技巧

指定站内搜索使用site指定在某网站内搜索如只在知乎中搜索 liuwons : liuwons site:zhihu.com精确匹配使用双引号来指定精确匹配单词或短语如精确搜索 liuwons : "...
  • tobacco5648
  • tobacco5648
  • 2016-05-19 13:56:59
  • 7343

如何选择我的搜索引擎关键字?

三大搜索引擎帐户均已开通,终于要开始激动人心的广告设置,为什么要激动人心?倘若你不是单纯专注于技术本身的话,在我看来这个过程将是对你综合经验的考验,需要你对产品行业的专业、网络营销技术的专业及对品牌在...
  • angel22
  • angel22
  • 2007-03-01 23:23:00
  • 963

搜索引擎对关键字堆砌的识别

搜索引擎和搜索引擎优化(SEO)一直是一对矛盾,合理的优化有助于搜索引擎对网站内容的识别,有助于网站的推广。然而有正面,就有反面,一些SEOers通过各种欺骗手段来欺骗搜苏引擎,以期达到增加页面收录数...
  • tgw2000
  • tgw2000
  • 2015-01-20 16:50:09
  • 526

如何爬取搜索引擎下某个关键字对应的所有网站?

http://www.baidu.com/s?wd=关键字&pn=750 在源代码上找到pageNum的值,就是页码数。
  • Hpu_A
  • Hpu_A
  • 2016-04-21 19:24:47
  • 1136

JS获取搜索引擎关键词

function isURL(url) { return (/^(http(s?))\:\/\/([0-9a-zA-Z\-]+\.)+[a-zA-Z]{2,6}(\:[0-9]+)?([\/\?]\...
  • Mradxz
  • Mradxz
  • 2014-01-16 00:07:19
  • 2438

在搜索引擎中搜索关键字得到的结果页数的获取技巧

有时候我们用爬虫来爬取搜索引擎时,想获取在搜索引擎中搜索关键字得到的结果页数,总不能一页一页的翻下去吧。。。 所以可以采用下面的技巧来获得: 如,我们在百度搜索引擎中搜索“无极道”这个关键字,想知道结...
  • zhihaoma
  • zhihaoma
  • 2015-12-31 18:17:36
  • 625

用QT写一个搜索引擎思路

首先通过http协议向某个门户网站发送请求,然后对方服务器发回我所需的html页面,然后通过分析提取它中间的关键字,URL,还有内容,接着建立数据库通过存入数据库后用户输入关键字找到相关的词条返回UR...
  • Lina_ACM
  • Lina_ACM
  • 2016-07-20 09:49:14
  • 831
收藏助手
不良信息举报
您举报文章:常用搜索引擎关键字转换!
举报原因:
原因补充:

(最多只允许输入30个字)