<%
'---------------------------------------
'Author: Wild Grass
'Date: January 1, April 24, 2006
'Q Q: 94440079
'Group 51: 21643964 (group 51JS. COM)
'Site: http://www.yecaoweb.com OR http://www.yecaoweb.net
'---------------------------------------
'Reading XML file functions
Function YCMS_menu ()
Dim menu_temp, m
Set goxml = Server. CreateObject ("Microsoft. XMLDOM ")
Goxml. load (Server. MapPath ("menu. xml "))
Set goroot=goxml.doc umentElement. selectSingleNode ("menu ")
M = 0
For each child in goroot. childNodes
Set childmenu = goroot. childnodes. item (m)
Dim menu_open, menu_title, menu_url
Menu_open = childmenu. getAttributeNode ("open"). nodeValue
Menu_name = childmenu. getAttributeNode ("name"). nodeValue
Menu_url = goroot. childNodes. item (m). text
'Determine if it is a pop-up window
If menu_open = 0 Then
'Judge whether it is the first one. If it is the first one, remove "marker"
If m = 0 Then
Menu_temp = menu_temp & "<a href = '" & menu_url & "'>" & menu_name & "</a>"
Else
Menu_temp = menu_temp & "external <a href = '" & menu_url & "'>" & menu_name & "</a>"
End If
Else
If m = 0 Then
Menu_temp = menu_temp & "<a href = '" & menu_url & "'target = 'O'>" & menu_name & "</a>"
Else
Menu_temp = menu_temp & "external <a href = '" & menu_url & "'target = 'O'>" & menu_name & "</a>"
End If
End If
Set childmenu = nothing
M = m + 1
Next
Set goroot = nothing
Set goxml = nothing
YCMS_menu = menu_temp
End Function
'Output XML menu
Response. write (YCMS_menu ())
%>
