热门：支持分辨率解决方法控制属性启动升级平台推荐步骤模式查询运行空间文件夹鼠标图标重启联想检查状态调整服务菜单类型提示

asp将base64的图片信息，转为图片显示,并保存到指定路径

2023-10-21 12:04:17

asp将base64的图片信息，转为图片显示,并保存到指定路径

<%

dim content,user_serial,path

Dim xml : Setxml=Server.CreateObject("MSXML2.DOMDocument")

Dim stm : Setstm=Server.CreateObject("ADODB.Stream")

xml.resolveExternals=False

user_serial=Request("u_4") ’‘’人员编号

content=unescape(Request("u_5")) ‘’‘base64位加密的图片信息

path="../photo/webservice/"&user_serial&"_temp.webp" ‘’‘’‘图片保存路径

xml.loadXML("<?xmlversion=""1.0""encoding=""gb2312""?><data>"&content&"</data>") ‘’’’’加载xml文件中的内容，使用xml解析出

xml.documentElement.setAttribute"xmlns:dt","urn:schemas-microsoft-com:datatypes"

xml.documentElement.dataType ="bin.base64"

stm.Type=1 'adTypeBinary

stm.Open

stm.Writexml.documentElement.nodeTypedValue

stm.SaveToFileServer.MapPath(path) ‘’’’’文件保存到指定路径

response.Write(path)

stm.Close

Set xml=Nothing

Set stm=Nothing


%>

路径图片显示文件转为

推荐阅读