js.asp

学生帐号是由管理员统一管理

<script Language="JavaScript">

//下拉菜单相关代码
 var h;
 var w;
 var l;
 var t;
 var topMar = 1;
 var leftMar = -4;
 var space = 1;
 var isvisible;
 var MENU_SHADOW_COLOR='#BBE0F0';   //定义下拉菜单阴影色
 var global = window.document
 global.fo_currentMenu = null
 global.fo_shadows = new Array

function HideMenu() 
{
 var mX;
 var mY;
 var vDiv;
 var mDiv;
	if (isvisible == true)
{
		vDiv = document.all("menuDiv");
		mX = window.event.clientX + document.body.scrollLeft;
		mY = window.event.clientY + document.body.scrollTop;
		if ((mX < parseInt(vDiv.style.left)) || (mX > parseInt(vDiv.style.left)+vDiv.offsetWidth) || (mY < parseInt(vDiv.style.top)-h) || (mY > parseInt(vDiv.style.top)+vDiv.offsetHeight)){
			vDiv.style.visibility = "hidden";
			isvisible = false;
		}
}
}

function ShowMenu(vMnuCode,tWidth) {
	vSrc = window.event.srcElement;
	vMnuCode = "<table id='submenu' cellspacing=2 cellpadding=2 style='border: 1px #444444 solid;width:"+tWidth+"' onmouseout='HideMenu()'><tr><td nowrap align=left height=20>" + vMnuCode + "</td></tr></table>";

	h = vSrc.offsetHeight;
	w = vSrc.offsetWidth;
	l = vSrc.offsetLeft + leftMar+4;
	t = vSrc.offsetTop + topMar + h + space-2;
	vParent = vSrc.offsetParent;
	while (vParent.tagName.toUpperCase() != "BODY")
	{
		l += vParent.offsetLeft;
		t += vParent.offsetTop;
		vParent = vParent.offsetParent;
	}

	menuDiv.innerHTML = vMnuCode;
	menuDiv.style.top = t;
	menuDiv.style.left = l;
	menuDiv.style.visibility = "visible";
	isvisible = true;
    makeRectangularDropShadow(submenu, MENU_SHADOW_COLOR, 4)
}

function makeRectangularDropShadow(el, color, size)
{
	var i;
	for (i=size; i>0; i--)
	{
		var rect = document.createElement('div');
		var rs = rect.style
		rs.position = 'absolute';
		rs.left = (el.style.posLeft + i) + 'px';
		rs.top = (el.style.posTop + i) + 'px';
		rs.width = el.offsetWidth + 'px';
		rs.height = el.offsetHeight + 'px';
		rs.zIndex = el.style.zIndex - i;
		rs.backgroundColor = color;
		var opacity = 1 - i / (i + 1);
		rs.filter = 'alpha(opacity=' + (100 * opacity) + ')';
		el.insertAdjacentElement('afterEnd', rect);
		global.fo_shadows[global.fo_shadows.length] = rect;
	}
}
//读取下拉菜单
<%
  dim menulist,rs_son,menulist_sum,menulist_name(18)
  set rs=conn.execute("select mid,mname,murl,mopen from menus where mfather=0 order by mid asc")
  do while not rs.eof
      menulist_sum=menulist_sum+1
	  menulist_name(menulist_sum)=rs("mname")      '父级菜单名，最多6个，若大于6则必须增加数组menulist_name上限
	  menulist_name(menulist_sum+6)=rs("murl")     '父级菜单地址。将菜单名、地址和打开方式都存到同一数组
	  menulist_name(menulist_sum+12)=rs("mopen")   '父级菜单打开方式
      set rs_son=conn.execute("select * from menus where mfather="&rs("mid")&"")
	  do while not rs_son.eof
	      if rs_son("mopen")=1 then
              menulist=menulist&"&nbsp;<a href=\'"&rs_son("murl")&"\' target=\'_blank\'>"&rs_son("mname")&"</a><br>"
		  else
		      menulist=menulist&"&nbsp;<a href=\'"&rs_son("murl")&"\'>"&rs_son("mname")&"</a><br>"
		  end if
          rs_son.movenext
      loop
	  set rs_son=nothing
%>
var menulists<%=menulist_sum%> = ' <%=menulist%> '
<%
	  menulist=""
      rs.movenext
  loop
  rs.close
  set rs=nothing
%>

</script>