📄 commonpage.inc

📁 物业管理和办公自动化系统
💻 INC
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<%
'************************************************************************************************
' 文件名: commonpage.inc
' Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司

' 　创建人 : 周秋舫
' 　日　期 : 2002-05-08
' 修改历史 :
'   ****年**月**日 ****** 修改内容:**************************************************
' 功能描述 : 其它常用函数
'           HeaderWithMenu		' 页面头部，不带菜单
'           HeaderWithoutMenu	' 页面头部，带菜单
'           LoginInfor			' 登录信息
'           MainMenu			' 主菜单
'           Footer				' 页面底部
'           Copyrights			' 版权信息
'           DateToday			' 今日日历
'	    DrawCal
'	    OuterTableHeader
'	    OuterTableTailer
'		InnerTableHeader
'	    InnerTableTailer
'	    TableTitle
' 　版　本 :
'************************************************************************************************
%>
<script language="javascript">
function LeaveHere()
{
	if (document.all.leave_action.innerText == "我要离开")
	{
		window.open("../common/leaveinfor.asp","wLeave", "width=380,height=240,top=200,left=200");
		return;
	}
	else
	{
		window.open("../common/backinfor.asp", "wBack", "width=350,height=120,top=300,left=300");
		return;
	}
}
</script>

<%
function HeaderWithoutMenu()
	Response.write _
	"<table width=""750"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""100"" background=""../images/bg/index.gif"">" & _
		"<tr>" & _ 
			"<td valign=""bottom"" align=""right"">" & _
				"<table width=""750"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & _
					"<tr>" & _
						"<td width=""200"">&nbsp;</td>" & _
						"<td width=""200"">&nbsp;</td>" & _
						"<td width=""350"">&nbsp;" & DateToday & "</td>" & _
					"</tr>" & _
					"<tr>" & _
						"<td width=""200"">&nbsp;</td>" & _
						"<td width=""200"">&nbsp;</td>" & _
						"<td width=""350"">" & LoginInfor & "</td>" & _
					"</tr>" & _
				"</table>" & _
			"</td>" & _
		"</tr>" & _
	"</table>"
end function

function HeaderWithMenu()
	Response.write _
	"<table width=""750"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""100"" background=""../images/bg/index.gif"">" & _
		"<tr>" & _ 
			"<td valign=""bottom"" align=""right"">" & _
				"<table width=""750"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & _
					"<tr>" & _
						"<td width=""200"">&nbsp;</td>" & _
						"<td width=""200"">&nbsp;</td>" & _
						"<td width=""350"">&nbsp;" & DateToday & "</td>" & _
					"</tr>" & _
					"<tr>" & _
						"<td width=""200"">&nbsp;</td>" & _
						"<td width=""200"">&nbsp;</td>" & _
						"<td width=""350"">" & LoginInfor & "</td>" & _
					"</tr>" & _
				"</table>" & _
				MainMenu & _
			"</td>" & _
		"</tr>" & _
	"</table>"
end function


Function MaxMinButton()
	'' 最大化，最小化和关闭按钮
	MaxMinButton = vbLF & _
		"<img border=0 width=20 height=0>" & vbLF & _
		"<OBJECT id=""min"" type=""application/x-oleobject"" classid=""clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"">" & vbLF & _
		"<PARAM name=""Command"" value=""Minimize""></OBJECT>" & vbLF & _
		"<span onclick=""min.Click()""><img border=0 src=""../images/minimize.gif""></span>" & vbLF & _

		"<OBJECT id=""max"" type=""application/x-oleobject"" classid=""clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"">" & vbLF & _
		"<PARAM name=""Command"" value=""Maximize""></OBJECT>" & vbLF & _
		"<span onclick=""max.Click()""><img border=0 src=""../images/maximize.gif""></span>" & vbLF & _
		
		"<!--OBJECT id=""clo"" type=""application/x-oleobject"" classid=""clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"">" & vbLF & _
		"<PARAM name=""Command"" value=""Close""></OBJECT>" & vbLF & _
		"<button onclick=""clo.Click()""><font face=""webdings"">r</font></button-->" & vbLF & vbLF
End Function

