base64 でエンコードされた data をデコードします。

Function base64_decode(data)

    Dim obj
    set obj=server.createobject("basp21")
    base64_decode = obj.Base64(data,1)
    set obj = nothing

    'BASP21を使用しない場合
'    Dim ST, DM, EL
'    Dim bin
' 
'    Set DM = CreateObject("Microsoft.XMLDOM")
'    Set EL = DM.createElement("tmp")
'    EL.DataType = "bin.base64"
'    EL.Text = Base64Text
'    bin = EL.NodeTypedValue
' 
'    Set ST = CreateObject("ADODB.Stream")
'    ST.Open
'    ST.Charset = "Shift-JIS"
'    ST.Type = adTypeBinary
'    ST.Write bin
'    ST.Position = 0
'    ST.Type = adTypeText
'    base64_decode = ST.ReadText
'    ST.Close

End Function

• GitHubで見る

引数

data = mixed デコードされるデータ。

戻り値

もとのデータを返します。
失敗した場合は FALSE を返します。 返り値はバイナリになることもあります。

処理

・base64 でエンコードされた data をデコードします。

• GitHubで編集