Skip to content

Instantly share code, notes, and snippets.

@wangye

wangye/CBase64.vbs

Created March 7, 2012 02:34
Show Gist options
  • Save wangye/1990522 to your computer and use it in GitHub Desktop.
Save wangye/1990522 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. wangye revised this gist Mar 7, 2012. 1 changed file with 5 additions and 5 deletions.
    10 changes: 5 additions & 5 deletions CBase64.vbs
    View file
    Original file line number Diff line number Diff line change
    @@ -1,8 +1,8 @@
    //
    // Description: Base64 encode and decode
    // Author: wangye <pcn88 at hotmail dot com>
    // Website: http://wangye.org
    //
    '
    ' Description: Base64 encode and decode
    ' Author: wangye <pcn88 at hotmail dot com>
    ' Website: http://wangye.org
    '
    Class CBase64
    Private objXmlDom
    Private objXmlNode
  2. wangye created this gist Mar 7, 2012.
    100 changes: 100 additions & 0 deletions CBase64.vbs
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,100 @@
    //
    // Description: Base64 encode and decode
    // Author: wangye <pcn88 at hotmail dot com>
    // Website: http://wangye.org
    //
    Class CBase64
    Private objXmlDom
    Private objXmlNode

    ' GetObjectParam() 这个函数实现参考了开源项目PJBlog
    Private Function GetObjectParam()
    On Error Resume Next
    Dim Temp
    GetObjectParam = "Microsoft.XMLDOM"
    Err = 0
    Dim TmpObj
    Set TmpObj = Server.CreateObject(GetObjectParam)
    Temp = Err.Number
    If Temp = 1 Or Temp = -2147221005 Then
    GetObjectParam = "Msxml2.DOMDocument.5.0"
    End If
    Err.Clear
    Set TmpObj = Nothing
    Err = 0
    End Function

    Private Sub Class_Initialize()
    Set objXmlDom = Server.CreateObject(GetObjectParam())
    End Sub

    Private Sub Class_Terminate()
    Set objXmlDom = Nothing
    End Sub

    Public Function encode(AnsiCode)
    encode = ""
    Set objXmlNode = objXmlDom.createElement("tmp")
    objXmlNode.datatype = "bin.base64"
    objXmlNode.nodeTypedvalue = AnsiCode
    encode = objXmlNode.Text
    Set objXmlNode = Nothing
    End Function

    Public Function decode(base64Code)
    On Error Resume Next
    decode = ""
    Set objXmlNode = objXmlDom.createElement("tmp")
    objXmlNode.datatype = "bin.base64"
    objXmlNode.Text = base64Code
    decode = objXmlNode.nodeTypedvalue
    Set objXmlNode = Nothing
    If Err Then
    Err.Clear
    End If
    End Function

    ' 以下函数编码字符串
    Public Function encodeText(ByVal str)
    On Error Resume Next
    Dim ado, r: r = ""
    If str <> "" Then
    Set ado = Server.CreateObject("ADODB.Stream")
    With ado
    .Charset = "gb2312"
    .Type = 2
    If .State = 0 Then .Open
    .WriteText str
    .Position = 0
    .Type = 1
    r = encode(.Read(-1))
    .Close
    End With
    Set ado = Nothing
    End If
    If Err Then Err.Clear: r = ""
    encodeText = r
    End Function

    ' 以下函数解码字符串
    Public Function decodeText(ByVal str)
    On Error Resume Next
    Dim ado, r: r = ""
    If str <> "" Then
    Set ado = Server.CreateObject("ADODB.Stream")
    With ado
    .Charset = "gb2312"
    .Type = 1
    If .State = 0 Then .Open
    .Write (decode(str))
    .Position = 0
    .Type = 2
    r = .ReadText(-1)
    .Close
    End With
    Set ado = Nothing
    End If
    If Err Then Err.Clear: r = ""
    decodeText = r
    End Function
    End Class