您现在的位置:计算机技术学习网 > 技术中心 > WEB编程 > ASP >

asp base64编码中文

来源:未知 责任编辑:责任编辑 发表时间:2013-11-18 20:55 点击:
在网上找了很久,终于找到一个可以用的!
 
<%
 
 
 
Function base64Encode(sString)
 
    If sString = "" or IsNull(sString) Then
 
        base64Encode = ""
 
        Exit Function
 
    End If
 
    Dim xml_dom, Node
 
    Set xml_dom = CreateObject("Microsoft.XMLDOM")
 
 
 
    With xml_dom
 
        .loadXML ("<?xml version='1.0' ?> <root/>")
 
        Set Node = xml_dom.createElement("MyText")
 
        With Node
 
            .dataType = "bin.base64"
 
            .nodeTypedValue = Gb2312_Stream(sString)
 
            base64Encode = .Text
 
        End With
 
        xml_dom.documentElement.appendChild Node
 
    End With
 
    Set xml_dom = Nothing
 
End Function
 
 
 
Function base64uncode(sString)
 
    If sString = "" or IsNull(sString) Then
 
        base64uncode = ""
 
        Exit Function
 
    End If
 
    Dim xml_dom, Node
 
    Set xml_dom = CreateObject("Microsoft.XMLDOM")
 
    With xml_dom
 
        .loadXML ("<?xml version='1.0' ?> <root/>")
 
        Set Node = xml_dom.createElement("MyText")
 
        With Node
 
            .dataType = "bin.base64"
 
            .Text = sString
 
            base64uncode = Stream_GB2312(.nodeTypedValue)
 
        End With
 
        xml_dom.documentElement.appendChild Node
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
用户名: 验证码:点击我更换图片
最新评论 更多>>

推荐热点

  • WAP常见问题问答大全(四)
  • ASP开发必备:WEB打印代码大全
  • ASP调用系统ping命令
  • asp缓存技术
  • ASP教程:第三篇 ASP基础
  • 用ASP+XML打造留言本(4)
  • 关于ASP Recordset 分页出现负数解决方法及建议
  • 用asp怎样编写文档搜索页面(5)
  • ASP处理多关键词查询实例代码
网站首页 - 友情链接 - 网站地图 - TAG标签 - RSS订阅 - 内容搜索
Copyright © 2008-2015 计算机技术学习交流网. 版权所有

豫ICP备11007008号-1