📄 finance.asp
字号:
<%@ Language=VBScript %>
<%
'判断用户是否登录
if isempty(Session("ID")) then
Response.Redirect "../login.asp"
end if
'连接系统数据库
set conn = server.createobject ("adodb.connection")
conn.open "ASPData", "sa", "yourpassword"
'用户提交了表单
if not IsEmpty(Request.Form("Send")) then
'用户选择了添加财务记录选项
if Request.Form("SendTo") = "AddFinancialRecord" then
if Session("IsFinancialManager")=True then
Response.Redirect "AddFinancialRecord.asp"
else
TheMessage="您不是财务管理员，无权进入此选项"
end if
'用户选择了财务报表选项
elseif Request.Form("SendTo") = "FinancialReport" then
Response.Redirect "FinancialReport.asp"
'用户选择了修改财务记录选项
else
if Session("IsFinancialManager")=True then
Response.Redirect "ModifyFinancialRecord.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 PSLogins 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 BGCOLOR="">
<table width=800 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr bgcolor=white><td valign=center ><img src="../ASPLogo3.jpg" width=796 height=100></td></tr>
</table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src=".././image/banner2.jpg" width="800" height="12"></td></tr>
</table>
<br>
<table width=800 border=0 bgcolor=#164DA8 cellspacing=1 cellpadding=2 align=center>
<tr><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="#104DAD">返回内网主页</font></a></td>
<td align=center> <font color="#104DAD" ><% response.write TheMessage %></FONT></td>
<td align=right><a href=".././html/home.asp"><font color="#104DAD">返回上一级网页</font></a></td>
</tr>
</table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src=".././image/banner2.jpg" width="800" height="12"></td></tr></table>
<table width="800" border="0" bordercolor="#164DA8" align="center" cellpadding="3" cellspacing="0">
<tr><td>
<FORM ACTION="./Finance.asp" METHOD=POST>
<br>
<TABLE CELLPADDING=1 CELLSPACING=2 BORDER=1 bordercolor="#164DA8" WIDTH=800 align=center>
<TR VALIGN="center" ALIGN="center">
<TD WIDTH=35% bgcolor=#B5C7EF>
<img src="../image/finance1.jpg"></td>
<td>
<table border=1 width=100% >
<tr height=30 align=center><td><input type=radio checked name=SendTo value=AddFinancialRecord></td><td><font color="#104DAD" >公司财务信息管理系统</font> - <font color="#104DAD">添加财务记录</font></td></tr>
<tr height=30 align=center><td><input type=radio name=SendTo value=FinancialReport></td><td><font color="#104DAD">公司财务信息管理系统</font> - <font color="#104DAD">生成财务报表</font></td></tr>
<tr height=30 align=center><td><input type=radio name=SendTo value=ModifyFinancialRecord></td><td><font color="#104DAD">公司财务信息管理系统</font> - <font color="#104DAD">修改财务记录</font></td></tr>
<tr height=30 align=center><td colspan=3><INPUT TYPE="submit" NAME="Send" VALUE="进入选项" style="border: 1px solid #3466BB; background-color: #B6CAEB; color: #3466BB"></td></tr>
</table>
</td>
</TR>
</table>
</td>
</tr>
</table>
</FORM>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -