menu.asp

后台登陆admin.asp

<%
'****************************************************
		dim pop		
		pop = "<DIV class=menuskin id=popmenu onmouseover=clearhidemenu();highlightmenu(event,'on') onmouseout=highlightmenu(event,'off');dynamichide(event) style='Z-index:100'></DIV>"
		pop = pop &"<script Language=Javascript src='inc/pop.js'></script>"&vbnewline
		pop = pop &"<script language=javascript>"&vbnewline
		'===========
		'新闻菜单
		pop = pop &"linkset[0]=new Array()"&vbnewline
		Set rs_item = conn.execute("Select * from newcat where sid =0 order by cat_id")
		dim i
		i = -1
		do while not rs_item.eof
			i=i+1
			pop = pop &"linkset[0]["&i&"]='<div class=menuitems><a href=news.asp?cat_id="&rs_item(0)&">"&rs_item(1)&"</a></div>'"&vbnewline
		rs_item.movenext
		loop
		rs_item.close
		'===========
		'旅游线路超市'Web:    www.ynsky.com.cn
		pop = pop &"linkset[1]=new Array()"&vbnewline
		Set rs_item = conn.execute("Select * from a_cat where sid =0 order by cat_id")
		i = -1
		do while not rs_item.eof
			i=i+1
			pop = pop &"linkset[1]["&i&"]='<div class=menuitems><a href=art.asp?cat_id="&rs_item(0)&">"&rs_item(1)&"</a></div>'"&vbnewline
		rs_item.movenext
		loop
		rs_item.close
		'===========
		'音乐菜单'Web:    www.ynsky.com.cn
		pop = pop &"linkset[2]=new Array()"&vbnewline
		Set rs_item = conn.execute("Select * from djcat where sid =0 order by djcat_id")
		i = -1
		do while not rs_item.eof
			i=i+1
		        pop = pop &"linkset[2]["&i&"]='<div class=menuitems><a href=dj.asp?djcat_id="&rs_item(0)&">"&rs_item(1)&"</a></div>'"&vbnewline
		rs_item.movenext
		loop
		rs_item.close
		'===========
		'笑话菜单'Web:    www.ynsky.com.cn
		pop = pop &"linkset[3]=new Array()"&vbnewline
		Set rs_item = conn.execute("Select * from joke_cat where sid =0 order by cat_id")
		i = -1
		do while not rs_item.eof
			i=i+1
			pop = pop &"linkset[3]["&i&"]='<div class=menuitems><a href=joke.asp?cat_id="&rs_item(0)&">"&rs_item(1)&"</a></div>'"&vbnewline
		rs_item.movenext
		loop
		rs_item.close		
		'===========
		'图片菜单'Web:    www.ynsky.com.cn
		pop = pop &"linkset[4]=new Array()"&vbnewline
		Set rs_item = conn.execute("Select * from piccat where sid =0 order by piccat_id")
		i = -1
		do while not rs_item.eof
			i=i+1
			pop = pop &"linkset[4]["&i&"]='<div class=menuitems><a href=pic.asp?piccat_id="&rs_item(0)&">"&rs_item(1)&"</a></div>'"&vbnewline
		rs_item.movenext
		loop
		rs_item.close
		'===========
		'下载菜单'Web:    www.ynsky.com.cn
		pop = pop &"linkset[5]=new Array()"&vbnewline
		Set rs_item = conn.execute("Select * from d_cat order by cat_id")
		i = -1
		do while not rs_item.eof
			i=i+1
			pop = pop &"linkset[5]["&i&"]='<div class=menuitems><a href=down.asp?cat_id="&rs_item(0)&">"&rs_item(1)&"</a></div>'"&vbnewline
		rs_item.movenext
		loop
		rs_item.close
        '===========
		'旅游手记中心'Web:    www.ynsky.com.cn
		pop = pop &"linkset[6]=new Array()"&vbnewline
		Set rs_item = conn.execute("Select * from web_cat where sid =0 order by cat_id")
		i = -1
		do while not rs_item.eof
			i=i+1
			pop = pop &"linkset[6]["&i&"]='<div class=menuitems><a href=web.asp?cat_id="&rs_item(0)&">"&rs_item(1)&"</a></div>'"&vbnewline
		rs_item.movenext
		loop
		rs_item.close		
		
		
		Dim sql,rs
		sql = "select * from menu where items=0 and shown=true order by order_num"
		set rs = conn.Execute(sql)
		dim script,tmp,sql2,rs2
		j=7
		do while not rs.eof
			sql2 = "select * from menu where items="&rs(0)
			set rs2 = conn.Execute(sql2)
			if rs2.bof and rs2.eof then
				if rs(0) =2 then
				 	tmp = "<a href='"&rs(2)&"' target='"&rs(3)&"' title='"&rs(4)&"' onmouseover=showmenu(event,0,1,false) onmouseout=delayhidemenu()>"& rs(1) &"</a> ●"
				elseif rs(0) =3 then
					tmp = "<a href='"&rs(2)&"' target='"&rs(3)&"' title='"&rs(4)&"' onmouseover=showmenu(event,1,1,false) onmouseout=delayhidemenu()>"& rs(1) &"</a> ●"
				elseif rs(0) =4 then
					tmp = "<a href='"&rs(2)&"' target='"&rs(3)&"' title='"&rs(4)&"' onmouseover=showmenu(event,2,1,false) onmouseout=delayhidemenu()>"& rs(1) &"</a> ●"
				elseif rs(0) =5 then
					tmp = "<a href='"&rs(2)&"' target='"&rs(3)&"' title='"&rs(4)&"' onmouseover=showmenu(event,3,1,false) onmouseout=delayhidemenu()>"& rs(1) &"</a> ●"
				elseif rs(0) =6 then
					tmp = "<a href='"&rs(2)&"' target='"&rs(3)&"' title='"&rs(4)&"' onmouseover=showmenu(event,4,1,false) onmouseout=delayhidemenu()>"& rs(1) &"</a> ●"
				elseif rs(0) =7 then
					tmp = "<a href='"&rs(2)&"' target='"&rs(3)&"' title='"&rs(4)&"' onmouseover=showmenu(event,5,1,false) onmouseout=delayhidemenu()>"& rs(1) &"</a> ●"
				elseif rs(0) =12 then
					tmp = "<a href='"&rs(2)&"' target='"&rs(3)&"' title='"&rs(4)&"' onmouseover=showmenu(event,6,1,false) onmouseout=delayhidemenu()>"& rs(1) &"</a> ●"
				else
					tmp = "<a href='"&rs(2)&"' target='"&rs(3)&"' title='"&rs(4)&"'>"& rs(1) &"</a> ●"
				end if
				j=j
			else
				j=j+1
				id=j
				pop = pop &"linkset["&j&"]=new Array()"&vbnewline
				Set rs_item = conn.Execute("Select * from menu where shown=true and items="&rs(0))
				i = -1
				do while not rs_item.eof
					i=i+1
					pop = pop &"linkset["&j&"]["&i&"]='<div class=menuitems><a href="&rs_item(2)&" target="&rs_item(3)&" title="&rs_item(4)&">"&rs_item(1)&"</a></div>'"&vbnewline
				rs_item.movenext
				loop
				rs_item.close
				tmp = "<a href='"&rs(2)&"' target='"&rs(3)&"' title='"&rs(4)&"' onmouseover=showmenu(event,"&id&",1,false) onmouseout=delayhidemenu()>"& rs(1) &"</a> ●"
			end if
			rs2.close
			script = script & tmp
		rs.movenext
		loop
		rs.close
		response.Write pop &"</script>"
		hx66menu = Left(script,len(script)-3)

'****************************************************
%>
<tr>
<td width="760" height="26" align="center"><font style="font-size:7px; color:ACACAC"><%=hx66menu%></font></td>
</tr>