首页 > 编程 > ASP > 正文

asp base64编码中文

2024-05-04 11:07:28
字体:
来源:转载
供稿:网友
在网上找了很久,终于找到一个可以用的!
 
<%
 
 
 
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
 
    End With
 
    Set xml_dom = Nothing
 
End Function
 
 
 
Function Gb2312_Stream(sString)
 
 
 
    Dim dr
 
    Set dr = CreateObject("ADODB.Stream")
 
    With dr
 
        .Mode = 3
 
        .Type = 2
 
        .open
 
        .Charset = "gb2312"
 
        .WriteText sString
 
        .position = 0
 
        .Type = 1
 
        Gb2312_Stream = .Read
 
        .Close
 
    End With
 
    Set dr = Nothing  www.vevb.com
 
End Function
 
 
 
Function Stream_GB2312(sStream)
 
    Dim dr
 
    Set dr = CreateObject("ADODB.Stream")
 
    With dr
 
        .Mode = 3
 
        .Type = 1
 
        .open
 
        .Write sStream
 
        .position = 0
 
        .Type = 2
 
        .Charset = "gb2312"
 
        Stream_GB2312 = .ReadText
 
        .Close
 
    End With
 
    Set dr = Nothing
 
End Function
 
%> 
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表