<!--#include file="../../../conn/conn4.asp" -->
<!--#include file="../../../conn/function.asp" -->
<%
D_domain=split(split("http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("URL"),"http://")(1),"/theme")(0)
if left(C_music,4)<>"http" then
C_music="http://"&D_domain&"/"&C_music
end if
%>
<?xml version="1.0" encoding="gb2312"?>
<xml>		

        <settings 	
			
		  logo = "media/<%=C_logo%>"
		  songPath = "<%=C_music%>"
		  soundVolume = "0.75" 
		  playMusic = "true"
		  
		  videoBackgrounBufferTime = "5"
		  videoBackgroundVolume = ".5"
		  videoBufferBgColor = "1b1b1b"
		  videoBufferBgAlpha = ".5"
		  
		  BroswerPageTitle = "<%=C_title%>"
		  menuAlignment = "middle"
		  
		  headerBgColor = "1B1B1B"
		  headerBgAlpha = "0.5"
		  footerBgColor = "1B1B1B"
		  footerBgAlpha = "0.5"
		  
		  menuButtonsTextColor = "FFFFFF"
		  menuButtonsBgColor = "1B1B1B"
		  menuButtonsBgAlpha = "0"
		  menuButtonsBgOverColor = "CCFF00"
		  menuButtonsBgOverAlpha = "0.55"
		  
		  submenuButtonsTextColor = "FFFFFF"
		  submenuButtonsBgColor = "1B1B1B"
		  submenuButtonsBgAlpha = "0.5"
		  submenuButtonsBgOverColor = "CCFF00"
		  submenuButtonsBgOverAlpha = "0.5"
		  
		  bgPreloaderColor = "CCFF00"
		  bgPreloaderAlpha = "0.1"
		  
		  fullscreenTxt = "全屏显示"
		  soundVolumeTxt = "停止音乐"
		  soundPausedTxt = "播放音乐"
		  
		  menuExternalURLWindowTarget = "_blank"
		 
		/>

        <menu>
		<%
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from menu1 where U_sub=0 order by U_order"
rs.open sql,conn,1,1
if not rs.eof then
Do while Not rs.eof

Set rs1= Server.CreateObject("ADODB.RecordSet")
sql1="select * from menu1 where U_sub="&rs("U_id")&" order by U_order"
rs1.open sql1,conn,1,1
if not rs1.eof then
Do while Not rs1.eof
if rs1("U_type")="link" then
submenu=submenu&"<submenu page_title='"&rs1("U_title")&"' swf='"&rs1("U_bg")&"' xmlPath = '' bgType = 'image' bgFile =''/>"
else
if rs1("U_type")="form" or rs1("U_type")="buy" then
submenu=submenu&"<submenu page_title='"&rs1("U_title")&"' swf='theme/v19/swf/"&rs1("U_type")&".swf?F_id="&rs1("U_typeid")&"&F_type=.swf' selfAlign ='true' xmlPath = '' bgType = 'image' bgFile = 'media/"&rs1("U_bg")&"' />"
else
if rs1("U_type")="html" then
Set rs2= Server.CreateObject("ADODB.RecordSet")
sql2="select * from html where H_id="&rs1("U_typeid")
rs2.open sql2,conn,1,1
H_width=rs2("H_width")
H_height=rs2("H_height")
rs2.close
set rs2=nothing
submenu=submenu&"<submenu page_title='"&rs1("U_title")&"' swf='theme/v19/swf/"&rs1("U_type")&".swf?H_id="&rs1("U_typeid")&"&H_title="&rs1("U_title")&"&H_width="&H_width&"&H_height="&H_height&"&F_type=.swf' selfAlign ='true' xmlPath = '' bgType = 'image' bgFile = 'media/"&rs1("U_bg")&"' />"
else
submenu=submenu&"<submenu page_title='"&rs1("U_title")&"' swf='theme/v19/swf/"&rs1("U_type")&".swf' xmlPath = 'theme/v19/xml/"&rs1("U_type")&"/?"&rs1("U_typeid")&"."&timer()&".xml' bgType = 'image' bgFile = 'media/"&rs1("U_bg")&"'/>"
end if
end if
end if
rs1.movenext
		loop
	end if
set rs1=nothing

if rs("U_type")="sub" then
mainmenu=" <menuItem page_title ='"&rs("U_title")&"'>"
else
if rs("U_type")="link" then
mainmenu="<menuItem page_title='"&rs("U_title")&"' swf='"&rs("U_bg")&"' xmlPath = '' bgType = 'image' bgFile =''/>"
else
if rs("U_type")="form" or rs("U_type")="buy" then
mainmenu="<menuItem page_title='"&rs("U_title")&"' swf='theme/v19/swf/"&rs("U_type")&".swf?F_id="&rs("U_typeid")&"&F_type=.swf' selfAlign='false' xmlPath = '' bgType = 'image' bgFile = 'media/"&rs("U_bg")&"' />"
else
if rs("U_type")="html" then

Set rs2= Server.CreateObject("ADODB.RecordSet")
sql2="select * from html where H_id="&rs("U_typeid")
rs2.open sql2,conn,1,1
H_width=rs2("H_width")
H_height=rs2("H_height")
rs2.close
set rs2=nothing
mainmenu="<menuItem page_title='"&rs("U_title")&"' swf='theme/v19/swf/"&rs("U_type")&".swf?H_id="&rs("U_typeid")&"&H_title="&rs("U_title")&"&H_width="&H_width&"&H_height="&H_height&"&F_type=.swf' selfAlign='false' xmlPath = '' bgType = 'image' bgFile = 'media/"&rs("U_bg")&"' />"
else
mainmenu="<menuItem page_title='"&rs("U_title")&"' swf='theme/v19/swf/"&rs("U_type")&".swf' xmlPath = 'theme/v19/xml/"&rs("U_type")&"/?"&rs("U_typeid")&"."&timer()&".xml' bgType = 'image' bgFile = 'media/"&rs("U_bg")&"'/>"
end if
end if
end if
end if
if rs("U_type")="sub" then
response.Write mainmenu&submenu&"</menuItem>"
else
response.Write mainmenu&submenu
end if
submenu=""
rs.movenext
		loop
	end if
set rs=nothing
%>   
	    </menu>
		
		<copyright>
		   <![CDATA[<%=C_foot%>]]>
		</copyright>
		   
</xml>

