commonpage.inc

物业管理和办公自动化系统

		menu_id = menu_id + 1			'' 增加一个主菜单，工单管理
		menu = "mpmenu" & menu_id
		sTemp = sTemp & menu & "=new mMenu('工单管理','','self','','','','');" & vbLF
		
		if iR_Worksheet=1 or iR_Worksheet=2 then
			if iR_Worksheet=2 then
				sTemp = sTemp & menu & ".addItem(new mMenuItem('新增工作单','../worksheet/newworksheet.asp','self',false,'新增工作单',null,'','','',''));" & vbLF & vbLF		
			end if	
			sTemp = sTemp & menu & ".addItem(new mMenuItem('工作单管理','../worksheet/list_worksheet.asp','self',false,'工作单管理',null,'','','',''));" & vbLF & vbLF
		end if 	
		''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		
		''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		menu_id = menu_id + 1			'' 增加一个主菜单，意见管理
		menu = "mpmenu" & menu_id
		sTemp = sTemp & menu & "=new mMenu('意见管理','','self','','','','');" & vbLF
		              
		if iR_Customer=1 or iR_Customer=2 then
			if iR_Customer=2 then
				sTemp = sTemp & menu & ".addItem(new mMenuItem('新增客户意见','../complaint/newcomplaint.asp','self',false,'新增客户意见',null,'','','',''));" & vbLF & vbLF		                			
			end if	
			sTemp = sTemp & menu & ".addItem(new mMenuItem('客户意见查询','../complaint/list_complaint.asp','self',false,'客户意见查询',null,'','','',''));" & vbLF & vbLF
		end if
		''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		
		''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		menu_id = menu_id + 1			'' 增加一个主菜单，商户管理
		menu = "mpmenu" & menu_id
		sTemp = sTemp & menu & "=new mMenu('商户管理','','self','','','','');" & vbLF
		if iR_Equipment=1 or iR_Equipment=2 then
			if iR_Equipment=2 then
				sTemp = sTemp & menu & ".addItem(new mMenuItem('新增商户','../hr/newfirm.asp','self',false,'新增工作单',null,'','','',''));" & vbLF & vbLF		
			end if	
			sTemp = sTemp & menu & ".addItem(new mMenuItem('商户管理','../hr/list_firm.asp','self',false,'工作单管理',null,'','','',''));" & vbLF & vbLF
		end if 	
		''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		
		''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		menu_id = menu_id + 1			'' 增加一个主菜单，人事管理
		menu = "mpmenu" & menu_id
		sTemp = sTemp & menu & "=new mMenu('人事管理','','self','','','','');" & vbLF

		sub_id = sub_id + 1			'' 增加一个子菜单，主菜单编号递增1
		msub = "msub" & sub_id
		
		
		if iR_Hr=1 or iR_Hr=2 then		
			if iR_Hr=2 then
				sTemp = sTemp & menu & ".addItem(new mMenuItem('新增员工','../hr/emp_oa.asp','self',false,'新增员工',null,'','','',''));" & vbLF & vbLF
			end if
				
			sTemp = sTemp & msub & "=new mMenuItem('人事信息','','self',false,'','1','','','','');" & vbLF		
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('在职员工查询','../hr/emp_ol.asp','self',false,'在职员工查询',null,'','','',''));" & vbLF
			sTemp = sTemp & msub & ".addsubItem(new mMenuItem('离职员工查询','../hr/emp_odl.asp','self',false,'离职员工查询',null,'','','',''));" & vbLF
			sTemp = sTemp & menu & ".addItem(" & msub & ");" & vbLF
					
			sTemp = sTemp & menu & ".addItem(new mMenuItem('部门管理','../hr/node.asp','self',false,'部门管理',null,'','','',''));" & vbLF & vbLF
			
		end if
		
		'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

		
	end if
	MainMenu = _
			"<script language=javascript src=""../include/menu.js""></script>" & vbLF & _
			"<script language=""javascript"">" & vbLF & _
			sTemp & vbLF & _
			"mwritetodocument();" & vbLF & _
			"</script>" & vbLF
