<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<!-- #include file="inc/Session.asp" -->
<!-- #include file="inc/function.asp" -->
<!-- #include file="inc/checkrole.asp" -->
<%
' 如果编辑的内容很多，上传速度太慢，请设置以下的时间，单位秒
Server.ScriptTimeout = 999999
'''''''''''''''''''''''''''''''''''''''''''''''
call checkPrevilege(Session("Name"),"p02")
'''''''''''''''''''''''''''''''''''''''''''''''
dim channel,subcatalog,navcontent,navi,navii,navrs,textnav,textnav_def
navcontent=""
set rs=server.createobject("adodb.recordset")
rs.open "select id,title,savedir from catalogs where flag=1 order by id asc",conn,3,1
if not rs.eof and not rs.bof then
	channel=rs.GetRows()
	'遍历频道
	for navi=0 to ubound(channel,2)
		textnav=textnav&"<A href="""&channel(2,navi)&""">"&channel(1,navi)&"</A>"
		textnav_def=textnav_def&"<A href="""&channel(2,navi)&""">"&channel(1,navi)&"</A>"
		navcontent=navcontent&"document.write('<LI style=""WIDTH: 85px"">');"&Chr(10)
		navcontent=navcontent&"document.write('	<A href="""&channel(2,navi)&""">"&channel(1,navi)&"</A>');"&Chr(10)
		navcontent=navcontent&"document.write('		<DIV>');"&Chr(10)
  		navcontent=navcontent&"document.write('			<DIV style=""LEFT: -1px; WIDTH: 86px; TOP: 0px"">');"&Chr(10)
  		navcontent=navcontent&"document.write('				<UL>');"&Chr(10)
		set navrs=server.createobject("adodb.recordset")
		navrs.open "select title,savedir from catalogs where parentid="&channel(0,navi)&" order by id asc",conn,3,1
		'遍历子栏目
		while not navrs.eof
			navcontent=navcontent&"document.write('				<LI><A href="""&navrs("savedir")&"/index_1.htm"" target=_new>"&navrs("title")&"</A>');"&Chr(10)
			textnav=textnav&"&nbsp;<A href="""&navrs("savedir")&"/index_1.htm"" target=_new>"&navrs("title")&"</A>"
			navrs.movenext
		wend
		navrs.close
		set navrs=nothing
		navcontent=navcontent&"document.write('				</UL>');"&Chr(10)
		navcontent=navcontent&"document.write('			</DIV>');"&Chr(10)
		navcontent=navcontent&"document.write('		</DIV>');"&Chr(10)
		navcontent=navcontent&"document.write('</LI>');"&Chr(10)
		textnav=textnav&"<br>"
		if(navi<ubound(channel,2)) then
			textnav_def=textnav_def&" | "
		end if
	next
	rs.close
	set rs=nothing
else
	rs.close
	set rs=nothing
end if
'生成Navigate js file
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set file_w = fs.CreateTextFile(server.MapPath("../js/nav.js"))
file_w.WriteLine(navcontent)
file_w.close
set file_w=nothing
set fs=nothing
call connclose()
%>
<style type="text/css">
body,input,textarea,td{font-size:12px;}
</style>
<div align="left">一般有两种导航方式，一种是使用系统生成的导航菜单，这种方式使用JS，动态菜单效果，比较方便，缺点就是不利于SEO；<br />
另一种是我们在下面生动生成各栏目的链接，这样你可以手动复制栏目链接到你的模板中，这种方式相对麻烦些，不过可以灵活设置，利于SEO，具体请权衡使用。
<div align="left">
  <p>1、JS菜单导航将以下代码复制到你的模板中就可以显示导航了 
    <textarea name="textarea" style="width:80%; height:200px;">
&lt;DIV id=&quot;divcenter&quot; style=&quot;width:760px; margin:0px auto;&quot;&gt;
&lt;DIV style=&quot;PADDING-RIGHT:10px; PADDING-LEFT:10px; PADDING-BOTTOM: 2px; PADDING-TOP: 0px&quot;&gt;
&lt;DIV style=&quot;DISPLAY: none&quot;&gt;
&lt;UL id=imenus0 width=&quot;200px&quot;&gt;
&lt;script src=&quot;<%=SiteUrl%>/js/nav.js&quot;&gt;&lt;/script&gt;
&lt;/UL&gt;
&lt;DIV style=&quot;CLEAR: left&quot;&gt;&lt;/DIV&gt;
&lt;/DIV&gt;
&lt;SCRIPT language=JavaScript src=&quot;<%=SiteUrl%>/js/imenus_init.js&quot;&gt;&lt;/SCRIPT&gt;
&lt;SCRIPT language=JavaScript src=&quot;<%=SiteUrl%>/js/imenus_ani.js&quot;&gt;&lt;/SCRIPT&gt;
&lt;SCRIPT language=JavaScript src=&quot;<%=SiteUrl%>/js/imenus_pointer.js&quot;&gt;&lt;/SCRIPT&gt;
&lt;SCRIPT language=JavaScript src=&quot;<%=SiteUrl%>/js/imenus.js&quot;&gt;&lt;/SCRIPT&gt;
&lt;/DIV&gt;
&lt;/DIV&gt;

    </textarea>
</p>
  <p>2、手工复制栏目链接<br />
  2-1、默认简单效果<br />
    <textarea name="textarea3" style="width:80%; height:150px;">
	<%=textnav_def%>
	</textarea>
    <br />
    预览：<br />
    <%=textnav_def%></p>
  <p>2-2、复杂效果</p>
  <p>
    <textarea name="textarea2" style="width:80%; height:150px;">
	<%=textnav%>
	</textarea>
    <br />
  预览:<br />
  <%=textnav%>
  </p>
</div>
