梦想在远方

 Function base64_img(byval s,byval f)
        If InStr(s,"base64,") > 0 Then
          s = Mid(s,InStr(s,"base64,")+7)
        End If
        Set b64 = Server.CreateObject("Msxml2.DOMDocument").createElement("a")
        Set Stream = Server.CreateObject("ADODB.Stream")
        b64.dataType = "bin.base64"
        b64.Text = s
        With Stream
        .Type     = 1
        .Open
        .Write b64.nodeTypedValue
        .SaveToFile Server.MapPath(f),2
        .Close 
        End With
        Set Stream = Nothing 
        Set b64 = Nothing 
End Function