msxml3.dll的80004005错误

[logohoo]

Dim xml : Set xml=Server.CreateObject("MSXML2.DOMDocument")
Dim stm : Set stm=Server.CreateObject("ADODB.Stream")
xml.resolveExternals=False
xml.load Server.MapPath("base.xml")
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

如上代码，在xml.documentElement.dataType = "bin.base64" 这句，老是出现
msxml3.dll的80004005错误，怎么办？

[Dogfish]

楼主看看别人写的。不是我写的 Dim vecb(3) As Byte vecb(0) = &H33 vecb(1) = &H34 vecb(2) = &H35 vecb(3) = &H36 Dim oxml As New MSXML.DOMDocument Set oxml.documentElement = oxml.createElement("Test") oxml.documentElement.dataType = "bin.base64" ' or bin.hex oxml.documentElement.nodeTypedValue = vecb

[hskire]

你解决这个问题了吗 请帮助，[e-mail]