<!--#include file="../../../conn/conn4.asp" -->
<!--#include file="../../../conn/function.asp" -->
<%
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from menu1 where U_type='slideshow'"
rs.open sql,conn,1,1
U_type=rs("U_type")
U_bg=rs("U_bg")
rs.close
set rs=nothing

%>
<?xml version="1.0" encoding="gb2312"?>
<Template>
<setup 
	
	title = "<%=C_title%>"
	
	quboidPath="theme/v17/swf/Quboid.swf"
	logoPath="media/<%=C_logo%>"
	background="media/<%=U_bg%>"
	hideMenuOnLoad="true"
	
	swfAlign="center"
	autoQuality="true"
	flickrEnabled="false"
	
	logoMarginTop="<%=C_logoy%>"
	logoMarginLeft="<%=C_logox%>"
	logoMarginRight="10"
	
	menuSoundEnabled="false"
	menuOverSound=""
	menuClickSound=""
	
	menuFont="微软雅黑"
	menuFontSize="13"
	menuKerning="-0.5"
	menuMarginTop="4"
	menuPadding="5"
	menuSpacing="0"
	menuAlign="center"
	menuHeight="50"
	menuAlpha="1"
	
	submenuFontSize="12"
	submenuKerning="-0.5"
	submenuMarginTop="4"
	submenuPadding="5"
	submenuSpacing="0"
	submenuFixedWidth="true"
	submenuHeight="30"
	submenuWidth="80"
	submenuAlpha="1"
	
	menuGlowColor="0x000000"
	menuGlowSize="10"
	menuGlowAlpha="0.3"
	
	htmlFont="Comfortaa"
	htmlFontSize="12"
	htmlFontColor="0xFFFFFF"
	htmlKerning="-0.5"
	htmlPadding="5"
	
	htmlScrollWidth="8"
	htmlScrollCorner="8"
	htmlRulerColor="0xFFFFFF"
	htmlTrackColor="0x000000"
	
	contactFormPath="theme/v17/guestbook.asp"
	contactWidth="580"
	contactHeight="350"
	contactCorner="10"
	contactPadding="20"
	contactBgColor="0x6655AA"
	contactBgAlpha="0.3"
	
	contactGlowColor="0x000000"
	contactGlowSize="10"
	contactGlowAlpha="0.3"
	
	contactNameLabel="输入名字"
	contactEmailLabel="输入邮箱"
	contactMessageLabel="填写消息"
	contactSendLabel="发送"
	
	contactNameWarning="请输入您的名字"
	contactEmailWarning="输入邮箱"
	contactMessageWarning="填写消息"
	contactSendConfirm="发送成功!"
	
	contactFieldCorner="10"
	contactFieldBgColor="0x000000"
	contactFieldTextColor="0xFFFFFF"
	
	contextMenuEnabled="false"
	contextMenuLabel=""
	contextMenuLink=""
	
	></setup>
	
	<home
	type="wheel"
	path="theme/v17/xml/<%=U_type&"/?1.xml?"&timer()%>"
	background="media/<%=U_bg%>"
	>
				<content 
			cssPath="theme/v17/css/css.css"
					
			width="500" 
			height="340"
					
			bgColor="0x00000"
			bgAlpha="0.6"
			bgCorner="8"
			bgPadding="10"
					
			glowColor="0x000000"
			glowSize="10"
			glowAlpha="0.5"
			></content>
	</home>
	
	

	<%
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
if rs("U_type")="text" then
css="<content cssPath='theme/v17/css/css.css' width='680' height='310' bgColor='0x0066FF' bgAlpha='0.3' bgCorner='8' bgPadding='10' glowColor='0x000000' glowSize='10' glowAlpha='0.5'></content>"
else
css=""
end if

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")="text" then
css1="<content cssPath='theme/v17/css/css.css' width='680' height='410' bgColor='0x0066FF' bgAlpha='0.3' bgCorner='8' bgPadding='10' glowColor='0x000000' glowSize='10' glowAlpha='0.5'></content>"
else
css1=""
end if

