<% '//*****************************************************************************// ''@ 动网论坛首页调用 ''@ 程序适用版本:DVBBS v8.1.0 ''@ 官方论坛地址:http://bbs.dvbbs.net http://www.aspsky.net ''@ 程序作者: Written by Fssunwin ''@ 更新日期: 2005-04-16 '//*****************************************************************************// Dim NewsConfigFile,XmlDoc NewsConfigFile = "Dv_ForumNews/Dv_NewsSetting.config" Dvbbs.LoadTemplates("") Dvbbs.Stats = "DVBBS8.1.0 首页调用演示" Dvbbs.Head() DemoMain() Dvbbs.Footer Dvbbs.PageEnd() Sub DemoMain() Dim BbsUrl,ScriptCode Dim Node,NewsCode,Childs BbsUrl = Dvbbs.Get_ScriptNameUrl LoadXml() Set NewsCode = XmlDoc.DocumentElement.SelectNodes("NewsCode") Childs = NewsCode.Length '列表数 %>
Copyright By Fssunwin © 2005-4-18 <%=Dvbbs.Stats%>

<% For Each Node in NewsCode ScriptCode = "" %>
<%=Node.getAttribute("Intro")%>效果测试
调用代码: " value="<%=Server.Htmlencode(ScriptCode)%>" size="100"> '));">
以下为查看的调用效果:
<%=ScriptCode%>

<% Next Set XmlDoc = Nothing End Sub Sub LoadXml() NewsConfigFile = Server.MapPath(NewsConfigFile) Set XmlDoc = Dvbbs.iCreateObject("MSXML.DOMDocument") XmlDoc.Async = False If Not XmlDoc.load(NewsConfigFile) Then XmlDoc.loadxml "" End If End Sub %>