📄 expensestat.asp

📁 1 除掉了时间限制 2 除掉了人数限制改为 500人原为5人 3 发现一点小缺陷增加人员的时候没有判断登陆名是否重复！自己写吧~~~：） 4 又是一点缺陷
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
                <td align="center">图示</td>
              </tr>
				<%
				TotalAmount=0
				Totalnum=0
				for i=1 to alls
					if rsexpreport.EOF then exit for
				TotalAmount=TotalAmount+Ccur(rsexpreport("subtamount"))
				Totalnum=Totalnum+cint(rsexpreport("subnum"))
				rsexpreport.MoveNext
				Next
				rsexpreport.close
				%>
	         <tr bgcolor="#efefef">
                <td align="center"><%=alls%></td>
                <td align="center"><%=Totalnum%></td>
                
    <td align="center">100.00%</td>
                <td align="center"><%=(formatnumber(ccur(TotalAmount),2))%></td>
                <td align="left"><img src="../images/statpic.jpg" height="10" width="150" >(100%)</td>
              </tr>
              </table>

<%
rsexpreport.open sql,connexpreport,1,1
  	for i=1 to alls
		if rsexpreport.EOF then exit for
	  	subtamount=Ccur(rsexpreport("subtamount"))
if totalamount=0 then totalamount=1
%>
<table align="center" cellspacing=1 cellpadding=1 width="100%" border=0 bgcolor="#ffffff" style="font-size:10pt">
               <tr bgcolor="#FFFFFF">
                <td align="center" width="5%"><%=i%></td>
                <td align="center" width="40%"><% =rsexpreport(""&strstatSearch&"")%></td>
                <td align="center" width="10%"><% =rsexpreport("subnum")%></td>
                <td align="center" width="10%"><% =(formatnumber((ccur((subtamount/TotalAmount)*10000)/100),2))%>%</td>
                <td align="center" width="10%"><%=(formatnumber(ccur(rsexpreport("subtamount")),2))%></td>
                <td align="left"><img src="../images/statpic.jpg" height="10" width="<% =int((subtamount/TotalAmount)*150)%>"></td>
              </tr>
<% 
 response.write "<tr ><td height=1 colspan=6 bgcolor=#000000></td></tr>"
 rsexpreport.MoveNext
 next
%>
</table>
<br>
<div align="center" id=CharDisp <%if request("char")="" then response.write "style=display:none" else response.write "style=display:block" end if%>>
<table align="center" cellspacing=0 cellpadding=1 width="100%" border=0 bgcolor="#ffffff" style="font-size:10pt">
	<tr><td></td><td WIDTH=450 align="right"><input type=button name="closechar"  onClick="JavaScript:form1.char.value='';form1.submit();"    value="关闭图例" class=black></td><td></td></tr>
    <tr><td></td>
      <td WIDTH=450> 
        <APPLET CODE="HanengCharts.class" ARCHIVE="HanengCharts2.jar" WIDTH=450 HEIGHT=250 VIEWASTEXT>
            <PARAM NAME="ChartType" VALUE="<%=request("char")%>">
<%
 rsexpreport.close 
  rsexpreport.open sql,connexpreport,1,1
  for i=1 to alls
	if rsexpreport.EOF then exit for
%>
            <PARAM NAME="value_<%=i%>" VALUE="<% =rsexpreport("subtamount")%>">
            <PARAM NAME="text_<%=i%>" VALUE="<% =rsexpreport(""&strstatSearch&"")%>">
<% 
 rsexpreport.MoveNext
 next
%>
        </APPLET>
      </td><td></td>
    </tr>
</table>
</div>
<%
 rsexpreport.close 
 connexpreport.close
 
 else
%>
<table align="center" cellspacing=1 cellpadding=1 width="100%" border=0 bgcolor="#ffffff" style="font-size:10pt">
              <tr bgcolor="#DEDFDE">
                <td align="center"  width="20%"><%=dispname%></td>
                <td align="center" width="25%"><%=dispname2%></td>
                <td align="center" width="10%">费用笔数</td>
                <td align="center" width="10%">占总费用</td>
                <td align="center" width="10%">费用</td>
                <td align="center">图示</td>
              </tr>
				<%
				TotalAmount=0
				Totalnum=0
				for i=1 to alls
					if rsexpreport.EOF then exit for
				TotalAmount=TotalAmount+Ccur(rsexpreport("subtamount"))
				Totalnum=Totalnum+cint(rsexpreport("subnum"))
				rsexpreport.MoveNext
				Next
				rsexpreport.close
				%>
	      <tr bgcolor="#efefef">
                <td align="center"></td>
                <td align="center"></td>
                <td align="center"><%=Totalnum%></td>
                <td align="center">100.00%</td>
                <td align="center"><%=(formatnumber(ccur(TotalAmount),2))%></td>
                <td align="left"><img src="../images/statpic.jpg" height="10" width="150">(100%)</td>
              </tr>
              </table>
