关于bin.base64和bin.hex和urlencode的编码比较及ASP解码

时间:2008-10-07 12:23:33  来源:第二电脑网上收集  作者:

  第二电脑网导读:的可以算算是不是。因此base64在网络传输编码中应用的最广泛。谈谈解码。按照普通的思路做ASP解码很复杂的(其他语言就一个函数,这就是我们为什么要放弃asP的原因)想想有没有什么变通的方法?用XMLDOM!Dim objXmlFile,objXmleSet objXmlFile = Server.CreateObject("Microsoft.XMLDOM...
  正文: 源文件是UTF8编码,长度44907
经过bin2hex编码得到长度90882
经过base64_encode编码得到长度60588
经过urlencode编码得到长度76909

以上可以看出,base64编码相对于其他编码来说都小,官方说,这种编码数据量大33%,有兴趣的可以算算是不是。
因此base64在网络传输编码中应用的最广泛。

谈谈解码。
按照普通的思路做ASP/ target=_blank class=infotextkey>asp解码很复杂的(其他语言就一个函数,这就是我们为什么要放弃asP的原因)
想想有没有什么变通的方法?
用XMLDOM!

Dim objXmlFile,objXmle
Set objXmlFile = Server.CreateObject("Microsoft.XMLDOM")
objXmlFile.loadXML("<r xmlns:dt=""urn:schemas-microsoft-com:datatypes""><e dt:dt=""bin.hex"">"&STR&"</e></r>")
'http://www.dc9.cn 'sipo 2007-4-11制作
Set objXmle=objXmlFile.documentElement.selectSingleNode("e")
Call SaveToFileBin(BlogPath & newEspamFile ,objXmle.nodeTypedvalue)  

Function SaveToFileBin(p,c)
    Dim objStream
    Set objStream = CreateObject("ADODB.Stream")
    With objStream
    .Type = 1
    .Mode = 3
    .Open
    .Write c
    .SaveToFile p,2
    .Close
    End With
    Set objStream = Nothing
    SaveToFileBin=True
End Function  



上面的bin.hex换成bin.base64就可以解base64的了
这比写一大堆云山雾罩的函数简单多了吧?

关于bin.base64和bin.hex和urlencode的编码比较及ASP解码》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/ASP/2008-10-07/3505.html


关键字:

关于《关于bin.base64和bin.hex和urlencode的编码比较及ASP解码》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td