<!--#include file="../../../conn/conn4.asp" -->
<!--#include file="../../../conn/function.asp" -->
<?xml version="1.0" encoding="gb2312" standalone="yes"?>
<content>
    <settings>
        <logo X="<%=C_logox%>" Y="<%=C_logoy%>">media/<%=C_logo%></logo>
        <footer><![CDATA[<%=C_foot%>]]></footer>
        <menu X="180"/>
    </settings>
    <nav>
	<%
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&"<sub Name='"&rs1("U_title")&"' Link='"&rs1("U_bg")&"' toLoad='"&rs1("U_bg")&"'/>"
else
if rs1("U_type")="form" or rs1("U_type")="buy" then
submenu=submenu&"<sub Name='"&rs1("U_title")&"' Link='theme/v3/swf/"&rs1("U_type")&".swf?F_id="&rs1("U_typeid")&"'/>"
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&"<sub Name='"&rs1("U_title")&"' Link='theme/v3/swf/"&rs1("U_type")&".swf?H_id="&rs1("U_typeid")&"&H_title="&rs1("U_title")&"&H_width="&H_width&"&H_height="&H_height&"'/>"
else
submenu=submenu&"<sub Name='"&rs1("U_title")&"' Link='theme/v3/swf/"&rs1("U_type")&".swf' toLoad='theme/v3/xml/"&rs1("U_type")&"/?"&rs1("U_typeid")&"."&timer()&".xml'/>"
end if
end if
end if
rs1.movenext
		loop
	end if
set rs1=nothing

if rs("U_type")<>"sub" then
if rs("U_type")="link" then
response.Write "<main Name='"&rs("U_title")&"' Link='"&rs("U_bg")&"' toLoad='"&rs("U_bg")&"'/>"
else
if rs("U_type")="form" or rs("U_type")="buy" then
response.Write "<main Name='"&rs("U_title")&"' Link='theme/v3/swf/"&rs("U_type")&".swf?F_id="&rs("U_typeid")&"'/>"
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 "<main Name='"&rs("U_title")&"' Link='theme/v3/swf/"&rs("U_type")&".swf?H_id="&rs("U_typeid")&"&H_title="&rs("U_title")&"&H_width="&H_width&"&H_height="&H_height&"'/>"
else
response.Write "<main Name='"&rs("U_title")&"' Link='theme/v3/swf/"&rs("U_type")&".swf' toLoad='theme/v3/xml/"&rs("U_type")&"/?"&rs("U_typeid")&"."&timer()&".xml'/>"
end if
end if
end if
else
response.Write "<main Name='"&rs("U_title")&"'>"&submenu&"</main>"
end if

submenu=""
rs.movenext
		loop
	end if
set rs=nothing
	%>
    </nav>
</content>