if rs1("U_type")="sub" then
U_type="wheel"
end if
if rs1("U_type")="text" then
U_type="html"
end if

if rs1("U_type")="photo" then
U_type="wheel"
end if

if rs1("U_type")="slideshow" then
U_type="wheel"
end if

if rs1("U_type")="video" then
U_type="wheel"
end if

if rs1("U_type")="link" then
U_type="link"
end if

if rs1("U_type")="contact" then
U_type="contact"
end if

if rs1("U_type")="news" then
submenu=submenu&"<submenu label='"&rs1("U_title")&"' tag='"&rs1("U_id")&"' type='flash' path='theme/v17/swf/news.swf?S_id="&rs1("U_typeid")&"&kiler="&timer()&"' background='media/"&rs1("U_bg")&"' menuFontIdleColor='0xFFFFFF' menuFontOverColor='0x5577AA' menuBgIdleColor='0x5577AA' menuBgOverColor='0xFFFFFF'>"&css1&"</submenu>"
else
if rs1("U_type")="link" then
submenu=submenu&"<submenu label='"&rs1("U_title")&"' tag='"&rs1("U_id")&"' type='"&U_type&"' path='"&rs1("U_bg")&"' background='media/"&rs1("U_bg")&"' menuFontIdleColor='0xFFFFFF' menuFontOverColor='0x5577AA' menuBgIdleColor='0x5577AA' menuBgOverColor='0xFFFFFF'>"&css1&"</submenu>"
else
if rs1("U_type")="form" or rs1("U_type")="buy" then
submenu=submenu&"<submenu label='"&rs1("U_title")&"' tag='"&rs1("U_id")&"' type='flash' path='theme/v17/swf/"&rs1("U_type")&".swf?F_id="&rs1("U_typeid")&"' background='media/"&rs1("U_bg")&"&killer="&timer()&"' menuFontIdleColor='0xFFFFFF' menuFontOverColor='0x5577AA' menuBgIdleColor='0x5577AA' menuBgOverColor='0xFFFFFF'>"&css1&"</submenu>"
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 label='"&rs1("U_title")&"' tag='"&rs1("U_id")&"' type='flash' path='theme/v17/swf/"&rs1("U_type")&".swf?H_id="&rs1("U_typeid")&"&H_title="&rs1("U_title")&"&H_width="&H_width&"&H_height="&H_height&"' background='media/"&rs1("U_bg")&"&killer="&timer()&"' menuFontIdleColor='0xFFFFFF' menuFontOverColor='0x5577AA' menuBgIdleColor='0x5577AA' menuBgOverColor='0xFFFFFF'>"&css1&"</submenu>"
else
submenu=submenu&"<submenu label='"&rs1("U_title")&"' tag='"&rs1("U_id")&"' type='"&U_type&"' path='theme/v17/xml/"&rs1("U_type")&"/?"&rs1("U_typeid")&"."&timer()&".xml' background='media/"&rs1("U_bg")&"' menuFontIdleColor='0xFFFFFF' menuFontOverColor='0x5577AA' menuBgIdleColor='0x5577AA' menuBgOverColor='0xFFFFFF'>"&css1&"</submenu>"
end if
end if
end if
end if
rs1.movenext
		loop
	end if
set rs1=nothing
if rs("U_type")="news" then
U_type="wheel"
end if
if rs("U_type")="sub" then
U_type="wheel"
end if
if rs("U_type")="text" then
U_type="html"
end if

if rs("U_type")="photo" then
U_type="wheel"
end if

if rs("U_type")="slideshow" then
U_type="wheel"
end if

if rs("U_type")="video" then
U_type="wheel"
end if

if rs("U_type")="link" then
U_type="link"
end if

if rs("U_type")="contact" then
U_type="contact"
end if

