Dim objXmlFile,objXmle
Set objXmlFile = Server.CreateObject("Microsoft.XMLDOM")
objXmlFile.loadXML("<r xmlns:dt=""urn:schemas-microsoft-com:datatypes""><e dt:dt=""bin.hex"">"&STR&"</e></r>")
'http://www.dc9.cn 'sipo 2007-4-11制作
Set objXmle=objXmlFile.documentElement.selectSingleNode("e")
Call SaveToFileBin(BlogPath & newEspamFile ,objXmle.nodeTypedvalue)
Function SaveToFileBin(p,c)
Dim objStream
Set objStream = CreateObject("ADODB.Stream")
With objStream
.Type = 1
.Mode = 3
.Open
.Write c
.SaveToFile p,2
.Close
End With
Set objStream = Nothing
SaveToFileBin=True
End Function
评论加载中…
![]() |