?? 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 + -