📄 commonpage.inc.bak
字号:
<%
'************************************************************************************************
' 文件名: 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
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>"
sLeaveInfor = "您的留言：" & Bref(ToHTML(DLookUp(conn, "select Leave_Infor from T_OnlineStatus where account_id=" & ToSQL(GetUserId,"Text"))),30)
sLeaveInforTitle = sLeaveInfor
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=""../admin/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=4 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 iRight
if Not IsOnline then
'' 如果不在线，则显示 “我回来了” 菜单
sTemp = "mpmenu=new mMenu('我要回来','../include/backinfor.asp','blank','','','');"
elseif IsAdministrator then
'' 如果是在线的系统管理员，则只显示系统管理员相关操作的菜单
sTemp = "mpmenu=new mMenu('密码管理','../admin/pwdmgr.asp','self','','','','');" & vbLF
'sTemp = sTemp & "mpmenu.addItem(new mMenuItem('修改密码','../include/changepwd.asp','self',false,'修改密码',null,'../images/pwd.gif','14','10','0'));" & vbLF
'sTemp = sTemp & "mpmenu.addItem(new mMenuItem('设置密码提示','../include/changeqanda.asp','self',false,'修改密码',null,'../images/question.gif','14','11','0'));" & vbLF
sTemp = sTemp & "mpmenu2=new mMenu('用户管理','../admin/list_user.asp','self','','','','');" & vbLF
sTemp = sTemp & "mpmenu3=new mMenu('角色管理','../admin/list_role.asp','self','','','','');" & vbLF
else
'' 如果不是系统管理员，则显示普通菜单
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 & vbLF
menu_id = 1
sub_id = 0
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
menu_id = menu_id + 1 '' 增加一个主菜单，主菜单编号递增1
menu = "mpmenu" & menu_id
sTemp = sTemp & menu & "=new mMenu('意见管理','','self','','','','');" & vbLF
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
iRight=HasRight(ID_CUSTOMER)
if iRight=2 then
sTemp = sTemp & menu & ".addItem(new mMenuItem('新增客户意见','../hr/newcomplaint.asp','self',false,'新增客户意见',null,'','','',''));" & vbLF & vbLF
end if
if iRight=1 or iRight=2 then
sTemp = sTemp & menu & ".addItem(new mMenuItem('客户意见查询','../hr/list_complaint.asp','self',false,'客户意见查询',null,'','','',''));" & vbLF & vbLF
end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
menu_id = menu_id + 1 '' 增加一个主菜单，主菜单编号递增1
menu = "mpmenu" & menu_id
sTemp = sTemp & menu & "=new mMenu('库存管理','','self','','','','');" & vbLF
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
menu_id = menu_id + 1 '' 增加一个主菜单，主菜单编号递增1
menu = "mpmenu" & menu_id
sTemp = sTemp & menu & "=new mMenu('采购管理','','self','','','','');" & vbLF
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
menu_id = menu_id + 1 '' 增加一个主菜单，主菜单编号递增1
menu = "mpmenu" & menu_id
sTemp = sTemp & menu & "=new mMenu('人事管理','','self','','','','');" & vbLF
sub_id = sub_id + 1 '' 增加一个子菜单，主菜单编号递增1
msub = "msub" & sub_id
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
iRight=HasRight(ID_HR)
if iRight=2 then
sTemp = sTemp & menu & ".addItem(new mMenuItem('新增员工','../hr/emp_oa.asp','self',false,'新增员工',null,'','','',''));" & vbLF & vbLF
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -