utf-8转换gb2312编码,解决统计google搜索来源关键字乱

上一帖《用Adsense挣大钱三部曲》  下一帖《GoogleAdSense违规行为集锦》

　　网上购物、在线购物、购物搜索 欢迎光临本站购买图书、影视、音乐、数码、百货，手机等商品。

　　解决了GOOGLE乱码的问题,原因是GOOGLE是以utf-8编码提交查询的关键词,通过判断来源是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 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
　　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

解决了GOOGLE乱码的问题,原因是GOOGLE是以utf-8编码提交查询的关键词,通过判断来源是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 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 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

 

标签: gb2312  google  utf  关键  字乱  搜索  来源  统计  编码  解决  转换  

上一帖《用Adsense挣大钱三部曲》  下一帖《GoogleAdSense违规行为集锦》

 

 

相关文章

• Illustrator教程：如何用网格工具绘制花瓣(2)
• Illustrator渐变网格初学实例:叶片制作(2)
• Illustrator cs教程：打造3D效果玻璃杯(2)
• Illustrator教程：教你绘制烟灰缸(2)
• Photoshop调出照片个性的青红色(2)
• Photoshop教程：运用滤镜制作魔方背景变形金刚壁纸(2)
• Photoshop给侧光图片的简单调色及美化(2)
• Illustrator教程：如何用网格工具绘制花瓣(1)
• Illustrator渐变网格初学实例:叶片制作(1)
• Illustrator教程：渐变网格工具绘玫瑰花