文件一:将图形文件存入XML文件中..
文件名: imagetoxml.asp
<%
Option Explicit
dim xml
Dim objStream
Dim objXMLDoc
''定义变量完结
'创建对像
Set objXMLDoc = Server.CreateObject("Msxml2.DOMDocument.4.0")
'设定生成XML文档的根为 Base64Data
objXMLDoc.loadXML "<?xml version='1.0'?><Base64Data />"
'用 stream 来读取数据
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open
objStream.LoadFromFile Server.MapPath("2.jpg")
'2.jpg要和这个文件放在同一目录下.
objXMLDoc.documentElement.dataType = "bin.base64"
objXMLDoc.documentElement.nodeTypedvalue = objStream.Read
'数据流读取结束.得到了值 objXMLDoc
'创建XML文件
Set xml = Server.CreateObject("Msxml2.DOMDocument.4.0")
xml.load objXMLDoc
xml.save (Server.MapPath("2.xml"))
'同样文件名也可以自定义
response.Write("成功")
%>
================================
文件二:把XML文件以图像的方式来显示
文件名:xmltoimage.asp
<%
Option Explicit
Dim objXMLDoc
'定义变量完结
Set objXMLDoc = Server.CreateObject("Msxml2.DOMDocument.4.0")
objXMLDoc.async = False
objXMLDoc.validateOnParse = True
'创建对象
If objXMLDoc.load (Server.MapPath("2.xml")) Then
'如果成功加载2.xml(这个名可以自己改保证在SERVER.MAPPATH的相对路径下)
Dim SigNode
Set SigNode = objXMLDoc.selectSingleNode("//Base64Data")
'读取图片对象
If SigNode Is Nothing Then
'如果图片没有找到
Else
Response.ContentType = "image/jpg"
Response.BinaryWrite SigNode.nodeTypedvalue
'Response.BinaryWrite 以二进制方式写出
End If
Else
'发生了错误.代码自己写.
End If
%>
末了.大家可以用ASP的随机数来读取不同的XML文档就OK了.
同时传上兔子的个人头像..感谢她上回给我的三个大学生XML论文
文件名:2.xml
<?xml version="1.0"?>
<Base64Data xmlns:dt="urn:schemas-microsoft-com:datatypes" dt:dt="bin.base64">/9j/4AAQSkZJRgABAgAAZABkAAD/7AARRHVja3kAAQAEAAAAZAAA/+4ADkFkb2JlAGTAAAAA
Af/bAIQAAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQICAgIC
AgICAgICAwMDAwMDAwMDAwEBAQEBAQECAQECAgIBAgIDAwMDAwMDAwMDAwMDAwMDAwMDAwMD
AwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMD/8AAEQgAcgCVAwERAAIRAQMRAf/EAKQAAQAD
AQEAAgMAAAAAAAAAAAAHCAkGCgULAgMEAQEAAAYDAQAAAAAAAAAAAAAAAgMEBQYHAQgJChAA
AAYCAgAEBAMFBQkBAAAAAgMEBQYHAQgACRIUFRYRExcKeLg5ITh5ubqRNhk6ejEiMiM0GClJ
yYoRAAEEAQMDAgQFAwUAAAAAAAABAgMEBRESBiETBzEUQVEiCGGBIxUJcTJC8MFiMxb/2gAM
AwEAAhEDEQA/APfxwBwBwBwBwBwBwBwBwBwBwBwBwBwBwBwBwBwBwBwBwBwBwBwD8RCCAIhj
EEAAByIQhZwEIQhx8RCELPwwEIcY+Oc5/wBnAIob7cbl6lmGKJTVBHZC7FtDLNF7ezlRleYt
MUEsa7AiX498StkmUFFFt556EoJ41afGfD80PAJZ4BxkosGHwxQiSyV5A2HL06pYX8UbirJT
IEIyC1bm6qUKRUmZWpOYpAESpYMhPgQvh4/j8ccA6xKqTLUydYjUEK0asgpUkVpTSz0ypMeW
E0hQnPKEMo4g4oeBAGHOQiDnGcZ+HAP38AcAcAcAcAcAcAcAcAcAcAcAcAcA/mWpS1yNWiNy
LBSxMelNyDOMCwWoKGSPIc5xnGBYCPPw4BnXZmJlAzGUa09cqZGeLs1ezmOebN8oqa0ABNjT
LWgnHwLTJJGkTBUo1ZXxObHYoRIx4NLx4prdFTRfQ7E+K6nE+c8WtePstFFFyFrnz1pkaiSO
1ROqP9VWNyfWxeixrqifSqpc2ppyVN4sQccuKXPDVgpE5qiwFp/VSxF+NskhKMGA+WSyJFjB
/wAsOMgTqcHpfEIacfJbkVq6KaHy+Kv4LJz4jJsWO9XkVj2r80+KfNFTqip0VFK27UvMghst
hz9H3RxbMv7ThM4GIjzicjMhEhRrmooQiPD4Exxc0W/P+bkQDBAJCHAc4Fgccaojl1+RtrwZ
jcRl+S28ZloIZ2y4+VGpI1HaL0RVai/5aO6KnVE16lhqLPEorJlMz8AgA7TNOmKBn/kpUSSb
yNKgQpg4+ASkaBESWSQWHGAFklhCHGA4xjks05cibBcmgb/ayV7U/o1yp/sS5wU44A4A4A4A
4A4A4A4A4A4A4A4A4A4BwFjQ1hmEeVFvahM2Ybk6pUU+Ki0o07amwXgxwA5BViLTqWFWQRjC
0gwZYRlgwMIyjiijiuUVWrqnqVmPyF7E3YsljZXw3oXI5j2ro5qp/rRU9FToVepRldGxQ/uV
crSZGji6hc0GoDjlKRvcjBAQvR0da39ehSI5LFnMlxC4R59SfOTpVRqpMf8AARqzAY3ORzU+
aGdc45dj+dQQZy1Elbl0SJFOjEXtWY0RdkyL6skYqbXsd0VqtVq9NCQZ3CJZdKrKN3iK+At7
bDpEhbnJ7dYy7GqJC9PURWJAgRRt4eRYRJEkcN+aMYyReI0Hg8f+98IWKjXaqWXg3Jv/AB/K
avIVjWWKBzkexF0VzHtVrkRfTXRdU16ap1JCplIBhjrzBxmiMWweXyZrUZMyH5xyR5dD5cxr
h4xn9uFzHIk485xjw4NwMGM5yDOeQr6mOXLC27k1tURqyyvfonw3uV2n5a6Eu8FMOAOAOAOA
OAOAOAOAOAOAOAOAOAOARbNgheZhXcPWYxllXmyKVOycz4iTPGYgnbC2pjVFeIADSBO0gJcv
DnIsCy14CIAgCFkIHYJHZ3G8OyFfHxtrO3FhNRyMbs2HoXUsZZA/AUiLNC5ojkucmhUeYKLK
B4AZKGdgYslh1Pj005YnmLqJdDVBU8aiBqwF5iCxvdRrxNjia2uxTaYFWWlWqkByU/HygmeI
0ZOQA8Q8hxkDjrJDlnYirYb0SlpkcSRoXZ1SjUFplTtEyTi1MkiT4FCesbXM8lsOUiQ+MR5S
RywEwkwIRmCGBMfAPJWxbv8AYBYVBqNpBb6M9XlO9I3VsiRTieitHlkMhcdrmzbQqyGQBxdr
BvFj2dc0Vm2DA2yNNr2hgryly+SdCiCqPVBUYK6pQc157kMCvJ/31lVH0rFxK6VsascbIZpo
I4ldLZbdck0sTIWSNrSN7kzGI5zkdp9AOV+2H7SuIeWGeC08U2M5JX5PhuOuy7s5zVly5YyO
NxmUuX44qGEn41E/G0L1nI2KU+bpy+yxlqy6CKB0SyTS+Wz2BMstlsRR9ppTwKC2pN6qnTmZ
rf1smDj44LSOzd3rZIQki+zsjLgxq0vV1a0ZS2eOvQJAPAlKkZA21eWlvM+V59DblqM5Qj+x
akgld7TEfR2q1yyr0Rl1/a19k6Pbd9qjUk3OVqxyI3WuL4B9pGS4/j+Q2fBLqyZTA0spRiTk
XkZEsJezXGsKyu59rjVdbyMXk0Nvu8ZTPuldUSGBsrbtV8/Ah2U7DCGl8kkh7L48y1+haake
oLLWiousJS7ThHbMh2ViikmVSGY7Sw/WppdohKNXHskhBE7Ala9a3LU56glMqTuiRtoP/R+Q
GxPs2OSRsoNZA6KRsGGV0iTvuMXe+S7HTa6N9KREbBanc5jmucjXNlZHli+FvtBlv1cLh/Cd
yzy6Wxlob1SXLeS2xUn4qvxy01atenxi3yOWK3W5NSe+fK4HFQQ2IZooZJoJqNi7CEw7GezG
v/qVHZJttWCw2sJFa0StidR6laxX/TPYCm5Fb0JhWskXijgzsknsBFtS6x+LuLNIMseFRTcv
e1SQvysMluW+yW/Ifkmh7mvYy1ZVrSTxzysrwr2bVd88cdNjFa18qXXMhfHL29yMdM5ibadv
document.getElementById('loading').style.display="none";
