📄 main.asp
字号:
<!--#include file="connection.asp"-->
<%
if session("userid") = "" then
Response.Redirect "login.htm"
end if
%>
<html><head>
<link href="styles.css" rel="stylesheet" type="text/css">
<script language = "vbscript">
<!--
private sub cmdsubmit_onclick
dim check
check =0
if len(document.form1.amount.value) <= 0 then
msgbox "请输入正数!",vbcritical
exit sub
end if
if not isnumeric(document.form1.amount.value) then
msgbox "请输入数值!",vbcritical
exit sub
end if
if (document.form1.fmonth.value = "2" or document.form1.fmonth.value = "4" or document.form1.fmonth.value = "6" or document.form1.fmonth.value = "9" or document.form1.fmonth.value = "11" ) and (cint(document.form1.fday.value) > 30 ) then
msgbox "日期不对", vbcritical
exit sub
end if
for i = 0 to 100 step 4
if (cint(document.form1.fyear.value) = (2000 + i)) then
check = 1
if (document.form1.fmonth.value = "2") and (cint(document.form1.fday.value) > 29) then
msgbox "日期不对！", vbcritical
exit sub
end if
end if
next
if (document.form1.fmonth.value = "2") and (cint(document.form1.fday.value) > 28 and check =0) then
msgbox "日期不对", vbcritical
exit sub
end if
document.form1.Ddate.value = cdate(document.form1.fmonth.value & " " & document.form1.fday.value & " " & document.form1.fyear.value)
document.form1.submit '提交到服务器
end sub
//-->
</script>
<title>Expenses Management System</title></head>
<body>
<div align="center">
<p><strong><font face="宋体" color="#006699">理财开支管理系统</font></strong></p>
<table width="742" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0099CC">
<tr>
<td width="738" height = "0" bordercolor="#336699" bgcolor="#0099CC">
<table width="737">
<tr><td width="439">
<div align="left"><font color="#FFFFFF" size="2" face="宋体"><strong>
欢迎: </strong>
<% = session("userid") %>
</font></div>
</td>
<td width="286"> <div align="right"> <a href="search.asp">
<font color="#FFFFFF" size="1" face="宋体">查询</font></a><font face="宋体"> |
</font><a href="reportsmain.asp">
<font color="#FFFFFF" size="1" face="宋体">报表统计</font></a><font face="宋体"> |
</font><a href="changepassword.asp">
<font color="#FFFFFF" size="1" face="宋体"><strong>修改密码</strong></font></a><font face="宋体"> |
</font><a href="logout.asp">
<font color="#FFFFFF" size="1" face="宋体"><strong>退出</strong></font></a></div></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width="737">
<% if request("flag") = "pass" then %>
<tr>
<td colspan = 2><div align="center">
<font color="#FF0000" size="1" face="宋体"><strong>*
Password Changed *</strong></font></div></td>
</tr>
<% end if%>
<% if request("flag") = "added" then %>
<tr>
<td colspan = 2><div align="center">
<font color="#FF0000" size="1" face="宋体"><strong>*
Title Added *</strong></font></div></td>
</tr>
<% end if%>
<% if request("flag") = "deleted" then %>
<tr>
<td colspan = 2><div align="center">
<font color="#FF0000" size="1" face="宋体"><strong>*
Title Deleted *</strong></font></div></td>
</tr>
<% end if%>
<% if request("flag") = "saved" then %>
<tr>
<td colspan = 2><div align="center">
<font color="#FF0000" size="1" face="宋体"><strong>*
Entry Saved *</strong></font></div></td>
</tr>
<% end if%>
<form name="form1" method="post" action="saveentry.asp">
<tr>
<td width="253" bordercolor="#336699"> <div align="right">
<font color="#0099CC" size="2" face="宋体">日期:</font></div></td>
<td width="472" bordercolor="#336699"><div align="left">
<font color="#0099CC" size="2" face="宋体">
</font><font color="#0099CC" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<select name="fday" size="1" class = textbox id="fday" >
<% for i = 1 to 31 %>
<option value="<%=right("0" & i,2)%>" <% if session("SDay") = right("0" & i,2) then %> selected <% elseif session("sday") = "" and day(now) = i then %>selected<% end if %>><%=right("0" & i,2)%></option>
<% next %>
</select></font><font color="#0099CC" size="2" face="宋体">
</font><font color="#0099CC" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<font face="宋体">
<select name="fmonth" class = textbox id="fmonth" >
<option value="1" <% if session("Smonth") = 1 then %>selected<% elseif session("smonth") = "" and month(now) = 1 then %>selected<% end if %>>January</option>
<option value="2" <% if session("Smonth") = 2 then %>selected<% elseif session("smonth") = "" and month(now) = 2 then %>selected<% end if %>>February</option>
<option value="3" <% if session("Smonth") = 3 then %>selected<% elseif session("smonth") = "" and month(now) = 3 then %>selected<% end if %>>March</option>
<option value="4" <% if session("Smonth") = 4 then %>selected<% elseif session("smonth") = "" and month(now) = 4 then %>selected<% end if %>>April</option>
<option value="5" <% if session("Smonth") = 5 then %>selected<% elseif session("smonth") = "" and month(now) = 5 then %>selected<% end if %>>May</option>
<option value="6" <% if session("Smonth") = 6 then %>selected<% elseif session("smonth") = "" and month(now) = 6 then %>selected<% end if %>>June</option>
<option value="7" <% if session("Smonth") = 7 then %>selected<% elseif session("smonth") = "" and month(now) = 7 then %>selected<% end if %>>July</option>
<option value="8" <% if session("Smonth") = 8 then %>selected<% elseif session("smonth") = "" and month(now) = 8 then %>selected<% end if %>>August</option>
<option value="9" <% if session("Smonth") = 9 then %>selected<% elseif session("smonth") = "" and month(now) = 9 then %>selected<% end if %>>September</option>
<option value="10" <% if session("Smonth") = 10 then %>selected<% elseif session("smonth") = "" and month(now) = 10 then %>selected<% end if %>>October</option>
<option value="11" <% if session("Smonth") = 11 then %>selected<% elseif session("smonth") = "" and month(now) = 11 then %>selected<% end if %>>November</option>
<option value="12" <% if session("Smonth") = 12 then %>selected<% elseif session("smonth") = "" and month(now) = 12 then %>selected<% end if %>>December</option>
</select></font><font color="#0099CC" size="2" face="宋体">
</font><font face="宋体">
<select name="fyear" class = textbox id="fyear">
<%
for i = 2003 to 2020
%>
<option value = "<%=i%>" <% if cint(session("Syear")) = i then %>selected<% elseif session("syear") = "" and year(now) = i then %>selected<% end if %>>
<%=i%>
</option>
<% next %>
</select></font><font color="#0099CC" size="2" face="宋体">
</font><font face="宋体">
<input name="DDate" type="hidden" id="DDate">
</font>
</font></div></td>
</tr>
<tr>
<td width="253" valign="top" bordercolor="#336699">
<div align="right"><font face="宋体" size="2" color="#0099CC">说明:</font></div></td>
<td width="472" bordercolor="#336699"><div align="left">
<font color="#0099CC" size="2" face="宋体">
</font><font color="#0099CC" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<textarea class = "textbox" name="particulars" cols="50" rows="8" id="particulars"></textarea></font><font color="#0099CC" size="2" face="宋体">
</font></div></td>
</tr>
<tr>
<td width="253" bordercolor="#336699"> <div align="right">
<font face="宋体" size="2" color="#0099CC">金额:</font></div></td>
<td width="472" bordercolor="#336699"><div align="left">
<font color="#0099CC" size="2" face="宋体">
</font><font color="#0099CC" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input name="amount" type="text" id="amount" size="8" class = "textbox"></font><font color="#0099CC" size="2" face="宋体">
</font></div></td>
</tr>
<tr>
<td width="253" height="26" bordercolor="#336699">
<div align="right"><font face="宋体" size="2" color="#0099CC">类型:</font></div></td>
<td width="472" bordercolor="#336699"><div align="left">
<font color="#0099CC" size="2" face="宋体">
<%
conn.open = connstring
set rs = Server.CreateObject("adodb.recordset")
rs.open "Select * from titles where isactive = true",conn
%>
</font><font color="#0099CC" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<select name="title_id" class = "textbox">
<% while not rs.eof %>
<option value="<%=rs.fields("title_id")%>"><%=rs.fields("title_name")%></option>
<% rs.movenext
wend %>
</select></font>
<a href="addnew.htm"><font size=2>添加</font></a><font color="#0099CC" size="2" face="宋体"> | </font>
<a href="delete.asp"><font size=2 face="宋体">删除</font></a></font></div></td>
</tr>
<tr>
<td width="253" bordercolor="#336699"><div align="right"></div></td>
<td height="40" bordercolor="#336699"> <div align="left">
<font face="宋体">
<input name="cmdSubmit" type="button" class="button" id="cmdSubmit" value="保存">
<input type="reset" name="Submit2" value="清空" class="button">
</font>
</div></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -