📄 finance.asp
字号:
<%@ Language=VBScript %>
<!--#include file="conn.asp"-->
<%
'判断用户是否登录
if isempty(Session("ID")) then
Response.Redirect "../login.asp"
end if
'用户提交了表单
if not IsEmpty(Request.Form("Send")) then
'用户选择了添加财务记录选项
if Request.Form("SendTo") = "AddFinancialRecord" then
if Session("IsFinancialManager")=True then
Response.Redirect "Addcaiwu.asp"
else
TheMessage="您不是财务管理员，无权进入此选项"
end if
'用户选择了财务报表选项
elseif Request.Form("SendTo") = "FinancialReport" then
Response.Redirect "FinancialReport.asp"
'用户选择了修改财务记录选项
else
if Session("IsFinancialManager")=True then
Response.Redirect "xiugai.asp"
else
TheMessage="您不是财务管理员，无权进入此选项"
end if
end if
else
TheMessage = "请选择您要进行的财务信息管理功能模块"
end if
set RSDepartments = conn.Execute("select DepartmentName from Departments" _
& " order by DepartmentName")
set RSRoles = conn.Execute("select Name from UserInfo order by Name")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<TITLE>公司财务信息管理系统 </TITLE>
<META NAME="Generator" CONTENT="NetObjects Fusion 2.0.2 for Windows">
</HEAD>
<BODY>
<table width=800 border=0 bgcolor=#9999FF cellspacing=1 cellpadding=2 align=center>
<tr bgcolor=white><td height="46" valign=center bgcolor="#9966FF"><div align="center"><strong><font color="#FFFFFF" size="4">企业办公自动化系统</font></strong></div></td>
</tr>
</table>
<table width=800 border=0 bgcolor=#CC00FF cellspacing=1 cellpadding=2 align=center>
<tr bgcolor="#99CCFF"><td colspan=3>
<font color=white>
<P ALIGN="CENTER">公司办公自动化系统->财务信息系统当前用户-<% response.write Session("Name") %>
</font></td></tr>
<tr bgcolor=white >
<td><a href="../html/home.asp"><font color="#9900FF">返回主页</font></a></td>
<td align=center> <font color="#9900FF" ><% response.write TheMessage %></FONT></td>
</tr>
</table>
<table width="800" border="0" bordercolor="#16A84D" align="center" cellpadding="3" cellspacing="0">
<tr><td>
<TABLE CELLPADDING=1 CELLSPACING=2 BORDER=1 bordercolor="#9999FF" WIDTH=800 align=center>
<TR VALIGN="center" ALIGN="center">
<TD WIDTH=35% bgcolor=#99CCFF><img src="../image/HomepagePicture1.jpg" width="250" height="173">
</td>
<td>
<FORM ACTION="Finance.asp" METHOD=POST>
<table width=100% border=1 bordercolor="#9999FF" >
<tr height=30 align=center><td height="32"><input type=radio checked name=SendTo value=AddFinancialRecord></td><td><font color="#9900FF" >公司财务信息管理系统 - 添加财务记录</font></td>
</tr>
<tr height=30 align=center><td height="32"><input type=radio name=SendTo value=FinancialReport></td><td><font color="#9900FF">公司财务信息管理系统 - 生成财务报表</font></td>
</tr>
<tr height=30 align=center><td height="35"><input type=radio name=SendTo value=ModifyFinancialRecord></td><td><font color="#9900FF">公司财务信息管理系统 - 修改财务记录</font></td>
</tr>
<tr height=30 align=center><td height="52" colspan=3><INPUT TYPE="submit" NAME="Send" VALUE="进入系统"></td></tr>
</table>
</FORM>
</td>
</TR>
</table>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -