[XML]作为接口的一些疑惑！ 做一个网页，要想用XML作为接口连接某一新闻网站，做到这个新闻网站的新闻更新，这边网页上的新闻也随之更新，该怎么做？其中大部分代码已经写好，可是运行没有效果，不知道是什么地方的原因，希望大家可以指点一下，谢谢！ <% Response.Buffer = True Dim objXMLHTTP, xmlDoc dim title,url,pub_date, img dim m,n Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") ' 创建对象 objXMLHTTP.Open "GET","http://news.zhongsou.com/xml/china3.xml",False ‘读取xml文件 objXMLHTTP.Send ' 发送请求 Response.ContentType = "text/html;charset=gb2312;" ' 设置输出类型 set xmlDoc = objXMLHTTP.responseXML m = xmlDoc.documentElement.childNodes.length -1 if (m>9) then        ‘最多读取10条新闻                 n=9 else                 n=m end if response.write "<tr><td align=center height=25><font size=2>用ASP 嵌入了10条国内新闻</font></td></tr>"  ‘例子演示说明用，正式用时去掉 for i=0 to n   ‘从china3.xml文件读取最多10条新闻,新闻数可按要求定         title = xmlDoc.getElementsByTagName("items_title").item(i).text         url = xmlDoc.getElementsByTagName("items_url").item(i).text         pub_date = xmlDoc.getElementsByTagName("items_date").item(i).text         'source= xmlDoc.getElementsByTagName("items_source").item(i).text                 response.write "<tr><td ><a class=liangb href=" + url + " target=_blank><font size=1>" + title + "</font></a></td></tr>" ‘class=liangb和<font size=1>可按要求定义字体，颜色等        next set objXMLHTTP = Nothing Set xmlDoc = Nothing %>

[ 关闭窗口 ]