News Contents
信息中心

【asp】Base64编码转化为图片

发表日期:2019/4/30      浏览次数:

<%  


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.jpg"    ‘’‘’‘图片保存路径


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  




%>



盛大建站承接个人、公司、企业的网站建设、网页设计、网店制作、独立商城制作、外贸网站制作,也承接同行介绍的业务,欢迎联系!
本站承接主要业务如下:
1、提供免备案虚拟主机(网站空间),有独立国内服务器、高速美国服务器、香港服务器、韩国服务器、日本服务器,>> http://www.fuanxx.com
2、网站建设:个人网店制作、企业建站、公司网站、新闻、下载等;论坛、博客网站搭建,承接外贸英文站制作
3、承接阿里巴巴、京东、淘宝、天猫等的商品数据采集
4、网站防钓鱼,可以过360、QQ、搜狗、金山、微信拦截
5、要就发IP网站限制访问系统,防止同行抄袭并保障海外客户访问不受影响,>> http://www.198ip.com
  下一篇:没有了!
十年如一日,我们专注于提供高品质 定制网站建设服务!
您的信任,我们的责任,期待与您的合作!