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