使用XMLDOM,adodb.stream创建HTML文件
日期：2010-10-15 浏览次数：21089 次
XMLDOM的方法是在 l-blog 的作者 卫慧杰那里找到的，一直没听说这种方法，顺便整理一下adodb.stream的生成方法。
1.使用XMLDOM
原文有一点点小错误，<img src="http://www.webjx.com/htmldata/2007-03-25/http://www.webjx.com/htmldata/2007-03-25/test.gif" />这段应该是<img src=""http://www.webjx.com/htmldata/2007-03-25/http://www.webjx.com/htmldata/2007-03-25/test.gif"" />可能一时疏忽
2.使用XMLDOM,adodb.stream
1.使用XMLDOM
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.webjx.com/htmldata/2007-03-25/http://www.webjx.com/htmldata/2007-03-25/test.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
xmlString="<html>" & chr(10) & "<head>" & chr(10) & "<title>test</title>" & chr(10) & "</head>" & chr(10) & "<body>" & chr(10) & "<p><img src=""http://www.webjx.com/htmldata/2007-03-25/http://www.webjx.com/htmldata/2007-03-25/test.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
原文有一点点小错误，<img src="http://www.webjx.com/htmldata/2007-03-25/http://www.webjx.com/htmldata/2007-03-25/test.gif" />这段应该是<img src=""http://www.webjx.com/htmldata/2007-03-25/http://www.webjx.com/htmldata/2007-03-25/test.gif"" />可能一时疏忽
2.使用XMLDOM,adodb.stream
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.webjx.com/htmldata/2007-03-25/http://www.webjx.com/htmldata/2007-03-25/test.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
htmlString="<html>" & chr(10) & "<head>" & chr(10) & "<title>test</title>" & chr(10) & "</head>" & chr(10) & "<body>" & chr(10) & "<p><img src=""http://www.webjx.com/htmldata/2007-03-25/http://www.webjx.com/htmldata/2007-03-25/test.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
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
