dim xmlString
xmlString="<html>" & chr(10) & "<head>" & chr(10) & "<title>test</title>" & chr(10) & "</head>" & chr(10) & "<body>" & chr(10) & "<p><img src="http://www.21kn.com/Files/BeyondPic/2007-7/8/077800484354298.gif"" /></p>" & chr(10) & "</body>" & chr(10) & "</html>"
dim xmlDoc
set xmlDoc = server.createObject("Msxml2.DOMDocument")
xmlDoc.loadXml(xmlString)
xmlDoc.save(server.mappath("test.htm"))
set xmlDoc=nothing
dim htmlString
htmlString="<html>" & chr(10) & "<head>" & chr(10) & "<title>test</title>" & chr(10) & "</head>" & chr(10) & "<body>" & chr(10) & "<p><img src="http://www.21kn.com/Files/BeyondPic/2007-7/8/077800484354298.gif"" /></p>" & chr(10) & "</body>" & chr(10) & "</html>"
set maker=server.CreateObject("adodb.stream")
maker.Type=2 '以本模式读取
maker.mode=3
maker.charset="utf-8"
maker.open
maker.WriteText htmlString
maker.SaveToFile server.MapPath("test.htm"),2
maker.flush
maker.Close
set maker=nothing
