admin_softcatemenu.asp

网络电视免费版

<!--#include file="Config.asp" -->
<%dim Rs,SubRs
  set Rs=server.createobject("adodb.recordset")
  set SubRs=server.createobject("adodb.recordset")
%>
//下拉菜单相关代码
 var h;
 var w;
 var l;
 var t;
 var topMar = 1;
 var leftMar = -2;
 var space = 1;
 var isvisible;
 var MENU_SHADOW_COLOR='#999999';//定义下拉菜单阴影色
 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=1 cellpadding=3 style='width:"+tWidth+"' class=tableborder1 onmouseout='HideMenu()'><tr height=23><td nowrap align=left class=tablebody1>" + 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;
	}
}

<%  
rs.open "select * from "&CategoryName&"_Cate order by CateID asc",conn,1,1
if not(rs.bof and rs.eof) then
 do while not rs.eof 
Response.Write "//"&rs("CateName")&"菜单" & vbcrlf
Response.Write "var catemenu"&rs("CateID")&"='"
    SubRs.open "select * from "&CategoryName&"_SubCate where CateID="&Rs("CateID")&" order by SubCateID asc",conn,1,1
	if SubRs.bof and SubRs.eof then
	    response.write "没有添加小类"
	else
	    do while not SubRs.eof 		
	    response.write "<a style=font-size:9pt;line-height:12pt; href=\""Admin_SoftList.asp?CateID="&SubRs("CateID")&"&SubCateID="&SubRs("SubCateID")&"\"">"&SubRs("SubCateName")&"</a><br>"
		SubRs.movenext
	    loop
	end if
	SubRs.close
Response.Write "'" & vbcrlf
 rs.movenext
 loop
end if
rs.close
'
%>
<%
  set rs=nothing
  set Subrs=nothing
CloseDatabase
%>