chinapub com 3s xM BCMRrSM 837 载 <navigation> <sect⊥on <name>Front</name> curl>default <description>Front page- a mixture of all the news. </description> /section <section> <name>News</name> <url>news. asp</url: <descriptionNews pas current news for the city. </description> rts</name curl>sports. asp</url> description>Sports page - sports news from around town. </description> </section> <section> name>Society</name> <url>society. asp</url> <description>Society page -gossip and rumors run wild. </descriptio </section> <section >Information</name> info. asp</url> <description>Information- who's responsible for the site. </description> </section> </navigation> 2824淮备 global. asa global. asa和 nav bar. asp在这里同样起作用,所以让我们先来看一下这两个文件。保留对 settings. xml做的变动,打开 global asa,在 Application Onstart事件处理程序中加入以下代码, 并注意注释: Sub Application._OnStart Dim strSourceFile, objRootcolors, objRootInfo, objRootNav, objNavNames Dim objNavURLS, objXML Sets the path to settings. xml rSourceFile Server MapPath("admin)&'\settings. xml create an instance of the XML processor et objXML = Server CreateObject('Microsoft. FreeThreadedXMLDOM" Loads settings. xml into memory Create a node for each main element of the xM file set obj Rootcolors= objXMLdocumentElement selectsingleNode(colors.) Set objRootInfo objXML documentElement selectsingleNode('specifications") Set objRootNav objXML documentElement selectsingleNode(navigation") Gets color scheme for the site Sets an Application object with settings Set Application("objXML')= objXML pplication("Color_Primary )=objRootcolors childNodes item(o).text Application (Color_Secondary")mobjRootcolorschildNodesitem(1).text plication ('Color_Highlight)-objRootcolors, childNodesitem(2).text28.2.4 准备g l o b a l . a s a g l o b a l . a s a和n a v b a r. a s p在这里同样起作用，所以让我们先来看一下这两个文件。保留对 s e t t i n g s . x m l做的变动，打开g l o b a l . a s a，在A p p l i c a t i o n _ O n s t a r t事件处理程序中加入以下代码， 并注意注释： 第28章 XML 驱动的报纸实例计计837 下载