menu.asp

来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 142 行

<%
'****************************************************
' Hxcms Ver7.5       Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
		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:    http://www.Hx66.net
		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_view.asp?cat_id="&rs_item(0)&">"&rs_item(1)&"</a></div>'"&vbnewline
		rs_item.movenext
		loop
		rs_item.close
		'===========
		'音乐菜单'Web:    http://www.Hx66.net
		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:    http://www.Hx66.net
		pop = pop &"linkset[3]=new Array()"&vbnewline
		Set rs_item = conn.execute("Select * from vidcat where sid =0 order by vidcat_id")
		i = -1
		do while not rs_item.eof
			i=i+1
			pop = pop &"linkset[3]["&i&"]='<div class=menuitems><a href=vid.asp?vidcat_id="&rs_item(0)&">"&rs_item(1)&"</a></div>'"&vbnewline
		rs_item.movenext
		loop
		rs_item.close
		'===========
		'图片菜单'Web:    http://www.Hx66.net
		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:    http://www.Hx66.net
		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

		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=6
		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> ●"
				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)
'****************************************************
' Hxcms Ver7.5       Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="table-hx66s" bgcolor=#FFFFFF>
  <tr>
    <td height="25"><table width="100%" border="0" cellspacing="0" cellpadding="0" class="table-top">
      <tr>
        <td height="28" align="center"><font style="font-size:7px; color:ACACAC"><%=hx66menu%></font></td>
      </tr></table>
    </td>
  </tr>
</table>