现在我查找“大连海事大学”得到编码是
http://www.google.com/search%3Fas_q%3D%26num%3D100%26hl%3Dzh-CN%26newwindow%3D1%26btnG%3DGoogle%2B%25E6%2590%259C%25E7%25B4%25A2%26as_epq%3D%25E5%25A4%25A7%25E8%25BF%259E%25E6%25B5%25B7%25E4%25BA%258B%25E5%25A4%25A7%25E5%25AD%25A6%26as_oq%3D%26as_eq%3D%26lr%3D%26as_ft%3Di%26as_filetype%3D%26as_qdr%3Dall%26as_occt%3Dany%26as_dt%3Di%26as_sitesearch%3D%26as_rights%3D&hl=zh-CN"
里面很多的编码我不用理会,我发现"大连海事大学"被转化代码为
%25E5%25A4%25A7%25E8%25BF%259E%25E6%25B5%25B7%25E4%25BA%258B%25E5%25A4%25A7%25E5%25AD%25A6
其中里面的%25 恐怕是编码固定给加上去的!E5 A4 A7 共同决定一个“大” 字,如果改变E5 就会得到不一样的字! 不知道是怎么得出这样的编码的!我也没有去搜索,不知道该怎么写关键字,呵呵
所以问问大家,有没有知道的?拜托了
http://www.google.com/search%3Fas_q%3D%26num%3D100%26hl%3Dzh-CN%26newwindow%3D1%26btnG%3DGoogle%2B%25E6%2590%259C%25E7%25B4%25A2%26as_epq%3D%25E5%25A4%25A7%25E8%25BF%259E%25E6%25B5%25B7%25E4%25BA%258B%25E5%25A4%25A7%25E5%25AD%25A6%26as_oq%3D%26as_eq%3D%26lr%3D%26as_ft%3Di%26as_filetype%3D%26as_qdr%3Dall%26as_occt%3Dany%26as_dt%3Di%26as_sitesearch%3D%26as_rights%3D&hl=zh-CN"
里面很多的编码我不用理会,我发现"大连海事大学"被转化代码为
%25E5%25A4%25A7%25E8%25BF%259E%25E6%25B5%25B7%25E4%25BA%258B%25E5%25A4%25A7%25E5%25AD%25A6
其中里面的%25 恐怕是编码固定给加上去的!E5 A4 A7 共同决定一个“大” 字,如果改变E5 就会得到不一样的字! 不知道是怎么得出这样的编码的!我也没有去搜索,不知道该怎么写关键字,呵呵
所以问问大家,有没有知道的?拜托了
解决方案 »
- 如何用VBScript获取本地电脑IP和名称?
- 从本地access库修改数据后上传到远程sql server库里,请教阿
- 请教各位前辈:一个对数据集的使用问题...
- vb生成Exe问题,急!
- vb里的datareport数据报表,我怎么样才能只打印我需要的记录呢?
- 我刚学完QBASIC,现在要学VB.NET好呢还是先学VB6.0?
- 怎样建立一个DBF文件?
- 谁知道vb6.0打开一个文件时,出现非法操作是怎么一回事.
- 如何让MSHFlexGrid滚动时第一列数据不动?
- timer控件在程序中起什么作用?
- 如何关闭在进程中的WINWORD.EXE?小弟的代码如下,总是不能关闭进程中的WINWORD
- compute (CDbl(Trim(disTxt.Text)))这个函数怎么用呢
Dim strReturn As String, ThisChr As String
Dim i As Integer, InnerCode As Long
Dim Hight8, Low8
strReturn = ""
For i = 1 To Len(vIn)
ThisChr = Mid(vIn, 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用这个函数可以把“大连海事大学”编码成%B4%F3%C1%AC%BA%A3%CA%C2%B4%F3%D1%A7
href="https://www.google.com/accounts/Login?continue=http://www.google.com/search%3Fas_q%3D%26num%3D100%26hl%3Dzh-CN%26newwindow%3D1%26btnG%3DGoogle%2B%25E6%2590%259C%25E7%25B4%25A2%26as_epq%3D%25E5%25A4%25A7%25E8%25BF%259E%25E6%25B5%25B7%25E4%25BA%258B%25E5%25A4%25A7%25E5%25AD%25A6%26as_oq%3D%26as_eq%3D%26lr%3D%26as_ft%3Di%26as_filetype%3D%26as_qdr%3Dall%26as_occt%3Dany%26as_dt%3Di%26as_sitesearch%3D%26as_rights%3D&hl=zh-CN"
里面包括所有的高级搜索的参数!我在网上搜索到一个人的问题,可是没有人回答,不过他比我厉害点,呵呵,知道的比我多
引用——》》》》》》》》》》》》》》》》》》》》》》》》》》》》》
我在google上搜索 "你好" 地址栏上会有q=%E4%BD%A0%E5%A5%BD
(我的webconfig 文件配置:编码格式都是gb2312的。)
我现在要做的就是把上面的编码转换为中文:
我用Server.UrlDecode(str)方法转换百度的编码,没问题,输出结果为"你好"
然而我用同样的方法转换google的就不行. 我知道google是采用utf-8格式编码的,百度应该是gb2312的吧.
后来我把webconfig 编码格式改成为utf-8,再利用Server.UrlDecode(str)方法转换,结果就相反了,
google上的能正确转换了,而百度上的就不行了。
请问各位大哥,有什么方法帮小弟解决这个问题吗?谢谢啦
-------》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》
你给的函数我也用了,好象算法不对口呵呵
用原代码粘帖到ie地址栏还是可以还原的
比如:我输入
http://www.google.com/search%3Fas_q%3D%26num%3D100%26hl%3Dzh-CN%26newwindow%3D1%26btnG%3DGoogle%2B%25E6%2590%259C%25E7%25B4%25A2%26as_epq%3D%25E5%25A4%25A7%25E8%25BF%259E%25E6%25B5%25B7%25E4%25BA%258B%25E5%25A4%25A7%25E5%25AD%25A6%26as_oq%3D%26as_eq%3D%26lr%3D%26as_ft%3Di%26as_filetype%3D%26as_qdr%3Dall%26as_occt%3Dany%26as_dt%3Di%26as_sitesearch%3D%26as_rights%3D&hl=zh-CN"
google 就会给我查处关于大连海事大学的相关站点