<table align="center" cellspacing=1 cellpadding=1 width="100%" border=0 bgcolor="#ffffff" style="font-size:10pt">
<%
  rsexpreport.open sql,connexpreport,1,1
'response.write sql
  subTotalnum=0
  subpercent=0
  subTotalAmount=0
  for i=1 to alls
	if rsexpreport.EOF then exit for
subtamount1=Ccur(rsexpreport("subtamount"))
if totalamount=0 then totalamount=1
	if rsexpreport(""&strstatSearch&"") <> previous then
		response.write "<tr bgcolor=#FFFFFF><td align=center>"&rsexpreport(""&strstatSearch&"")&"</td><td colspan=5></td></tr>"
		response.write "<tr bgcolor=#000000><td colspan=6></td></tr>"
		subTotalnum=cint(rsexpreport("subnum"))
		subpercent=ccur((subtamount1/TotalAmount)*10000)/100
		subTotalAmount=ccur(rsexpreport("subtamount"))
	else
		subTotalnum=subTotalnum+cint(rsexpreport("subnum"))
		subpercent=subpercent+ccur((subtamount1/TotalAmount)*10000)/100
		subTotalAmount=subTotalAmount+ccur(rsexpreport("subtamount"))
	end if
%>
               <tr bgcolor="#FFFFFF">
                <td align="center" width="20%"></td>
                <td align="center" width="25%"><%=rsexpreport(""&request("statsearch2")&"")%></a></td>
                <td align="center" width="10%"><% =cint(rsexpreport("subnum"))%></td>
                <td align="center" width="10%"><% =(formatnumber((ccur((subtamount1/TotalAmount)*10000)/100),2))%>%</td>
                <td align="center" width="10%"><%=(formatnumber(ccur(rsexpreport("subtamount")),2))%></td>
                <td align="left"><img src="../images/statpic.jpg" height="10" width="<% =int((subtamount1/TotalAmount)*150)%>"></td>
              </tr>
<% 
previous=rsexpreport(""&strstatSearch&"")
 rsexpreport.MoveNext
' response.write rsexpreport(""&strstatSearch&"")
if rsexpreport.eof then
	response.write "<tr ><td height=2 colspan=6 bgcolor=#000000></td></tr>"
	response.write "<tr  bgcolor=ffffff valign=top><td align=center  height=30>汇总</td><td align=center></td><td align=center>"&subTotalnum&"</td><td align=center>"&formatnumber(subpercent,2)&"%</td><td align=center>"&formatnumber(subTotalAmount,2)&"</td><td align=center></td></tr>"
elseif rsexpreport(""&strstatSearch&"")<> previous then
	response.write "<tr ><td height=2 colspan=7 bgcolor=#000000></td></tr>"
	response.write "<tr bgcolor=ffffff valign=top><td align=center height=30>汇总</td><td align=center></td><td align=center>"&subTotalnum&"</td><td align=center>"&formatnumber(subpercent,2)&"%</td><td align=center>"&formatnumber(subTotalAmount,2)&"</td><td align=center></td></tr>"
else
	response.write "<tr ><td></td><td colspan=6 bgcolor=#000000></td></tr>"
end if

 next
%>
</table>
<br>
<div align="center" id=CharDisp <%if request("char")="" then response.write "style=display:none" else response.write "style=display:block" end if%>>
<table align="center" cellspacing=0 cellpadding=1 width="100%" border=0 bgcolor="#ffffff" style="font-size:10pt">
	<tr><td></td><td WIDTH=450 align="right"><input type=button name="closechar"  onClick="JavaScript:form1.char.value='';form1.submit();"    value="关闭图例" class=black></td><td></td></tr>
    <tr><td></td>
      <td WIDTH=450> 
        <APPLET CODE="HanengCharts.class" ARCHIVE="HanengCharts2.jar" WIDTH=450 HEIGHT=250 VIEWASTEXT>
            <PARAM NAME="ChartType" VALUE="<%=request("char")%>">
<%
 rsexpreport.close 
  rsexpreport.open sql,connexpreport,1,1
  for i=1 to alls
	if rsexpreport.EOF then exit for
%>
            <PARAM NAME="value_<%=i%>" VALUE="<% =rsexpreport("subtamount")%>">
            <PARAM NAME="text_<%=i%>" VALUE="<% =rsexpreport(""&strstatSearch&"")%>&<% =rsexpreport(""&request("statsearch2")&"")%>">
<% 
 rsexpreport.MoveNext
 next
%>
        </APPLET>
      </td><td></td>
    </tr>
</table>
</div>

<%
 rsexpreport.close 
 connexpreport.close
end if
set objcheck=nothing
%>
</body>
</html>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -