google关键字解码函数

原创 2006年06月22日 16:42:00

在做网站统计时,有时要统计来自google的关键词,就要对google关键词进行解码。如下函数可以实现此功能。

<%  
  function   UTF2GB(UTFStr)    
        for   Dig=1   to   len(UTFStr)    
                if   mid(UTFStr,Dig,1)="%"   then    
                        if   len(UTFStr)   >=   Dig+8   then    
                                GBStr=GBStr   &   ConvChinese(mid(UTFStr,Dig,9))    
                                Dig=Dig+8    
                        else    
                                GBStr=GBStr   &   mid(UTFStr,Dig,1)    
                        end   if    
                else    
                        GBStr=GBStr   &   mid(UTFStr,Dig,1)    
                end   if    
        next    
        UTF2GB=GBStr    
  end   function    
  function   ConvChinese(x)    
        A=split(mid(x,2),"%")    
        i=0    
        j=0    
           
        for   i=0   to   ubound(A)    
                A(i)=c16to2(A(i))    
        next    
                   
        for   i=0   to   ubound(A)-1    
                DigS=instr(A(i),"0")    
                Unicode=""    
                for   j=1   to   DigS-1    
                        if   j=1   then    
                                A(i)=right(A(i),len(A(i))-DigS)    
                                Unicode=Unicode   &   A(i)    
                        else    
                                i=i+1    
                                A(i)=right(A(i),len(A(i))-2)    
                                Unicode=Unicode   &   A(i)    
                        end   if    
                next    
                   
                if   len(c2to16(Unicode))=4   then    
                        ConvChinese=ConvChinese   &   chrw(int("&H"   &   c2to16(Unicode)))    
                else    
                        ConvChinese=ConvChinese   &   chr(int("&H"   &   c2to16(Unicode)))    
                end   if    
        next    
  end   function    
  function   c16to2(x)    
        i=0    
        for   i=1   to   len(trim(x))    
                tempstr=   c10to2(cint(int("&h"   &   mid(x,i,1))))    
                do   while   len(tempstr)<4    
                tempstr="0"   &   tempstr    
                loop    
                c16to2=c16to2   &   tempstr    
        next    
  end   function    
   
  function   c10to2(x)    
        mysign=sgn(x)    
        x=abs(x)    
        DigS=1    
        do    
                if   x<2^DigS   then    
                        exit   do    
                else    
                        DigS=DigS+1    
                end   if    
        loop    
        tempnum=x    
           
        i=0    
        for   i=DigS   to   1   step-1    
                if   tempnum>=2^(i-1)   then    
                        tempnum=tempnum-2^(i-1)    
                        c10to2=c10to2   &   "1"          
                else    
                        c10to2=c10to2   &   "0"    
                end   if    
        next    
        if   mysign=-1   then   c10to2="-"   &   c10to2    
  end   function    
  function   c2to16(x)    
        i=1    
        for   i=1   to   len(x)     step   4    
                c2to16=c2to16   &   hex(c2to10(mid(x,i,4)))    
        next    
  end   function    
           
  function   c2to10(x)    
        c2to10=0    
        if   x="0"   then   exit   function    
        i=0    
        for   i=   0   to   len(x)   -1    
                if   mid(x,len(x)-i,1)="1"   then   c2to10=c2to10+2^(i)    
        next    
  end   function    
   
   
  response.write   UTF2GB("google%E7%9A%84%E5%85%B3%E9%94%AE%E8%AF%8D%E7%BC%96%E7%A0%81%E6%96%B9%E5%BC%8F")  
   
  %>

版权声明:本文为博主原创文章,未经博主允许不得转载。

百度搜索中关键字的编码方法和解码方法http://community.csdn.net/Expert/TopicView3.asp?id=5744800

百度的编码:str = System.Web.HttpUtility.UrlEncode("中文", System.Text.UnicodeEncoding.GetEncoding("GB2312")...
  • cuoguo1111
  • cuoguo1111
  • 2007年09月26日 10:58
  • 1772

使用Google的ZXing库实现编解码二维码

导入包 1.首先建立一个实现LuminanceSource的类 /** * @FileName: BufferedImageLuminanceSource.java * @Author * @D...
  • xxssyyyyssxx
  • xxssyyyyssxx
  • 2016年07月02日 00:25
  • 2067

使用google进行关键字搜索的域名采集。

这里是对 “茶叶“ 关键字进行自动采集,并保存和打印相关域名。 下面例子是搜索google上面的茶叶相关网站的前2页得例子 # -*- coding: utf-8 -*- import...
  • yatere
  • yatere
  • 2012年03月13日 23:57
  • 1151

Base64系列第四篇 C/C++中使用Base64编码解码(从chromium库中抽取)

本篇《Base64系列第四篇 C/C++中使用Base64编码解码(从chromium库中抽取)》将从大名鼎鼎的chromium库抽取代码,保证健壮高效的完成Base64编码解码。...
  • MoreWindows
  • MoreWindows
  • 2013年10月29日 10:34
  • 31525

html5 百度 google地图定位关键字搜索附近

body, html, #allmap {             width: 100%;             height: 100%;             overflow: hidde...
  • Java_lilin
  • Java_lilin
  • 2016年07月08日 11:29
  • 1023

Google play ASO 关键字指南

一篇 Google play ASO 入门指南:译文一篇, 原文地址: https://www.apptamin.com/blog/aso-google-play-app-optimization...
  • CoderYue
  • CoderYue
  • 2017年04月21日 11:43
  • 3050

关键字,操作符和函数区别

1:关键字 所谓关键字就是已被:语言本身使用, 不能作其它用途使用的字。 2:操作符 操作符是在表达式中用于连接不同对象的运算符,不同的操作符指定了不同的运算方式。 可以把操作符理解为语言...
  • farmwang
  • farmwang
  • 2017年09月16日 15:00
  • 338

js函数关键字

函数定义语句:function  函数名 (参数) {执行语句块]; 调用函数是可以传入任意多的参数而不影响函数调用。 arrguments关键词 js的函数内部有一个关键词arguments,这个关...
  • weixin_40006523
  • weixin_40006523
  • 2017年09月30日 16:40
  • 535

JavaScript 使用关键字 function 定义函数

JavaScript 使用关键字 function 定义函数 函数可以通过声明定义,也可以是一个表达式。 函数声明 在之前的教程中,你已经了解了函数声明的语法 : ? ...
  • qq_33377330
  • qq_33377330
  • 2017年08月21日 14:54
  • 448

优化关键字 征服Google搜索

 我的题目是:优化关键字 征服Google搜索保您的网站针对您所选的关键字返回结果,最好的方法是将这些关键字包括在您的网页中。我们的抓取工具会分析索引中网页的内容,以确定与其相关性最强的搜索查询。如果...
  • valevese
  • valevese
  • 2009年03月30日 13:18
  • 152
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:google关键字解码函数
举报原因:
原因补充:

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