关闭

用ASP写Base64编码数据到文件

863人阅读 评论(0) 收藏 举报
 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
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:125492次
    • 积分:1849
    • 等级:
    • 排名:千里之外
    • 原创:58篇
    • 转载:13篇
    • 译文:0篇
    • 评论:11条
    文章分类
    最新评论