asp将base64编码的图片信息还原为图片

　　asp将base64编码的图片信息还原为图片，可以将得到的base64编码的图片内容保存为一个xml文件（或者组合成下面贴出的xml格式的字符串，此时注意xml组件调用的方法不同于xml文件），通过MSXML2.DOMDocument+ADODB.Stream保存为图片文件。

　　base.xml文件内容

    <?xml version="1.0" encoding="gb2312"?>  
    <data>  
    <![CDATA[iVBORw0KGgoAAAANSUhEUgAAAQ4AAAEsCAYAAAAy1V2YAAAJCElEQVR42u3dDYobORAG0Nwpd8qdcqfcaReziBRFSSp192SD/R6YhFnPxLNYn6XS37dvAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAME//FW8IxEcCA4EB4IDBIfgAMEhOEBwCA4QHAgOBAeCA8GB4ADBIThAcAgOEBwIDgQHggPBgeAAwSE4QHAIDhAcCA4EB4IDwYHgAMEhOEBwCA4QHP+3X796z/v58/dDcCA4mo3r1WB+/Pjd0F5/xkf1/Nej0zDzz3rqsQuC1+/TeY2v//567ut/n+BAcBwEx/fv/z1GwxmNKX5t1tBWDTP+7Nfz899XX1s9p3pdOTg6zxtmv6vgQHBsGlnucYzGVPU4uo0yPnf8G3cfIzxW//boFXV7EYIDwXHY26gazSo4YtBc/fl3ahaz13VnuCI4EByHvY3Xt8Xexq7Bx+95Ijh2NYv8uk56O516yGnvRHDw0cERG0wOgdkne6xvjLCJMxL5031WPzkZ+owezvj5sx5S7AnNHnlIFnscsX5SPbozNIKDtw6O0dByCIwGlmsTIxRGIxuPWLTc9VxiCFSFzKpx5qCqnlu9rtmj+nc6wXGhN+IdyfsFR2xo+dM8z2DE8Ih/r8JnNVSpCrGxJxDrEtX372Z7rkzlGqogOA5rGzE4qsJiHmJUsy9VL2JV48hTuVWwjF5BDpqT4uhpiCqOIjiaC57Go1PjiPWQ2MBWja4KjlzTmAXDCK8YbLt6SGfRmuCAw+CIoRGHJLNFXiM48vdVQ4mqBzAbWsQez6rmsVqYtqqHzGaCZlOzVo4iOA6mR2PhcfW8OGyIX7saHLMgquov8Wd3ZmCqesuqhvH0WhPBwdsOVfLwYzSYGA65OFoVN6u6R3eqddbI4/flxr4Lqly8raZ0q15NDKmTpe2Cg4+bVclTnbExx/UQsQHnYuho4LMhQGc9yGxoEWdrums+ZjWV8fPiTE5n6ra70E1w8JHBET+Jc0POn9bxezqrQmc1jvhJPxtaVDWVqkexWhI/XkP8N3bTrw/tmPWO5D2DI68crfah5B5G/J6rwRHXbuQFXnljXHx9swVgq017I+Di79SpaZwsrRcc6HF869cHZjWKVXDk2kZu6HFoVBVku2EVF6ntah6d/zeCA8HR6HGMT//cyHJ9YvWJ3Fn5mbfy5zCKX4srW7sLwPIw5TQ49DgQHM0ex65IGGsUu3Mx8srQWS9ldvhO7DHs9rXMttbH6edObaZTBxEc6HH8qFeHVkXCqsfRHark2Y1qd+vq/IzdUCWuEK1mTuJqVT0OeLDHMduynleQxp2xq+nYatHY1fMzZtOxsWibgyLv7s0F3nwsQN68p8eB4Gj0OHaLuXKP5GR37F2rYUZVSN393nlpe14EpseB4Dg4yGfWYKvzLPKise5JYqfHBcbFaKsl7qe/dzyAKP5pVgXBcaMAGBv/qjeyWjp+t8eR6xXdqxnubKPPNQ4ngCE4mud9nj5v9um+KqCe/JynNqF1XlPsgehxIDj4U7wjERwIDgQHggP+/uDo1AziOouT9R1P1nMEB4LjsICZl3qvzu88KXh2TxKvDuKJu1uvFke7y8xnr11wIDgaqzF3d8fmjWtXFpvtXks8O2M1FXwy/Xp3dkdwIDj+mTfM3f0lV9ZmdG64n52ufqfR5+Xj8Xc8uX9FcCA4Nis7d5dOX1mE1VmJuQuOq79f3ruyenQ27wkOPjo4OpdOr4Ljzr6YagNdtW0+1zjiYrDOAq58hmr+eXmr/UOhITh4z+DIB+ec9ETyRrfq0un89bjPJH59tv099zhmW+RPQ7GzH+ehFarekbxncHQunc6f9rMTwqs6SdXgc8OvtrOv7lKpQqpT19ht6f+CS5m8I3mv4KiuJ4i9jOqukdWl07OdsbHXkbfk7643uFIcrS56iiePrWaJHhyiCA7eMzjyoTe57jCboq0acHd9RGc6NvZ4rgTH7HSv2PvJvZlVqAgOBMekt7G6O7a6iyQ3vCeDo7o3JX7tZBftqmeRr2b4gtAQHLxPcMwune4UR69cOt2Zjs3nhM4WgOUh0p1t/g9PuwoO3j84Yld+1Zhn1xrcDY48LKrOMM09nTjMuNvg88/7wpWk3pG811AlDz/yvSr5/M18udFocLtLp6vgqA4Q3vU48knpVw71yRdNP3wzveDg/Yujs+FD59Lp3BNZ1R/ywq48FTs7ajBvcru65DyGW542zmtJqsVhTgBDcDQKlru7Y/OGsdWNaLOFW92b3/I6jtPduDH0rj5unHAuOPi8Hsfu7tj4yb27HCl+knf2qlztceQl67tVpjGY8tceWtfhHcln9ThmwZEb565B5/Ued6djV/9OXJuSe0SnNY0HbqoXHHxejyNfOr27AvJKY8zXLow/Z7MqMahWt7nl/TLdWZ/dDJDgQHAsehyz8X7VCznZ21HdQZunWatp0jx9mjfLXTk24CQ4DFUQHJvDdfJelLuXTu8O8qkOz1mdABZfQ+ewnavBYaiC4Gg0kFVx9M6l01eWnD95AlgMotkxAHm3bSzkCg4ER2MsP7vKMZ9XMRr26k7ZqyeAzbbnXw2OvPDs9BQwwYHguNCYZ2d35J7EbGt9Pl2rExxP9jjywUOdR97Dc7HO4R3JZwxVdsOH1aXT1TLwamjzVes4OntzrtQ4FEcRHIt9K088b9YIu8u3Z1OqVy+ujscDnATH+L6b+1m8I3nP4Pgb/eHb1mxyQ3AgOEBwCA4QHIIDBId6ieBAcAgMwYHgQHCA4BAcIDgEBwgOBAeCA8GB4EBwgOAQHCA4BAcIDgQHggPBgeBAcIDgEBwgOAQHCA7BAYIDwYHgQHAgOBAcIDgEBwAAAAAAAAAAAAAAAAAAAADAo/4F6+HmEPy+t9QAAAAASUVORK5CYII=]]>  
    </data>

　　asp将base64编码的图片信息存储为图片

Dim xml : Set xml=Server.CreateObject("MSXML2.DOMDocument")   
Dim stm : Set stm=Server.CreateObject("ADODB.Stream")   
xml.resolveExternals=False
''''''''''''''''''方式1，从文件加载base64图片编码信息
xml.load Server.MapPath("base.xml")
''''''''''''''''''方式1结束
'''''''''''''''''方式2，加载xml格式的字符串，字符串格式如上面贴出来的base.xml内容
'xmlStr="......格式同上面的"
'xml.loadXML(xmlStr)
''''''''''''''''''方式2结束


xml.documentElement.setAttribute "xmlns:dt","urn:schemas-microsoft-com:datatypes"   
xml.documentElement.dataType = "bin.base64"   
stm.Type=1 'adTypeBinary   
stm.Open   
stm.Write xml.documentElement.nodeTypedValue   
stm.SaveToFile Server.MapPath("12.png")   
stm.Close   
Set xml=Nothing   
Set stm=Nothing

来源：http://blog.csdn.net/plcc123/article/details/9358277

加支付宝好友偷能量挖...

2013-7-18评论(0)网络

阅读(1263)喜欢(1)分类：Asp/VBScript