function LoginInfor()
	Dim sRoleName, sLeaveInfor, sTemp, sLeaveInforTitle
	sRoleName = DLookUp(dbLocal, "T_Role", "Role_desp", "role_id=" & ToSQL(GetRoleId,"Number"))

	if GetOnlineStatus = "on" then
		sTemp = "<a id=""leave_action"" style=""color:white;cursor:hand"" OnClick=""JavaScript:LeaveHere();"">我要离开</a>"
		sLeaveInfor = "<a href=""../common/main.asp"" style=""color:white""><img border=0 src=""../images/bg/ar-w.gif"" width=""8"" height=""8"">回到首页</a>"
		sLeaveInforTitle = ""
	else
		sTemp = "<a id=""leave_action"" style=""color:white;cursor:hand"" OnClick=""JavaScript:LeaveHere();"">我回来了</a>"
		sLeaveInfor = "您的留言：" & Bref(ToHTML(DLookUp(dbLocal, "T_OnlineStatus", "Leave_Infor", "account_id=" & ToSQL(GetUserId,"Text"))),30)
		sLeaveInforTitle = sLeaveInfor
	end if

	dim sUserInfor
	if IsAdministrator then
		sUserInfor = "系统管理员，您好！"
	else
		sUserInfor = GetUserName & "，您现在的身份是" & sRoleName & "！"
	end if

	'' MsgMonitor，消息监视，如果是系统管理员，不提供消息
	'' 2003-1-13 modified by zhouqiufang
	''					将window.open函数中第三个参数值"fullscreen,resizable"中的fullscreen去掉了，
	''					否则在IE6.0中会全屏显示而不理睬后面的resizeTo调用
	dim sMsgLink	: sMsgLink = ""
	if Not IsAdministrator then
		sMsgLink = "<span onclick=""javascript:window.open('../message/monitor.asp?option=1','wMsgList','resizable,width=180,height=414,top=1,left=1');""><img border=0 src=""../images/eye.gif"" style=""cursor:hand"">消息监视器</span>"
	end if
	
	LoginInfor = _
	"<table width=""350"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & _
		"<tr>" & _ 
			"<td><img src=""../images/bg/line-b.gif"" width=""300"" height=""3""></td>" & _
		"</tr>" & _
		"<tr>" & _ 
			"<td>" & _
				"<table cellspacing=0 cellpadding=1 id=""tblLogged"" border=0 valign=top width=340 style=""table-layout:fixed"">" & _
					"<tr style=""display:none"">" & vbLF & _
					"	<td width=70></td>" & vbLF & _
					"	<td width=70></td>" & vbLF & _
					"	<td width=70></td>" & vbLF & _
					"	<td width=""*""></td>" & vbLF & _
					"</tr>" & vbLF & _
					"<tr>" & _
						"<td colspan=4 nowrap><font color=""#FFFFFF""><img src=""../images/bg/ar-w.gif"" width=""8"" height=""8"">" & _
							sUserInfor & "</font></td>" & _
					"</tr>" & _
					"<tr>" & _ 
						"<td><img src=""../images/bg/ar-w.gif"" width=""8"" height=""8"">" & _
							sTemp & "</td>" & _
						"<td><img src=""../images/bg/ar-w.gif"" width=""8"" height=""8""><a style=""cursor:hand;color:white"" href=""../role/changepwd.asp"">" & _
							"修改密码</a></td>" & _
						"<td style=""color:white""><span  onclick=""var strHref=window.location.href;this.style.behavior='url(#default#homepage)';this.setHomePage('http://infoserver/oa/');""  style=""cursor: hand""><img src=""../images/bg/ar-w.gif"" width=""8"" height=""8"">设为首页</a></span></td>" & _
						"<td style=""color:white;cursor:hand"">" & sMsgLink & "</td>" & _
					"</tr>" & _
					"<tr>" & _ 
						"<td colspan=1  style='color:#FFFFFF' nowrap> " & "<img src=""../images/bg/ar-w.gif"" width=""8"" height=""8""><a style=""cursor:hand;color:white"" href=""http://infoserver:8383"" target=""_blank"">邮件服务</a>" & "</td>" & _
						"<td colspan=3 id='liuyan' style='color:#FFFFFF' nowrap title=""" & sLeaveInforTitle & """>" & sLeaveInfor & "</td>" & _
					"</tr>" & _
				"</table>" & _
			"</td>" & _
		"</tr>" & _
		"<tr>" & _ 
			"<td><img src=""../images/bg/line-b.gif"" width=""300"" height=""3""></td>" & _
		"</tr>" & _
	"</table>"
end function


function MainMenu()
	dim sTemp, sAdminLevel
	dim menu_id, sub_id, menu, msub

	if Not IsOnline then
		'' 如果不在线，则显示 “我回来了” 菜单
		sTemp = "mpmenu=new mMenu('我回来了','../common/backinfor.asp','blank','','','');"
	elseif IsAdministrator then
	''if IsAdministrator then
		'' 如果是在线的系统管理员，则只显示系统管理员相关操作的菜单
		sTemp = "mpmenu=new mMenu('密码管理','','self','','','','');" & vbLF
		sTemp = sTemp & "mpmenu.addItem(new mMenuItem('修改密码','../role/changepwd.asp','self',false,'修改密码',null,'../images/pwd.gif','14','10','0'));" & vbLF
		sTemp = sTemp & "mpmenu.addItem(new mMenuItem('设置密码提示','../role/changeqanda.asp','self',false,'修改密码',null,'../images/question.gif','14','11','0'));" & vbLF

		sTemp = sTemp & "mpmenu2=new mMenu('用户管理','../role/list_user.asp','self','','','','');" & vbLF
		sTemp = sTemp & "mpmenu3=new mMenu('角色管理','../role/list_role.asp','self','','','','');" & vbLF
		sTemp = sTemp & "mpmenu4=new mMenu('特殊角色','../admin/specialpost.asp','self','','','','');" & vbLF

		'' 大楼动态改成由特殊角色指定的人员进行管理
		'sTemp = sTemp & "mpmenu5=new mMenu('大楼动态','../news/news_e.asp','self','','','','');" & vbLF
	else
		'' 如果不是系统管理员，则显示普通菜单
		sTemp = "mpmenu=new mMenu('日常事务','','self','','','','');" & vbLF
		sTemp = sTemp & "	mpmenu.addItem(new mMenuItem('待办事宜','../task/tasktodo.asp','self',false,'待办事宜（已经安排好的我需要做的事情）、任务管理（我布置任务给自己或他人）',null,'../images/task.gif','14','11','0'));" & vbLF
		sTemp = sTemp & "	mpmenu.addItem(new mMenuItem('消息管理','../message/msg.asp','self',false,'察看消息、发送消息',null,'../images/msg.gif','14','11','0'));" & vbLF
		sTemp = sTemp & "	mpmenu.addItem(new mMenuItem('通 讯 录','../card/pcard_l.asp','self',false,'个人通讯录',null,'../images/pcard.gif','14','11','0'));" & vbLF
		sTemp = sTemp & "	mpmenu.addItem(new mMenuItem('单位名录','../card/ccard_l.asp','self',false,'单位名录',null,'../images/ccard.gif','14','11','0'));" & vbLF
		sTemp = sTemp & "	mpmenu.addItem(new mMenuItem('留言信息','../message/online.asp','self',false,'察看留言信息',null,'../images/leaveword.gif','14','12','0'));" & vbLF & vbLF

		sTemp = sTemp & "	mpmenu.addItem(new mMenuItem('修改密码','../role/changepwd.asp','self',false,'修改密码',null,'../images/pwd.gif','14','10','0'));" & vbLF
		sTemp = sTemp & "	mpmenu.addItem(new mMenuItem('设置密码提示','../role/changeqanda.asp','self',false,'修改密码',null,'../images/question.gif','14','11','0'));" & vbLF & vbLF

		menu_id = 1
		sub_id = 0
		''##########################################################
		'' 工作管理主菜单，主菜单编号递增1
		menu_id = menu_id + 1
		menu = "mpmenu" & menu_id

		sAdminLevel = CStr(GetAdminLevel)		'' 获取管理级别，在工作管理这一块要用到
		sTemp = sTemp & menu & "=new mMenu('工作管理','','self','','','','');" & vbLF
		''##########################################################


		'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		'' 工作日志子菜单
		sub_id = sub_id + 1		'' 增加一个子菜单，子菜单编号递增1
		msub = "msub" & sub_id
		'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		sTemp = sTemp & msub & "=new mMenuItem('工作日志','','self',false,'','1','','','','');" & vbLF
		sTemp = sTemp & msub & ".addsubItem(new mMenuItem('工作日志查询','../workmgr/diaryquery.asp','self',false,'查询工作日志',null,'','','',''));" & vbLF
		sTemp = sTemp & msub & ".addsubItem(new mMenuItem('填写工作日志','../workmgr/diarydetail.asp','self',false,'填写工作日志',null,'','','',''));" & vbLF
		sTemp = sTemp & menu & ".addItem(" & msub & ");" & vbLF & vbLF
	
		'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		'' 工作计划子菜单
		'' 个人工作计划：除部门经理级外，其他人都显示个人工作计划菜单
		'' 部门工作计划：只有部门经理级显示部门工作计划菜单
		'' 下级工作计划：公司领导级显示各部门工作计划；部门经理级显示下级工作计划
		'' 公司工作计划：每个人都显示公司工作计划
		sub_id = sub_id + 1		'' 增加一个子菜单，子菜单编号递增1
		msub = "msub" & sub_id
		'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

		sTemp = sTemp & msub & "=new mMenuItem('工作计划','','self',false,'','1','','','','');" & vbLF

		'' 个人／部门工作计划
		if sAdminLevel = "2" then	'' 部门经理级显示部门工作计划菜单
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('部门工作计划','../workmgr/plandepartment.asp','self',false,'部门工作计划',null,'','','',''));" & vbLF
		else									'' 其他显示个人工作计划菜单
12 3 下一页
⌨️ 快捷键说明

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