if rs("U_type")="news" then
response.Write "<item enabled='true'><menu label='"&rs("U_title")&"' tag='"&rs("U_id")&"' type='flash' path='theme/v17/swf/news.swf?S_id="&rs("U_typeid")&"&kiler="&timer()&"' background='media/"&rs("U_bg")&"' menuFontIdleColor='0xFFFFFF' menuFontOverColor='0x5577AA' menuBgIdleColor='0x5577AA' menuBgOverColor='0xFFFFFF'>"&css&submenu&"</menu></item>"
else
if rs("U_type")="sub" then
response.Write "<item enabled='true'><menu label='"&rs("U_title")&"' tag='"&rs("U_id")&"' type='link' path='#' background='' menuFontIdleColor='0xFFFFFF' menuFontOverColor='0x5577AA' menuBgIdleColor='0x5577AA' menuBgOverColor='0xFFFFFF'>"&css&submenu&"</menu></item>"
else
if rs("U_type")="link" then
response.Write "<item enabled='true'><menu label='"&rs("U_title")&"' tag='"&rs("U_id")&"' type='"&U_type&"' path='"&rs("U_bg")&"' background='media/"&rs("U_bg")&"' menuFontIdleColor='0xFFFFFF' menuFontOverColor='0x5577AA' menuBgIdleColor='0x5577AA' menuBgOverColor='0xFFFFFF'>"&css&submenu&"</menu></item>"
else
if rs("U_type")="form" or rs("U_type")="buy" then
response.Write "<item enabled='true'><menu label='"&rs("U_title")&"' tag='"&rs("U_id")&"' type='flash' path='theme/v17/swf/"&rs("U_type")&".swf?F_id="&rs("U_typeid")&"&killer="&timer()&"' background='media/"&rs("U_bg")&"' menuFontIdleColor='0xFFFFFF' menuFontOverColor='0x5577AA' menuBgIdleColor='0x5577AA' menuBgOverColor='0xFFFFFF'>"&css&submenu&"</menu></item>"
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
response.Write "<item enabled='true'><menu label='"&rs("U_title")&"' tag='"&rs("U_id")&"' type='flash' path='theme/v17/swf/"&rs("U_type")&".swf?H_id="&rs("U_typeid")&"&H_title="&rs("U_title")&"&H_width="&H_width&"&H_height="&H_height&"' background='media/"&rs("U_bg")&"' menuFontIdleColor='0xFFFFFF' menuFontOverColor='0x5577AA' menuBgIdleColor='0x5577AA' menuBgOverColor='0xFFFFFF'>"&css&submenu&"</menu></item>"
else
response.Write "<item enabled='true'><menu label='"&rs("U_title")&"' tag='"&rs("U_id")&"' type='"&U_type&"' path='theme/v17/xml/"&rs("U_type")&"/?"&rs("U_typeid")&"."&timer()&".xml' background='media/"&rs("U_bg")&"' menuFontIdleColor='0xFFFFFF' menuFontOverColor='0x5577AA' menuBgIdleColor='0x5577AA' menuBgOverColor='0xFFFFFF'>"&css&submenu&"</menu></item>"
end if
end if
end if
end if
end if
submenu=""
rs.movenext
		loop
	end if
set rs=nothing
	%>
	<footer 
		height="30"
		padding="4"
		bgColor="0x5577AA" 
		bgAlpha="0.5"	
		font="Arial"
		fontSize="12"
		fontColor="0xFFFFFF"
		fontKerning="0"
		glowColor="0x000000"
		glowSize="12"
		glowAlpha="0.5"
	><![CDATA[<%=C_foot%>]]>
	</footer>
	<social enabled="true">
	<icon path="media/0.png" tooltip=" " link=" "></icon>
	</social>
	<music volumeEnabled="true"> 
<%
D_domain=split(split("http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("URL"),"http://")(1),"/theme")(0)
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from music"
rs.open sql,conn,1,1
if not rs.eof then
Do while Not rs.eof
if left(rs("M_link"),4)="http" then
response.Write "<track>"&rs("M_link")&"</track>"
else
response.Write "<track>http://"&D_domain&"/media/"&rs("M_link")&"</track>"
end if
rs.movenext
		loop
	end if
set rs=nothing
%>
	</music>
</Template>
