📄 reports1.asp
字号:
<!--#include file="connection.asp"-->
<%
if session("Ruserid") = "" then
Response.Redirect "R_login.htm"
end if
%>
<HTML>
<HEAD>
<title>Expenses Management System</title>
<link rel="stylesheet" type="text/css" href="styles.css"/>
<script language = "vbscript">
<!--
private sub cmdsubmit_onclick
dim check
check =0
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 "From Date is Invalid", 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 "From Date is Invalid", 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 "From Date is Invalid", vbcritical
exit sub
end if
check =0
if (document.form1.tmonth.value = "2" or document.form1.tmonth.value = "4" or document.form1.tmonth.value = "6" or document.form1.tmonth.value = "9" or document.form1.tmonth.value = "11" ) and (cint(document.form1.tday.value) > 30 ) then
msgbox "To Date is Invalid", vbcritical
exit sub
end if
for i = 0 to 100 step 4
if (cint(document.form1.tyear.value) = (2000 + i)) then
check = 1
if (document.form1.tmonth.value = "2") and (cint(document.form1.tday.value) > 29) then
msgbox "To Date is Invalid", vbcritical
exit sub
end if
end if
next
if (document.form1.tmonth.value = "2") and (cint(document.form1.tday.value) > 28 and check =0) then
msgbox "To Date is Invalid", vbcritical
exit sub
end if
document.form1.fdate.value = cdate(document.form1.fmonth.value & " " & document.form1.fday.value & " " & document.form1.fyear.value)
document.form1.tdate.value= cdate(document.form1.tmonth.value & " " & document.form1.tday.value & " " & document.form1.tyear.value)
document.form1.submit
end sub
//-->
</script>
<!--#include file="Reports_Header.htm"-->
<link href="styles.css" rel="stylesheet" type="text/css">
</head>
<BODY>
<br>
<div align="center">
<table width="653" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0099CC">
<tr>
<td colspan="0" bordercolor="#336699" bgcolor="#0099CC"><div align="center">
<strong>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">
选择</font></strong><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>日期
<% if request("flag") = "1" then %>
& 类型
<%elseif request("flag") = "2" then %>
& 用户
<% end if %>
</strong></font></div></td>
</tr>
<form action="reportsresult.asp" method="post" name="form1">
<tr>
<td height="0">
<table width="651" celpadding = 3 cellspacing = 3>
<tr>
<td width="189" bordercolor="#336699"><div align="right">
<font color="#0099CC" size="2" face="Verdana, Arial, Helvetica, sans-serif">
开始日期:</font></div></td>
<td width="447" bordercolor="#336699">
<select name="fday" size="1" class = "textbox">
<option value="01">01</option>
<option value="02">02</option>
<option value="03">03</option>
<option value="04">04</option>
<option value="05">05</option>
<option value="06">06</option>
<option value="07">07</option>
<option value="08">08</option>
<option value="09">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>
<select name="fmonth" class = "textbox" >
<option value="1">January</option>
<option value="2">February</option>
<option value="3">March</option>
<option value="4">April</option>
<option value="5">May</option>
<option value="6">June</option>
<option value="7">July</option>
<option value="8">August</option>
<option value="9">September</option>
<option value="10">October</option>
<option value="11">November</option>
<option value="12">December</option>
</select>
<select name="fyear" class = "textbox">
<%
for i = 2003 to 2020
%>
<option value = <% =i %>><% =i %></option>
<%
next
%>
</select>
<input type="hidden" name="fDate"> </td>
</tr>
<tr>
<td width="189" height="26" bordercolor="#336699">
<div align="right">
<font color="#0099CC" size="2" face="Verdana, Arial, Helvetica, sans-serif">
结束日期:</font></div></td>
<td width="447" bordercolor="#336699">
<select name="tday" size="1" class = "textbox">
<option value="01">01</option>
<option value="02">02</option>
<option value="03">03</option>
<option value="04">04</option>
<option value="05">05</option>
<option value="06">06</option>
<option value="07">07</option>
<option value="08">08</option>
<option value="09">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>
<select name="tmonth" class = "textbox" >
<option value="1">January</option>
<option value="2">February</option>
<option value="3">March</option>
<option value="4">April</option>
<option value="5">May</option>
<option value="6">June</option>
<option value="7">July</option>
<option value="8">August</option>
<option value="9">September</option>
<option value="10">October</option>
<option value="11">November</option>
<option value="12">December</option>
</select>
<select name="tyear" class = "textbox">
<%
for i = 2003 to 2020
%>
<option value = <% =i %>><% =i %></option>
<%
next
%>
</select>
<input type="hidden" name="TDate">
<input type="hidden" name="flag" value = "<%=request("flag")%>"></td>
</tr>
<tr>
<td width="189" height="26" bordercolor="#336699">
<div align="right"><font color="#0099CC" size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% if request("flag") = "1" then %>
选择类型或者用户:
<% end if %>
</font></div></td>
<td width="447" bordercolor="#336699">
<%
conn.open = connstring
set rs = Server.CreateObject("adodb.recordset")
sqlstr1 = "select * from titles where isactive = true"
sqlstr2 = "select * from users where isactive = true"
%>
<% if request("flag") = "1" then %>
<select name="title_id" class = "textbox">
<%
rs.open sqlstr1,conn
while not rs.eof
%>
<option value = "<%=rs.fields("title_id")%>"><%=rs.fields("title_name")%></option>
<%
rs.movenext
wend
%>
</select>
<%
elseif request("flag") = "2" then
%>
<select name="userid" class = "textbox" id="userid">
<%
rs.open sqlstr2,conn
while not rs.eof
%>
<option value = "<%=rs.fields("userid")%>"><%=rs.fields("userid")%></option>
<%
rs.movenext
wend
%>
</select>
<% end if %>
</td>
</tr>
<tr>
<td width="253" bordercolor="#336699"></td>
<td height="40" bordercolor="#336699"> <div align="left">
<input name="cmdSubmit" type="button" class="button" id="cmdSubmit" value="产生报表">
<input type="reset" name="Submit2" value="清空" class="button">
</div></td>
</tr>
</table>
</td>
</tr>
</form>
</table>
</div>
<div align="center"><br>
<a href="main.asp">返回</a> </div>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -