📄 main.asp.bak

📁 物业管理和办公自动化系统
💻 BAK
字号:
<%
'************************************************************************************************
' 文件名: main.asp
' Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'
' 　创建人 : 周秋舫
' 　日　期 : 2002-05-13
' 修改历史 :
'   ****年**月**日 ****** 修改内容:**************************************************
' 功能描述 : 用户登录后首页面
' 　版　本 :
'************************************************************************************************
option explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>

<!-- #include file="../include/common.inc" -->
<!-- #include file="../include/commonpage.inc" -->
<!-- #include file="../include/home.inc" -->

<%
' 如果尚未登录，则跳转到登录页面
If Not IsLogin then
	Server.Transfer("../include/home.asp")
end if
%>

<html>
<head>
<title>上海信息大楼 Shanghai Information Tower</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<link rel="stylesheet" href="../include/common.css" type="text/css">
</head>

<body bgcolor=white leftmargin=0 topmargin=0 marginwidth=0 marginheight=0 background="../images/bg/bg0.jpg">
<br>

<%
dim conn:set conn=DBConnection()
	'' 页头显示登录和在岗信息
	Response.Write OuterTableHeader
	Response.Write HeaderWithMenu(conn)

	'' 页面主要部分
	if Not IsAdministrator then
			Response.Write MainPageForEmp			'' 如果不是系统管理员，则显示大楼动态新闻和个人事务统计信息
	else
			Response.Write MainPageForAdmin		'' 如果是系统管理员，则显示导航图标
	end if 

	'' 页脚部分	
	Response.Write(Footer)		'' Footer定义在commonpage.inc文件中
	Response.Write OuterTableTailer
	
Disconnect(conn)	
%>

</body>
</html>

<%
function MainPageForEmp()
	'' 新闻与公告，函数 NewsInMainPage 定义在文件 home.inc 中
	MainPageForEmp = _
		"<table width=750 border=0 cellspacing=0 cellpadding=0	background=""../images/bg/indbg.gif"" height=165>" & vbLF & _
		"<tr>" & vbLF & _ 
		"	<td width=100 rowspan=2 valign=top align=right><img src=""../images/bg/Sp.gif"" width=100 height=50></td>" & vbLF & _
		"	<td width=350 valign=top><img src=""../images/bg/Sp.gif"" width=100 height=10><br>物业管理系统正在开发中。。。</td>" & vbLF & _
		"	<td width=300 rowspan=2 valign=top align=center><img src=""../images/bg/Sp.gif"" width=100 height=10><br></td>" & vbLF & _
		"</tr>" & vbLF & _
		
		"<tr height=10><td></td></tr>" & vbLF & _
		"</table>" & vbLF
end function

function MainPageForAdmin()
	MainPageForAdmin = _
		"<table width=750 background=""../images/bg/indbg.gif"" height=165 border=0>" & vbLF & _
		"<tr><td>" & vbLF & _
		"	<table align=center border=0>" & vbLF & _
		"	<tr height=50 style=""cursor:hand"" onclick=""location.href='../admin/list_user.asp';"">" & vbLF & _
		"		<td><img border=0 src=""../images/users.gif"" align=absmiddle></td><td>用户管理</td></tr>" & vbLF & _
		"	<tr height=50 style=""cursor:hand"" onclick=""location.href='../admin/list_role.asp';"">" & vbLF & _
		"		<td><img border=0 src=""../images/roles.gif"" align=absmiddle></td><td>角色管理</td><tr>" & vbLF & _
		"	<tr height=50 style=""cursor:hand"" onclick=""location.href='../include/specialpost.asp';"">" & vbLF & _
		"		<td><img border=0 src=""../images/password.gif"" align=absmiddle></td><td>修改密码</td></tr>" & vbLF & _
		"	<tr height=50 style=""cursor:hand"" onclick=""location.href='../include/changeqanda.asp';"">" & vbLF & _
		"		<td><img border=0 src=""../images/pwd2.gif"" align=absmiddle></td><td>设置密码提示</td></tr>" & vbLF & _
		"	</table></td><td rowspan=6 width=300></td></tr>" & vbLF & _
		"</table>" & vbLF
end function
%>
⌨️ 快捷键说明

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