?? financepostat.asp
字號(hào):
</tbody>
</table>
<%if request("statSearch2")="" then%>
<table align="center" cellspacing=1 cellpadding=1 width="100%" border=0 bgcolor="#ffffff" style="font-size:10pt">
<tr bgcolor="#dedfde">
<td align="center" width="5%" rowspan="2">排名</td>
<td align="center" width="40%"><%=dispname%>數(shù)</td>
<td align="center" width="10%">應(yīng)付筆數(shù)</td>
<td align="center" width="10%">占總應(yīng)付金額</td>
<td align="center" width="10%">應(yīng)付金額</td>
<td align="center">圖示</td>
</tr>
<%
TotalAmount=0
Totalnum=0
for i=1 to alls
if rsarreport.EOF then exit for
TotalAmount=TotalAmount+Ccur(rsarreport("subtamount"))
Totalnum=Totalnum+cint(rsarreport("subnum"))
rsarreport.MoveNext
Next
rsarreport.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="100" >(100%)</td>
</tr>
</table>
<%
rsarreport.open sql,connarreport,1,1
for i=1 to alls
if rsarreport.EOF then exit for
subtamount=Ccur(rsarreport("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%"><% =rsarreport(""&strstatSearch&"")%></td>
<td align="center" width="10%"><% =rsarreport("subnum")%></td>
<td align="center" width="10%"><% =(formatnumber((ccur((subtamount/TotalAmount)*10000)/100),2))%>%</td>
<td align="center" width="10%"><%=(formatnumber(ccur(rsarreport("subtamount")),2))%></td>
<td align="left"><img src="../images/statpic.jpg" height="10" width="<% =int((subtamount/TotalAmount)*100)%>"></td>
</tr>
<%
response.write "<tr ><td height=1 colspan=6 bgcolor=#000000></td></tr>"
rsarreport.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="關(guān)閉圖例" 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")%>">
<%
rsarreport.close
rsarreport.open sql,connarreport,1,1
for i=1 to alls
if rsarreport.EOF then exit for
%>
<PARAM NAME="value_<%=i%>" VALUE="<% =rsarreport("subtamount")%>">
<PARAM NAME="text_<%=i%>" VALUE="<% =rsarreport(""&strstatSearch&"")%>">
<%
rsarreport.MoveNext
next
%>
</APPLET>
</td><td></td>
</tr>
</table>
</div>
<%
rsarreport.close
connarreport.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%">應(yīng)付筆數(shù)</td>
<td align="center" width="10%">占總應(yīng)付金額</td>
<td align="center" width="10%">金額</td>
<td align="center">圖示</td>
</tr>
<%
TotalAmount=0
Totalnum=0
for i=1 to alls
if rsarreport.EOF then exit for
TotalAmount=TotalAmount+Ccur(rsarreport("subtamount"))
Totalnum=Totalnum+cint(rsarreport("subnum"))
rsarreport.MoveNext
Next
rsarreport.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="100">(100%)</td>
</tr>
</table>
<table align="center" cellspacing=1 cellpadding=1 width="100%" border=0 bgcolor="#ffffff" style="font-size:10pt">
<%
rsarreport.open sql,connarreport,1,1
'response.write sql
subTotalnum=0
subpercent=0
subTotalAmount=0
for i=1 to alls
if rsarreport.EOF then exit for
subtamount1=Ccur(rsarreport("subtamount"))
if totalamount=0 then totalamount=1
if rsarreport(""&strstatSearch&"") <> previous then
response.write "<tr bgcolor=#FFFFFF><td align=center>"&rsarreport(""&strstatSearch&"")&"</td><td colspan=5></td></tr>"
response.write "<tr bgcolor=#000000><td colspan=6></td></tr>"
subTotalnum=cint(rsarreport("subnum"))
subpercent=ccur((subtamount1/TotalAmount)*10000)/100
subTotalAmount=ccur(rsarreport("subtamount"))
else
subTotalnum=subTotalnum+cint(rsarreport("subnum"))
subpercent=subpercent+ccur((subtamount1/TotalAmount)*10000)/100
subTotalAmount=subTotalAmount+ccur(rsarreport("subtamount"))
end if
%>
<tr bgcolor="#FFFFFF">
<td align="center" width="20%"></td>
<td align="center" width="25%"><%=rsarreport(""&request("statsearch2")&"")%></a></td>
<td align="center" width="10%"><% =cint(rsarreport("subnum"))%></td>
<td align="center" width="10%"><% =(formatnumber((ccur((subtamount1/TotalAmount)*10000)/100),2))%>%</td>
<td align="center" width="10%"><%=(formatnumber(ccur(rsarreport("subtamount")),2))%></td>
<td align="left"><img src="../images/statpic.jpg" height="10" width="<% =int((subtamount1/TotalAmount)*100)%>"></td>
</tr>
<%
previous=rsarreport(""&strstatSearch&"")
rsarreport.MoveNext
' response.write rsarreport(""&strstatSearch&"")
if rsarreport.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 rsarreport(""&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="關(guān)閉圖例" 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")%>">
<%
rsarreport.close
rsarreport.open sql,connarreport,1,1
for i=1 to alls
if rsarreport.EOF then exit for
%>
<PARAM NAME="value_<%=i%>" VALUE="<% =rsarreport("subtamount")%>">
<PARAM NAME="text_<%=i%>" VALUE="<% =rsarreport(""&strstatSearch&"")%>&<% =rsarreport(""&request("statsearch2")&"")%>">
<%
rsarreport.MoveNext
next
%>
</APPLET>
</td><td></td>
</tr>
</table>
</div>
<%
rsarreport.close
connarreport.close
end if
set objcheck=nothing
%>
</body>
</html>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -