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

原创 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>

搜索引擎关键字智能提示的一种实现

原文链接:点击打开链接 问题背景 搜索关键字智能提示是一个搜索应用的标配,主要作用是避免用户输入错误的搜索词,并将用户引导到相应的关键词上,以提升用户搜索体验。 美团CRM系...
  • nmgzywd
  • nmgzywd
  • 2015年09月19日 11:55
  • 1010

搜索引擎使用方法

google 在制定网站搜索  “关键字 site:网址 ”
  • techtitan
  • techtitan
  • 2014年03月15日 17:33
  • 1332

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

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

java常用关键字

以后突然忘记也不用百度了,经常看一遍,久而久之就知道了 abstract:抽象的,用在类的声明中来指明一个类是不能被实例化的,但是可以被其他类继承。一个抽象类可以使用抽象方法,抽象方法不需要实现,但是...
  • sunOpar
  • sunOpar
  • 2016年01月25日 20:09
  • 1244

关于搜索引擎及其开发

关于搜索引擎及其开发 作者:xwjbs  来自:http://blog.csdn.net/xwjbs   转载的时候请注明作者和出处。没有作者的允许,严禁用于商业利益。   托google、...
  • guguituzi
  • guguituzi
  • 2014年07月20日 10:37
  • 410

几种搜索引擎算法

1.引言    万维网WWW(World Wide Web)是一个巨大的,分布全球的信息服务中心,正在以飞快的速度扩展。1998年WWW上拥有约3.5亿个文档[14],每天增加约1百万的文档[6],...
  • Lixam
  • Lixam
  • 2014年10月08日 09:06
  • 8204

SQL 常用关键字

//create database(创建数据库) create database my_db //创建表 create table user( id int(11) not null...
  • lbxoqy
  • lbxoqy
  • 2017年04月19日 23:45
  • 701

搜索引擎指令

1 、双引号 “洛克菲勒”  代表所有包含洛克菲勒这个关键词的网页 2 、减号 洛克 -菲勒  代表所有包含洛克这个关键词的网页但不包含菲勒  洛克后面加空格 3 、星号 搜索*擎   *代表通配...
  • hong0220
  • hong0220
  • 2015年08月09日 16:25
  • 1043

python搜索引擎之搜索系统的建立——根据关键字命中次数排分给出前若干个答案

根据前面的博客建立了如下的各种索引库的表: 1.词典(对每个关键字分配一个 wordId) 词典放在命名为 backwardTableDb.db 中的 wordIdTable 中,见部...
  • Virtual_Func
  • Virtual_Func
  • 2015年11月13日 00:09
  • 578

几种常见的搜索引擎检索模型

布尔模型苹果 AND 公司:表示搜索既包含“苹果”,又包含“公司”这两个词的文档。 苹果 OR 公司:表示搜索包含“苹果”,或包含“公司”这两个词中任意一个的文档。 特点:简单粗暴向量空间模型把文...
  • a345017062
  • a345017062
  • 2016年05月14日 10:24
  • 4710
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:常用搜索引擎关键字转换!
举报原因:
原因补充:

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