ASP读JPG/PNG/BMP图片转base64位数据，可实现上传功能。

Cheng_ASP

已于 2022-11-27 21:13:41 修改

阅读量1.4k

点赞数 2

文章标签： ASP 图片处理 Base64编码上传服务器存储

于 2022-11-26 23:01:11 首次发布

本文链接：https://blog.csdn.net/u011289462/article/details/128058690

版权

ASP读JPG/PNG/BMP图片转base64位数据，可实现上传功能。图片转成base64数据，上传服务端。并由服务端转成图片并存储

以下是图片读取，并转成Base64的代码。

文件名：img2base64.asp

<%@codepage=65001%>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8">
<%
Function ImagesToBase64(FileName)
  Dim xml
  Dim root
  Dim fs
  Dim FilePath
  Dim objStream
  Dim objXMLDoc
  Dim Base64
  ''定义变量完结
  '创建对像
  FilePath=Server.MapPath(FileName)
  getFileExt = Mid(FilePath, InstrRev(FilePath, ".") + 1)	'获取文件扩展名，此时可加入判断，非图片的不传，需要的自行处理。
  Set objXMLDoc=Server.CreateObject("msxml2.FreeThreadedDOMDocument")
      '设定生成XML文档的根为 Base64Data
      objXMLDoc.loadXML "<?xml version='1.0'?><Base64Data />"
  Set fs = Server.createObject("Scripting.FileSystemObject") ''服务器需要FSO组件
  If fs.FileExists(FilePath) Then '判断File文件是否存在