?? finance.asp
字號(hào):
<%@ Language=VBScript %>
<!--#include file="../conn.asp"-->
<%
'判斷用戶是否登錄
if isempty(Session("ID")) then
Response.Redirect "../login.asp"
end if
'連接系統(tǒng)數(shù)據(jù)庫(kù)
'set conn = server.createobject ("adodb.connection")
'conn.open "ASPData", "sa", ""
'用戶提交了表單
if not IsEmpty(Request.Form("Send")) then
'用戶選擇了添加財(cái)務(wù)記錄選項(xiàng)
if Request.Form("SendTo") = "AddFinancialRecord" then
if Session("IsFinancialManager")=True then
Response.Redirect "AddFinancialRecord.asp"
else
TheMessage="您不是財(cái)務(wù)管理員，無權(quán)進(jìn)入此選項(xiàng)"
end if
'用戶選擇了財(cái)務(wù)報(bào)表選項(xiàng)
elseif Request.Form("SendTo") = "FinancialReport" then
Response.Redirect "FinancialReport.asp"
'用戶選擇了修改財(cái)務(wù)記錄選項(xiàng)
else
if Session("IsFinancialManager")=True then
Response.Redirect "ModifyFinancialRecord.asp"
else
TheMessage="您不是財(cái)務(wù)管理員，無權(quán)進(jìn)入此選項(xiàng)"
end if
end if
else
TheMessage = "請(qǐng)選擇您要進(jìn)行的財(cái)務(wù)信息管理功能模塊"
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>公司財(cái)務(wù)信息管理系統(tǒng) </TITLE>
<META NAME="Generator" CONTENT="NetObjects Fusion 2.0.2 for Windows">
</HEAD>
<BODY BGCOLOR="">
<table width=800 border=0 bgcolor=#16A84D 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="#16A84D" 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=#16A84D cellspacing=1 cellpadding=2 align=center>
<tr><td colspan=3>
<font color=white>
<P ALIGN="CENTER">公司內(nèi)部辦公信息管理系統(tǒng)->公司財(cái)務(wù)信息管理系統(tǒng) [當(dāng)前用戶-<% response.write Session("Name") %>]
</font></td></tr>
<tr bgcolor=white >
<td><a href=".././html/home.asp"><font color="#10AD4D">返回內(nèi)網(wǎng)主頁(yè)</font></a></td>
<td align=center> <font color="#10AD4D" ><% response.write TheMessage %></FONT></td>
<td align=right><a href=".././html/home.asp"><font color="#10AD4D">返回上一級(jí)網(wǎng)頁(yè)</font></a></td>
</tr>
</table>
<table width="800" border="0" bordercolor="#16A84D" 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="#16A84D" align="center" cellpadding="3" cellspacing="0">
<tr><td>
<FORM ACTION="./Finance.asp" METHOD=POST>
<br>
<TABLE CELLPADDING=1 CELLSPACING=2 BORDER=1 bordercolor="#16A84D" WIDTH=800 align=center>
<TR VALIGN="center" ALIGN="center">
<TD WIDTH=35% bgcolor=#B5EFC7>
<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="#10AD4D" >公司財(cái)務(wù)信息管理系統(tǒng)</font> - <font color="#10AD4D">添加財(cái)務(wù)記錄</font></td></tr>
<tr height=30 align=center><td><input type=radio name=SendTo value=FinancialReport></td><td><font color="#10AD4D">公司財(cái)務(wù)信息管理系統(tǒng)</font> - <font color="#10AD4D">生成財(cái)務(wù)報(bào)表</font></td></tr>
<tr height=30 align=center><td><input type=radio name=SendTo value=ModifyFinancialRecord></td><td><font color="#10AD4D">公司財(cái)務(wù)信息管理系統(tǒng)</font> - <font color="#10AD4D">修改財(cái)務(wù)記錄</font></td></tr>
<tr height=30 align=center><td colspan=3><INPUT TYPE="submit" NAME="Send" VALUE="進(jìn)入選項(xiàng)" style="border: 1px solid #34BB66; background-color: #B6EBCA; color: #34BB66"></td></tr>
</table>
</td>
</TR>
</table>
</td>
</tr>
</table>
</FORM>
</BODY>
</HTML>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -