以文本方式查看主题

-  计算机科学论坛  (http://bbs.xml.org.cn/index.asp)
--  『 XML基础 』  (http://bbs.xml.org.cn/list.asp?boardid=1)
----  如何将别的网站的xml数据，通过程序，写入自己的数据库中？  (http://bbs.xml.org.cn/dispbbs.asp?boardid=1&rootid=&id=5628)

--  作者：magang
--  发布时间：3/12/2004 1:00:00 PM

--  如何将别的网站的xml数据，通过程序，写入自己的数据库中？
谢谢，可以先告诉我基本 的步骤吗？

例如：csdn

http://www.csdn.net/Rss/RssFeed.aspx?rssid=4的xml文件。

--  作者：jadedrip
--  发布时间：3/15/2004 10:12:00 AM

--  
写程序转换啊？ 用 msxml 来解析xml文件，然后写到数据不就好了？
--  作者：johnny_10000
--  发布时间：3/19/2004 4:30:00 PM

--  
jadedrip
您能说的详细点吗？
--  作者：xgy2000
--  发布时间：3/19/2004 5:35:00 PM

--  
Dim strHtml 'As String
Dim strSourceFile' As String
Dim strStyleFile 'As String
Dim xmlSourceDOM 'As MSXML2.DOMDocument30
Dim xmlStyleDOM 'As MSXML2.DOMDocument30
Dim xmlHttp 'As MSXML2.XMLHTTP30


strSourceFile = "http://192.168.0.11/xml/Exam42.xml"
strStyleFile = "http://192.168.0.11/xml/exam6.xsl"
Set xmlHttp = CreateObject("Msxml2.XMLHTTP")
xmlHttp.Open "GET", strSourceFile, False
xmlHttp.send

Set xmlSourceDOM = CreateObject("Microsoft.XMLDOM")
xmlSourceDOM.async = False
xmlSourceDOM.loadXML (xmlHttp.responseXML.xml)
Set xmlHttp = Nothing

Set xmlStyleDOM = CreateObject("Microsoft.XMLDOM")
xmlStyleDOM.async = False
xmlStyleDOM.setProperty "ServerHTTPRequest",true
xmlStyleDOM.Load (strStyleFile)
strHtml = xmlSourceDOM.transformNode(xmlStyleDOM)

Response.Write strHtml
Set xmlSourceDOM = Nothing
Set xmlStyleDOM = Nothing

W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
 46.875ms