用ASP写Base64编码数据到文件

 function WriteBase64File(fileName, content)
  Dim xml
  Set xml=Server.CreateObject("MSXML2.DOMDocument")
  Dim stm
  Set stm=Server.CreateObject("ADODB.Stream")
  Set root = xml.createElement("tif")
  root.text = content
  root.dataType = "bin.base64"
  stm.Type=1
  stm.Open
  stm.Write root.nodeTypedValue
  stm.SaveToFile Server.MapPath(fileName)
  stm.Close
  Set root = Nothing
  Set xml=Nothing
  Set stm=Nothing
 end function