end function

'===========================================================================
'
'===========================================================================


'************************************************************************************************
' 函数名　: DateToday
' 输　入　: (无)
' 输　出　: DateToday函数名作为返回值，类型为字符串
' 功能描述: 返回格式如 “ 2002年05月13日 星期一 农历壬午(马)年四月初二 ” 的字符串，以显示当天日期信息
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-13
' 版　本　: 
'************************************************************************************************
function DateToday()
	' 公历 + 星期几 + 农历
	DateToday = "<font color=""#FFFFFF"">" & getGongliStr(date) & " " & getWeekdayStr(date) & " 农历" & getNongliStr(date) & "</font>"
end function

'************************************************************************************************
' 函数名　: Footer
' 输　入　: (无)
' 输　出　: Footer函数名作为返回值，类型为字符串
' 功能描述: 页面底部显示内容，目前仅是版权信息
' 调用模块: Copyrights()返回版权信息
' 作　者　: 周秋舫
' 日　期　: 2002-05-13
' 版　本　: 
'************************************************************************************************
Function Footer()
	Footer = _
	"<table width=""750"" height=""40"" border=""0"" cellspacing=""0"" cellpadding=""0"" background=""../images/bg/footer.gif"">" & _
		"<tr>" & _
			"<td>" & _
				"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""1"" align=""center"">" &_
					"<tr>" & _
						"<td align=center>" & Copyrights & _
						"</td><td><a style=""color:navy"" target=_blank href=""../../wuye_help/""><img border=0 src=""../images/help.gif"" align=absmiddle>帮助</a></td>" & _
					"</tr>" & _
				"</table>" & _
			"</td>" & _
		"</tr>" & _
	"</table>"
End Function

'************************************************************************************************
' 函数名　: Copyrights
' 输　入　: (无)
' 输　出　: Copyrights函数名作为返回值，类型为字符串
' 功能描述: 版权信息
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-13
' 版　本　: 
'************************************************************************************************
Function Copyrights()
	Copyrights = "<font color=""#FFFFFF"" face=""Arial, Helvetica, sans-serif"">上海市电信公司信息世界分公司" & _
							"&nbsp;&copy;All rights reserved by Shanghai Telecommunication company information world Branch</font>"
End Function

'************************************************************************************************
' 函数名　: DrawCal
' 输　入　: sInputDesp	: 日期输入框左边的描述
'		d			: 日期输入框显示的日期
'		sInputId		: 日期输入框的名称，即 input 的 name
'		sImgId		: 日历图标的名称
' 输　出　: 字符串
' 功能描述: 画日期输入框，单击日历图标或双击输入框可以弹出日历以便选择日期
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-29
' 版　本　: 
'************************************************************************************************
Function DrawCal(sInputDesp, d, sInputId, sImgId)
	DrawCal = "<span style=""color:black"">" & sInputDesp & "</span>" & _
		"<input maxlength=12 name=" & sInputId & " size=9 readonly value=""" & d & """" & _ 				
			" ondblclick=""javascript:document.all.href" &sImgId&".click();""" & _
			" title=""双击输入框或点击旁边的日历图标可以弹出日历"">" & _
		"<A id=href" & sImgId & _
			" href=""javascript:ShowCalendar(document.all." & sImgId & ",document.all." & sInputId & ",null)""" & _
			" onclick=""javascript:event.cancelBubble=true;""" & _
			" title=""点击图标可以选择" & sInputDesp & """>" & _
		"<IMG border=0 id=" & sImgId & _
			" src=""../include/cal/calendar.gif""" & _
			" style=""position:relative;vertical-align:middle""></A>"
End Function




'************************************************************************************************
' 以下几个函数用于制定整体页面的表格，显示内容的表格，以及表格名称表的外观等
' OuterTableHeader, OuterTableTailer 外表格，限定整体页面显示的宽度，背景色等
' InnerTableHeader, InnerTableTailer 内表格，限定主要内容显示的宽度，背景色等
' TableTitle 表格名称的表格，限定宽度，前景色和背景色等
'************************************************************************************************


'************************************************************************************************
' 函数名　: OuterTableHeader
' 输　入　: (无)
' 输　出　: 字符串
' 功能描述: 定制整体页面宽度的外表格，表头部分
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-31
' 版　本　: 
'************************************************************************************************
Function OuterTableHeader
	OuterTableHeader = _
		"<table width=770 border=0 cellspacing=0 cellpadding=0 align=center background=""../images/bg/bg0.gif"">" & _
		"<tr>" & _ 
		"	<td width=10>&nbsp;</td>" & _
		"	<td width=750 valign=top>"
End Function

'************************************************************************************************
' 函数名　: OuterTableTailer
' 输　入　: (无)
' 输　出　: 字符串
' 功能描述: 定制整体页面宽度的外表格，表尾部分
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-31
' 版　本　: 
'************************************************************************************************
Function OuterTableTailer
	OuterTableTailer = _
		"	</td>" & _
		"	<td width=10>&nbsp;</td>" & _
		"</tr>" & _
		"</table>"
End Function


'************************************************************************************************
' 函数名　: InnerTableHeader
' 输　入　: (无)
' 输　出　: 字符串
' 功能描述: 定制中间主要内容部分的内表格，表头部分
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-31
' 版　本　: 
'************************************************************************************************
Function InnerTableHeader
	InnerTableHeader = _
		"<table cellspacing=0 cellpadding=0 width=750 height=165 border=0 background=""../images/bg/indbg.gif"">" & _
		"<tr><td align=center valign=top><br>" & _
		"	<table width=680 cellspacing=0 cellpadding=12 border=0 background=""../images/bg/ctxw.gif"">" & _
		"	<tr><td align=center>"
End Function

'************************************************************************************************
' 函数名　: InnerTableTailer
' 输　入　: (无)
' 输　出　: 字符串
' 功能描述: 定制中间主要内容部分的内表格，表尾部分
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-31
' 版　本　: 
'************************************************************************************************
Function InnerTableTailer
	InnerTableTailer = _
		"	</td></tr></table>" & _
		"</td></tr></table>"
End Function

'************************************************************************************************
' 函数名　: TableTitle
' 输　入　: title		: 字符串类型，指定表格名称
'		w		: 指定表格名称表的宽度
'		color		: 指定表格名称表的前景色，缺省为白色
'		bgcolor	: 指定表格名称表的背景色
' 输　出　: 字符串
' 功能描述: 绘出表格名称的表格，指定表格名称，表格的宽度，表格的背景色和前景色
' 调用模块: 
' 作　者　: 周秋舫
' 日　期　: 2002-05-31
' 版　本　: 
'************************************************************************************************
Function TableTitle(title, w, color, bgcolor)
	dim sTitle		: sTitle = title
	dim iWidth		: iWidth = w
	dim sColor		: sColor = color
	dim sBgColor	: sBgColor = bgcolor
	dim s1, s2, s3

	if sTitle = "" then sTitle = "&nbsp;"
	if iWidth = "" then iWidth = 600		'' 宽度缺省为600
	if sColor = "" then sColor = "#FFFFFF"

	s1 = "<table width=" & iWidth & " cellspacing=0 cellpadding=1 border=0 background=""../images/bg/bnbg.gif"" align=center>"

	s2 = "<tr><td align=center style=""color:#FFFFFF;"
	if sColor <> "" then s2 = s2 & "color:" & sColor & ";"
	if sBgColor <> "" then s2 = s2 & "background-color:" & sBgColor & ";"
	s2 = s2 & "font-weight:600;"">" & sTitle & "</td></tr>"
	
	s3 = "</table>"

	TableTitle = s1 & s2 & s3
End Function

%>