📄 reportsresult.asp
字号:
<!--#include file="connection.asp"-->
<!--#include file="dateformat.asp"-->
<%
if session("Ruserid") = "" then
Response.Redirect "R_login.htm"
end if
%>
<HTML>
<head><link rel="stylesheet" type="text/css" href="styles.css"/>
<title>Expenses Management System</title>
</head>
<BODY leftmargin=0 topmargin=0>
<center>
<table width="780" border="1" cellpadding="0" cellspacing="0" bordercolor="#0099CC">
<tr>
<td bgcolor="#0099CC"><div align="center">
<font color="#FFFFFF" face="宋体" size="2">
<strong style="font-weight: 400">报表类型:</strong>
<%
conn.open = connstring
set rs = Server.CreateObject("adodb.recordset")
if request("flag") = "1" then
rs.open "select * from titles where title_id = " & clng(request("title_id")),conn
if not rs.eof then
response.Write rs.fields("title_name")
else
response.Write "Invalid Title Selected"
end if
elseif request("flag") = "2" then
response.write request("userid")
elseif request("flag") = "3" then
response.write "All Report"
elseif request("flag") = "4" then
response.write "All Report (Title Wise)"
end if
%>
开始时间:
<%=returndate(request("fdate"))%>
结束时间:
<%=returndate(request("tdate"))%>
</font></div></td>
</tr>
</table>
<font face="宋体">
<br>
</font>
<table width="779" border="1" cellpadding="0" cellspacing="0" bordercolor="#0099CC">
<tr bgcolor="#0099CC">
<td width="38"> <div align="center"><strong style="font-weight: 400">
<font face="宋体" size="2" color="#FFFFFF">编号</font></strong></div></td>
<td width="250"> <div align="center"><strong style="font-weight: 400">
<font face="宋体" size="2" color="#FFFFFF">说明</font></strong></div></td>
<td width="131"> <div align="center"><strong style="font-weight: 400">
<font face="宋体" size="2" color="#FFFFFF">金额</font></strong></div></td>
<td width="109"> <div align="center"><strong style="font-weight: 400">
<font face="宋体" size="2" color="#FFFFFF">日期</font></strong></div></td>
<td width="110"> <div align="center"><strong style="font-weight: 400">
<font face="宋体" size="2" color="#FFFFFF">类型</font></strong></div></td>
<td width="70"> <div align="center"><strong style="font-weight: 400">
<font face="宋体" size="2" color="#FFFFFF">用户</font></strong></div></td>
<td width="55"> <div align="center"><strong style="font-weight: 400">
<font face="宋体" size="2" color="#FFFFFF">删除</font></strong></div></td>
</tr>
<%
set rs1 = server.CreateObject("adodb.recordset")
fdate = cdate(request("fdate"))
tdate = cdate(request("tdate"))
if request("flag") = "1" then
rs1.open "select * from expenses where title_id = " & clng(request("title_id")) & " and (E_date between #" & fdate & "# and #" & tdate & "#) order by e_date asc",conn
elseif request("flag") = "2" then
rs1.open "select * from expenses where userid = '" & (request("userid")) & "' and (E_date between #" & fdate & "# and #" & tdate & "#) order by e_date asc",conn
elseif request("flag") = "3" then
rs1.open "select * from expenses where (E_date between #" & fdate & "# and #" & tdate & "#) order by e_date asc",conn
elseif request("flag") = "4" then
rs1.open "select * from expenses where (E_date between #" & fdate & "# and #" & tdate & "#) order by title_id, e_date asc",conn
end if
i = 1
s_total = 0
total = 0
if not rs1.EOF then t_id = rs1.Fields("title_id")
while not rs1.eof
set rs2 = server.CreateObject("adodb.recordset")
rs2.open "select * from titles where title_id = " & rs1.fields("title_id"),conn
total = total + rs1.Fields("amount")
if request("flag") = "4" then
if t_id = rs1.Fields("title_id") then
S_total = S_total + rs1.Fields("amount")
%>
<tr>
<td><div align="center"><font color="#0099CC" size="1" face="宋体"><%=i%></font></div></td>
<td><div align="justify"><font color="#0099CC" size="1" face="宋体"><%=rs1.fields("E_particulars")%> </font></div></td>
<td><div align="right"><font color="#0099CC" size="1" face="宋体"><%=formatnumber(rs1.fields("amount"),0)%> </font></div></td>
<td><div align="center"><font color="#0099CC" size="1" face="宋体"><%=ReturnDate(rs1.fields("E_date"))%></font></div></td>
<td><div align="center"><font color="#0099CC" size="1" face="宋体"><%=rs2.fields("title_name")%></font></div></td>
<td><div align="center"><font color="#0099CC" size="1" face="宋体"><%=rs1.fields("userid")%></font></div></td>
<td><div align="center"><font color="#0099CC" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="DeleteEntry.asp?E_id=<%=rs1.fields("e_id")%>&Fdate=<%=request("fdate")%>&Tdate=<%=request("tdate")%>&flag=<%=request("flag")%>&title_id=<%=request("title_id")%>&userid=<%=request("userid")%>">
<font face="宋体"><span style="font-weight: 400">Delete</span></font></a></font></div></td>
</tr>
<%
else
%>
<tr bgcolor="#0099CC">
<td width="290" colspan = 2> <div align="right">
<strong style="font-weight: 400">
<font face="宋体" color="#ffffff" size="1">Total (<%=t_name%>) =</font></strong></div></td>
<td width="129" > <div align="right">
<font face="宋体" color="#ffffff" size="1"><%=formatnumber(S_total,0)%> </font></div></td>
<td width="352" colspan= 4> </td>
</tr>
<tr>
<td><div align="center"><font color="#0099CC" size="1" face="宋体"><%=i%></font></div></td>
<td><div align="justify"><font color="#0099CC" size="1" face="宋体"><%=rs1.fields("E_particulars")%> </font></div></td>
<td><div align="right"><font color="#0099CC" size="1" face="宋体"><%=formatnumber(rs1.fields("amount"),0)%> </font></div></td>
<td><div align="center"><font color="#0099CC" size="1" face="宋体"><%=ReturnDate(rs1.fields("E_date"))%></font></div></td>
<td><div align="center"><font color="#0099CC" size="1" face="宋体"><%=rs2.fields("title_name")%></font></div></td>
<td><div align="center"><font color="#0099CC" size="1" face="宋体"><%=rs1.fields("userid")%></font></div></td>
<td><div align="center"><font color="#0099CC" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="DeleteEntry.asp?E_id=<%=rs1.fields("e_id")%>&Fdate=<%=request("fdate")%>&Tdate=<%=request("tdate")%>&flag=<%=request("flag")%>&title_id=<%=request("title_id")%>&userid=<%=request("userid")%>">
<font face="宋体"><span style="font-weight: 400">Delete</span></font></a></font></div></td>
</tr>
<%
S_total = rs1.Fields("amount")
end if
t_id = rs1.fields("title_id")
t_name = rs2.Fields("title_name")
else
%>
<tr>
<td><div align="center"><font color="#0099CC" size="1" face="宋体"><%=i%></font></div></td>
<td><div align="justify"><font color="#0099CC" size="1" face="宋体"><%=rs1.fields("E_particulars")%> </font></div></td>
<td><div align="right"><font color="#0099CC" size="1" face="宋体"><%=formatnumber(rs1.fields("amount"),0)%> </font></div></td>
<td><div align="center"><font color="#0099CC" size="1" face="宋体"><%=ReturnDate(rs1.fields("E_date"))%></font></div></td>
<td><div align="center"><font color="#0099CC" size="1" face="宋体"><%=rs2.fields("title_name")%></font></div></td>
<td><div align="center"><font color="#0099CC" size="1" face="宋体"><%=rs1.fields("userid")%></font></div></td>
<td><div align="center"><font color="#0099CC" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="DeleteEntry.asp?E_id=<%=rs1.fields("e_id")%>&Fdate=<%=request("fdate")%>&Tdate=<%=request("tdate")%>&flag=<%=request("flag")%>&title_id=<%=request("title_id")%>&userid=<%=request("userid")%>">
<font face="宋体"><span style="font-weight: 400">Delete</span></font></a></font></div></td>
</tr>
<%
end if
i = i + 1
rs1.movenext
wend
%>
<% if request("flag") = "4" then %>
<tr bgcolor="#0099CC">
<td width="290" colspan = 2> <div align="right">
<strong style="font-weight: 400">
<font face="宋体" color="#ffffff" size="1">Total (<%=t_name%>) =</font></strong></div></td>
<td width="129" > <div align="right">
<font face="宋体" color="#ffffff" size="1"><%=formatnumber(S_total,0)%> </font></div></td>
<td width="352" colspan= 4> </td>
</tr>
<% end if %>
<tr>
<td bgcolor = white colspan = 7> </td>
</tr>
<tr bgcolor="#0099CC">
<td width="290" colspan = 2> <div align="right">
<strong style="font-weight: 400">
<font face="宋体" color="#ffffff" size="1">总额 = </font></strong></div></td>
<td width="129"> <div align="right">
<font face="宋体" color="#ffffff" size="1"><%=formatnumber(total,0)%> </font></div></td>
<td width="352" colspan = 4> </td>
</tr>
</table>
</center>
<br>
<div align="center"><a href="reportsmain.asp"><span style="font-weight: 400">返回</span></a> </div>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -