📄 menu.asp

📁 一个软件工程的软件质量web跟踪管理系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@ Language=VBScript %>
<%Response.Expires=0
Response.Buffer = False
%>
<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<head><script LANGUAGE="JAVASCRIPT">
	OB_Top=0;									//菜单距离顶部的象素值；
	OB_Left=0;									//菜单距离左侧的象素值；
	OB_Margin=10;								//top and bottom margins between icons and borders
	OB_Width=96;								//菜单宽度
	OB_Height=370;								//菜单高度
	OB_SlideSpeed=1.5;							//菜单运动速度
	OB_BackgroundColor="#FFFFFF";
		//背景色
	OB_ItemsSpacing=20;							//2个图标间的距离
	OB_BorderWidth=3;							//border宽度
	OB_BorderStyle="ridge";						//border风格
	OB_BorderColor="#FFFFFF";					//border颜色
	OB_IconsWidth=32;							//图标宽度
	OB_IconsHeight=32;							//图标高度
	OB_ButtonFontFamily="arial";	
		//按钮上字体的字型
	OB_ButtonFontSize=9;						//按钮上字体大小 
	OB_ButtonFontColor="200060";					//按钮上字体颜色    
	OB_ButtonHeight=25;							//按钮的高度
	OB_LabelFontFamily="arial";					//LOGO下字体的字型
	OB_LabelFontSize=9;							//LOGO下面的字体大小
	OB_LabelFontColor="black";					//LOGO下的字体颜色
	OB_LabelMargin=3;							//margin between labels and icons
	OB_UpArrow="upturn.gif";					//向上滚动的logo箭头	
	OB_DownArrow="adown.gif";		
		//向下滚动的logo箭头
	OB_ArrowWidth=15;							//箭头的宽度
	OB_ArrowHeight=15;							//箭头的高度
	OB_ArrowSlideSpeed=10;						//项目列表滚动的速度；
if (document.all){
<%  
	set cn=session("AdoConnectObj")
	set rs=server.CreateObject("ADODB.Recordset")
	rs.CursorLocation=3  'adUseClient
	strSQL="SELECT a_SysModule.ModuleName,a_SysModule.ModuleID,a_RoleRight.Limit FROM a_SysModule INNER JOIN a_RoleRight ON a_SysModule.ModuleID = a_RoleRight.ModuleID and Right(a_RoleRight.ModuleID,2)='00'  WHERE a_RoleRight.RoleID =(SELECT ROLEID FROM a_Employee Where OperID='"&session("OperID")&"') order by a_SysModule.SequenceNo"
	rs.Open strSQL,cn,3.3
	rs.Movefirst
	intF=0
	strFolder="OutBarFolder"
	for i=1 to rs.RecordCount
		intF=intF+1
		strtmpFolder=strFolder & CStr(intF)
		strModuleID=rs("ModuleID")
		strModuleName=rs("ModuleName")
		if rs("Limit")="0" then   '0-说明该主功能之子功能全选
			set tmpRS=server.CreateObject("ADODB.Recordset")
	        tmpRS.CursorLocation=3  'adUseClient
			strSQL="Select ModuleName,Href,MenuGif from a_SysModule where Left(ModuleID,3)='"& Left(strModuleID,3) &"' and Right(ModuleID,2)<>'00'  order by a_SysModule.SequenceNo"
			tmpRS.Open strSQL,cn,3.3
			strtmpFolder=strtmpFolder & "=new Array(" & "'"& strModuleName & "'"
			tmpRS.movefirst
			strtmpFolder1=""
			for j=1 to tmpRS.RecordCount
				strtmpModuleName=tmpRs("ModuleName")
				strtmpFolder1=strtmpFolder1+",'"+tmpRS("MenuGif")+"','"+strtmpModuleName+"','"+tmpRS("Href")+"','parent.main'"
				if not tmpRS.eof then 
					tmpRS.movenext 
				end if
			next
			'document.write(strtmpFolder+strtmpFolder1+");")
			set tmpRS=nothing 
		else
			set tmpRS=server.CreateObject("ADODB.Recordset")
	        tmpRS.CursorLocation=3  'adUseClient
			strSQL="SELECT a_SysModule.ModuleName,a_SysModule.Href,a_SysModule.MenuGif FROM a_SysModule INNER JOIN a_RoleRight ON a_SysModule.ModuleID = a_RoleRight.ModuleID and Right(a_RoleRight.ModuleID,2)<>'00'and left(a_RoleRight.ModuleID,3)='"& left(strModuleID,3) &"'   WHERE a_RoleRight.RoleID =(SELECT ROLEID FROM a_Employee Where OperID='"&session("OperID")&"') order by a_SysModule.SequenceNo"
			tmpRS.Open strSQL,cn,3.3
			strtmpFolder=strtmpFolder & "=new Array(" & "'"& strModuleName & "'"
			tmpRS.movefirst
			strtmpFolder1=""
			for j=1 to tmpRS.RecordCount
				strtmpModuleName=tmpRs("ModuleName")
				strtmpFolder1=strtmpFolder1+",'"+tmpRS("MenuGif")+"','"+strtmpModuleName+"','"+tmpRS("Href")+"','parent.main'"
				if not tmpRS.eof then 
					tmpRS.movenext 
				end if
			next
			'document.write(strtmpFolder+strtmpFolder1+");")
			set tmpRS=nothing
		end if
		if not rs.eof then 
			rs.movenext 
		end if
%>
<%=strtmpFolder+strtmpFolder1+");"+chr(10)+chr(13)%>
<%		
	next
	set rs=nothing
%>

document.write("<DIV id='OutlookLikeBar' style='position:absolute;top:"+OB_Top+";left:"+OB_Left+";width:"+OB_Width+";height:"+OB_Height+";border:"+OB_BorderWidth+" "+OB_BorderStyle+" "+OB_BorderColor+";background-color:"+OB_BackgroundColor+";z-index:0;visibility:hidden;clip:rect(0,"+OB_Width+","+OB_Height+",0)'>");
document.write("<img onMouseUp='OutlookLikeBar.ArrowSelected(this)' onMouseDown='OutlookLikeBar.ArrowClicked(this)' onMouseOver='OutlookLikeBar.OverArrow(this)' onMouseOut='OutlookLikeBar.OutArrow(this)' id='OB_SlideUp' height='"+OB_ArrowHeight+"' width='"+OB_ArrowWidth+"' src='"+OB_UpArrow+"' style='position:absolute;top:0;left:0;cursor:hand;visibility:hidden;z-index:500'>");
document.write("<img onMouseUp='OutlookLikeBar.ArrowSelected(this)' onMouseDown='OutlookLikeBar.ArrowClicked(this)' onMouseOver='OutlookLikeBar.OverArrow(this)' onMouseOut='OutlookLikeBar.OutArrow(this)' id='OB_SlideDown' height='"+OB_ArrowHeight+"' width='"+OB_ArrowWidth+"' src='"+OB_DownArrow+"' style='position:absolute;top:0;left:0;cursor:hand;visibility:hidden;z-index:500'>");
j=1;
while(eval("window.OutBarFolder"+j))
	j++;
i=j-1;
while(i>0)
{
	Folder=eval("OutBarFolder"+i)
	window.status="测试用例原型系统 '"+Folder[0]+"'";
	if(i==1)
	{
		document.write("<INPUT position='UP' id='OB_Button1' onDblClick='OutlookLikeBar.FolderClicked("+i+");this.blur()' onClick='OutlookLikeBar.FolderClicked("+i+");this.blur()' TYPE='button' value='"+Folder[0]+"' style='position:absolute;top:0;left:0;width:90;height:"+OB_ButtonHeight+";font-family:"+OB_ButtonFontFamily+";font-size:"+OB_ButtonFontSize+"pt;cursor:hand;color:"+OB_ButtonFontColor+";z-index:100'>");
		MakeItems(Folder,i,OB_ButtonHeight);		
	}	
	else
	{
		document.write("<INPUT position='DOWN' id='OB_Button"+i+"' onDblClick='OutlookLikeBar.FolderClicked("+i+");this.blur()' onClick='OutlookLikeBar.FolderClicked("+i+");this.blur()' TYPE='button' value='"+Folder[0]+"' style='position:absolute;top:"+(OB_Height-(j-i)*OB_ButtonHeight-OB_BorderWidth*2)+";left:0;width:90;height:"+OB_ButtonHeight+";font-family:"+OB_ButtonFontFamily+";font-size:"+OB_ButtonFontSize+"pt;cursor:hand;color:"+OB_ButtonFontColor+";z-index:100'>");
		MakeItems(Folder,i,(OB_Height-(j-i)*OB_ButtonHeight-OB_BorderWidth*2)+OB_ButtonHeight);		
	}		
	i--;
}	
document.write("</DIV>");
var OutlookLikeBar=new OutBar(OB_Width,OB_Height,j-1,OB_ButtonHeight,OB_BorderWidth,OB_SlideSpeed,OB_IconsHeight+OB_LabelFontSize+OB_LabelMargin+OB_ItemsSpacing,OB_ArrowSlideSpeed);
window.status="测试用例原型系统！";
document.all["OutlookLikeBar"].style.visibility="visible";

function MakeItems(Folder,zorder,top)
{
	var items=0;
	var folderWidth=(OB_Width-OB_BorderWidth*2);
	while(Folder[items+1])
		items+=4;  
	items/=4;
	document.write("<DIV id='OB_Folder"+zorder+"' style='position:absolute;left:0;top:"+top+";width:"+folderWidth+";height:"+(OB_Margin*2+items*(OB_IconsHeight+OB_LabelFontSize+OB_LabelMargin)+(items-1)*OB_ItemsSpacing)+";z-index:"+zorder+";clip:rect(0 0 0 0);'>");
	for(var i=1;i<items*4;i+=4)
	{
		document.write("<div targetFrame='"+Folder[i+3]+"' link='"+Folder[i+2]+"' onMouseDown='OutlookLikeBar.ItemClicked(this)' onMouseUp='OutlookLikeBar.ItemSelected(this)' onMouseOver='OutlookLikeBar.OverItems(this)' onMouseOut='OutlookLikeBar.OutItems(this)' style='position:absolute;left:"+(Math.ceil((OB_Width-OB_BorderWidth*2-OB_IconsHeight)/2)-1)+";top:"+(OB_Margin+Math.ceil((i-1)/4)*(OB_ItemsSpacing+OB_LabelFontSize+OB_IconsHeight))+";cursor:hand;clip:rect(0 "+OB_IconsWidth+" "+OB_IconsHeight+" 0;width:"+OB_IconsWidth+";height:"+OB_IconsHeight+"'>");
 		document.write("<img src='"+Folder[i]+"'>");
		document.write("</div>");
		document.write("<div align='center' style='position:absolute;left:0;top:"+(OB_LabelMargin+OB_IconsHeight+OB_Margin+Math.ceil((i-1)/4)*(OB_ItemsSpacing+OB_LabelFontSize+OB_IconsHeight))+";font-family:"+OB_LabelFontFamily+";font-size:"+OB_LabelFontSize+"pt;color:"+OB_LabelFontColor+"'>");
		document.write(Folder[i+1]);
		document.write("</div>");
	}	
	document.write("</DIV>");
}


function OutBar(width,height,items,buttonHeight,borderWidth,slideSpeed,slideArrowValue,ArrowSlideSpeed)
{
	this.currentFolder=1;
	this.currentItem=null;
	this.slideCount=0;
	this.slideStep=1;
	this.slideArrowValue=slideArrowValue;
	this.slideSpeed=slideSpeed;
	this.borderWidth=borderWidth;
	this.width=width;
	this.visibleAreaHeight=height-2*borderWidth-items*buttonHeight;
	this.visibleAreaWidth=width;
	this.FolderClicked=FolderClicked;
	this.SlideFolders=SlideFolders;
	this.ItemClicked=ItemClicked;
	this.ItemSelected=ItemSelected;
	this.OverItems=OverItems;
	this.OutItems=OutItems;
	this.OverArrow=OverArrow;
	this.OutArrow=OutArrow;
	this.ArrowClicked=ArrowClicked;
	this.ArrowSelected=ArrowSelected;
	this.ArrowSlideSpeed=ArrowSlideSpeed;
	this.SlideItems=SlideItems;
	this.SlideItemsAction=SlideItemsAction;
	this.Start=Start;
	this.ClipFolder=ClipFolder;
	this.SetArrows=SetArrows;
	this.HideArrows=HideArrows;
	this.sliding=false;
	this.items=items;
	this.started=false;
	this.Start();
}

function FolderClicked(folder)
{
	if(this.sliding)
		return;
	if(folder==this.currentFolder)
		return;
	this.sliding=true;		
	this.slideCount=this.visibleAreaHeight;
	this.slideStep=1;
	this.countStep=0;
	this.HideArrows();
	this.SlideFolders(folder,document.all["OB_Button"+folder].position=="DOWN");
}

function SlideFolders(folder,down)
{
	var step;	
	if(down)
	{
		this.slideCount-=Math.floor(this.slideStep);
		if(this.slideCount<0)
			this.slideStep+=this.slideCount;
		step=Math.floor(this.slideStep);
		for(var i=2;i<=folder;i++)
			if(document.all["OB_Button"+i].position=="DOWN")
			{
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -