📄 commonpage.inc
字号:
<%
'************************************************************************************************
' 文件名: 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("../include/leaveinfor.asp","wLeave", "width=380,height=240,top=200,left=200");
return;
}
else
{
window.open("../include/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""> </td>" & _
"<td width=""200""> </td>" & _
"<td width=""350""> " & DateToday & "</td>" & _
"</tr>" & _
"<tr>" & _
"<td width=""200""> </td>" & _
"<td width=""200""> </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""> </td>" & _
"<td width=""200""> </td>" & _
"<td width=""350""> " & DateToday & "</td>" & _
"</tr>" & _
"<tr>" & _
"<td width=""200""> </td>" & _
"<td width=""200""> </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,sTemp1
dim sUserInfor
if IsAdministrator then
sUserInfor = "系统管理员，您好！"
else
sRoleName = DLookUp(conn, "select role_desp from t_role where role_id=" & ToSQL(GetRoleId,"Number"))
sUserInfor = GetUserName & "，您现在的身份是" & sRoleName & "！"
end if
if GetOnlineStatus = "on" then
sTemp = "<a id=""leave_action"" style=""color:white;cursor:hand"" OnClick=""JavaScript:LeaveHere();"">我要离开</a>"
sLeaveInfor = "<a href=""../include/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>"
sTemp1=ToHTML(DLookUp(conn, "select Leave_Infor from T_OnlineStatus where account_id=" & ToSQL(GetUserId,"Text")))
sLeaveInfor = "您的留言：" & Bref(sTemp1,30)
sLeaveInforTitle = sTemp1
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=""../include/pwdmgr.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""></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
dim iR_Customer,iR_Stock,iR_Purchase,iR_Hr,iR_Worksheet,iR_Equipment
if Not IsOnline then
'' 如果不在线，则显示 “我回来了” 菜单
sTemp = "mpmenu=new mMenu('我要回来','../include/backinfor.asp','blank','','','');"
elseif IsAdministrator then
'' 如果是在线的系统管理员，则只显示系统管理员相关操作的菜单
sTemp = "mpmenu=new mMenu('日常事务','','self','','','','');" & vbLF
sTemp = sTemp & "mpmenu.addItem(new mMenuItem('密码管理','../include/pwdmgr.asp','self',false,'密码管理',null,'../images/pwd.gif','14','10','0'));" & vbLF
sTemp = sTemp & "mpmenu.addItem(new mMenuItem('留言信息','../include/online.asp','self',false,'留言信息',null,'../images/leaveword.gif','14','11','0'));" & vbLF
sTemp = sTemp & "mpmenu2=new mMenu('用户管理','','self','','','','');" & vbLF
sTemp = sTemp & "mpmenu2.addItem(new mMenuItem('新增用户','../admin/user.asp','self',false,'新增用户',null,'','','',''));" & vbLF
sTemp = sTemp & "mpmenu2.addItem(new mMenuItem('用户列表','../admin/list_user.asp','self',false,'用户列表',null,'','','',''));" & vbLF
sTemp = sTemp & "mpmenu3=new mMenu('角色管理','','self','','','','');" & vbLF
sTemp = sTemp & "mpmenu3.addItem(new mMenuItem('新增角色','../admin/newrole.asp','self',false,'新增角色',null,'','','',''));" & vbLF
sTemp = sTemp & "mpmenu3.addItem(new mMenuItem('角色列表','../admin/list_role.asp','self',false,'角色列表',null,'','','',''));" & vbLF
else
'' 如果不是系统管理员，则显示普通菜单
iR_Customer=HasRight(ID_CUSTOMER)
iR_Stock=HasRight(ID_STOCK)
iR_Purchase=HasRight(ID_PURCHASE)
iR_Hr=HasRight(ID_HR)
iR_Worksheet=HasRight(ID_WORKSHEET)
iR_Equipment=HasRight(ID_EQUIPMENT)
sTemp = "mpmenu=new mMenu('日常事务','','self','','','','');" & vbLF
sTemp = sTemp & "mpmenu.addItem(new mMenuItem('密码管理','../include/pwdmgr.asp','self',false,'密码管理',null,'../images/pwd.gif','14','10','0'));" & vbLF
sTemp = sTemp & "mpmenu.addItem(new mMenuItem('留言信息','../include/online.asp','self',false,'留言信息',null,'../images/leaveword.gif','14','11','0'));" & vbLF
menu_id = 1
sub_id = 0
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
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
sTemp = sTemp & menu & ".addItem(new mMenuItem('系统管理','../equipment/sysmgr.asp','self',false,'系统管理',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('新增设备','../equipment/equipmgr.asp','self',false,'新增设备',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('系统维保计划管理','../equipment/sysplanmgr.asp','self',false,'系统维保计划管理',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('系统维保记录查询','../equipment/maintain_record.asp','self',false,'系统维保记录查询',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('按系统查询设备','../equipment/queryequip.asp','self',false,'按系统查询设备',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('按系统统计设备量','../equipment/equip_statistic.asp','self',false,'按系统统计设备数量',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('按类别统计设备量','../equipment/equi_statistic_by_type.asp','self',false,'按类别统计设备数量',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('设备类型管理','../equipment/typemgr.asp','self',false,'设备类型管理',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('机房管理','../equipment/room_mgr.asp','self',false,'机房管理',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('设备查询','../equipment/equi_list.asp','self',false,'设备查询',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('维保计划查询','../equipment/equi_mtplan_list.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_Stock=1 or iR_Stock=2 then
if hasright(ID_STOCK) < RIGHT_WRITE then
sTemp = sTemp & menu & ".addItem(new mMenuItem('库存查询','../stock/goods_query.asp','self',false,'库存查询',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('仓库管理','../stock/depot_list.asp','self',false,'仓库管理',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('出入库单管理','../stock/sheet_mgr.asp','self',false,'出入库单管理',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('进出库汇总','../stock/sheet_stock.asp','self',false,'进出库汇总',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('仓库报表','../stock/sheet_goods.asp','self',false,'仓库报表',null,'','','',''));" & vbLF & vbLF
else
sTemp = sTemp & menu & ".addItem(new mMenuItem('库存查询','../stock/goods_query.asp','self',false,'库存查询',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('仓库管理','../stock/depot_list.asp','self',false,'仓库管理',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('物品类别管理','../stock/type_mgr.asp','self',false,'物品类别管理',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('出入库单管理','../stock/sheet_mgr.asp','self',false,'出入库单管理',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('物品入库','../stock/goods_input.asp','self',false,'物品入库',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('物品出库','../stock/output.asp','self',false,'物品出库',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('物品移动','../stock/goods_move.asp','self',false,'物品移动',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('进出库汇总','../stock/sheet_stock.asp','self',false,'进出库汇总',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('仓库报表','../stock/sheet_goods.asp','self',false,'仓库报表',null,'','','',''));" & vbLF & vbLF
end if
end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
menu_id = menu_id + 1 '' 增加一个主菜单,采购管理
menu = "mpmenu" & menu_id
sTemp = sTemp & menu & "=new mMenu('采购管理','','self','','','','');" & vbLF
if iR_Purchase=1 or iR_Purchase=2 then
if hasright(ID_STOCK) < RIGHT_WRITE then
sTemp = sTemp & menu & ".addItem(new mMenuItem('采购单管理','../purchase/purchase_mgr.asp','self',false,'采购单管理',null,'','','',''));" & vbLF & vbLF
else
sTemp = sTemp & menu & ".addItem(new mMenuItem('新建采购单','../purchase/purchase_new.asp','self',false,'新建采购单',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('采购单管理','../purchase/purchase_mgr.asp','self',false,'采购单管理',null,'','','',''));" & vbLF & vbLF
sTemp = sTemp & menu & ".addItem(new mMenuItem('采购提醒处理','../purchase/purchase_remind.asp','self',false,'采购提醒处理',null,'','','',''));" & vbLF & vbLF
end if
end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -