⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 salesstat.asp

📁 1 除掉了 时间 限制 2 除掉了 人数 限制 改为 500人 原为5人 3 发现一点小缺陷 增加人员的时候没有判断 登陆名是否重复！ 自己写吧~~~：） 4 又 是一点缺陷
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
                <td align="center" width="10%">
                <%
                if request("InvoiceStat")="NoInvoice" then
					Response.Write (formatnumber(ccur(rssalereport("subprice"))-ccur(rssalereport("subcost"))/1.17,2))
                else
					Response.Write (formatnumber(ccur(rssalereport("subprice"))-ccur(rssalereport("subcost")),2))
                end if
                %></td>
              </tr>
<% 
previous=rssalereport(""&strstatSearch&"")
 rssalereport.MoveNext
' response.write rssalereport(""&strstatSearch&"")
if rssalereport.eof 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>"&formatnumber(subpercent,2)&"%</td><td align=center>"&subTotalqty&"</td><td align=center>"&formatnumber(subTotalAmount,2)&"</td><td align=center>"&formatnumber(subTotalreceivedamount,2)&"</td><td align=center>"&formatnumber(subTotalAmount-subTotalCost,2)&"</td></tr>"
elseif rssalereport(""&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>"&formatnumber(subpercent,2)&"%</td><td align=center>"&subTotalqty&"</td><td align=center>"&formatnumber(subTotalAmount,2)&"</td><td align=center>"&formatnumber(subTotalreceivedamount,2)&"</td><td align=center>"&formatnumber(subTotalAmount-subTotalCost,2)&"</td></tr>"
else
	response.write "<tr ><td></td><td colspan=7 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")%>">
<%
 rssalereport.close 
  rssalereport.open sql,connsalereport,1,1
  for i=1 to alls
	if rssalereport.EOF then exit for
%>
            <PARAM NAME="value_<%=i%>" VALUE="<% =rssalereport("subprice")%>">
            <PARAM NAME="text_<%=i%>" VALUE="<% =rssalereport(""&strstatSearch&"")%>&<% =rssalereport(""&request("statsearch2")&"")%>">
<% 
 rssalereport.MoveNext
 next
%>
        </APPLET>
      </td><td></td>
    </tr>
</table>
</div>

<%
 rssalereport.close 
 connsalereport.close
'&&&&&&&&&&&&&&&&&&三个条件全选&&&&&&&&&&&&&&&&&&
elseif request("statSearch2")<>"" and request("statSearch3")<>"" 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="17%"><%=dispname%></td>
                <td align="center" width="17%"><%=dispname2%></td>
                <td align="center"  width="17%"><%=dispname3%></td>
                <td align="center" width="9%">占总销售金额</td>
                <td align="center" width="10%">数量</td>
                <td align="center" width="10%">销售金额</td>
                <td align="center" width="10%">已收金额</td>
                <td align="center" width="10%">销售利润</td>
              </tr>
				<%
				TotalAmount=0
				Totalnum=0
				for i=1 to alls
					if rssalereport.EOF then exit for
				TotalAmount=TotalAmount+Ccur(rssalereport("subprice"))
				Totalreceivedamount=Totalreceivedamount+ccur(rssalereport("subreceivedamount"))
				TotalQty=TotalQty+cint(rssalereport("subqty"))
				if request("InvoiceStat")="NoInvoice" then
					TotalCost=TotalCost+Ccur(rssalereport("subcost"))/1.17
				else
					TotalCost=TotalCost+Ccur(rssalereport("subcost"))
				end if
				rssalereport.MoveNext
				Next
				rssalereport.close
				%>
	      <tr bgcolor="#efefef">
                <td align="center"></td>
                <td align="center"></td>
                <td align="center"></td>
			    <td align="center">100.00%</td>
                <td align="center"><%=TotalQty%></td>
                <td align="center"><%=(formatnumber(ccur(TotalAmount),2))%></td>
                <td align="center"><%=(formatnumber(ccur(Totalreceivedamount),2))%></td>
                <td align="center">
                <%
                if request("InvoiceStat")="NoInvoice" then
					Response.Write (formatnumber(ccur(TotalAmount)-ccur(TotalCost)/1.17,2))
                else
					Response.Write (formatnumber(ccur(TotalAmount)-ccur(TotalCost),2))
                end if
                %>
                
                </td>
              </tr>
              </table>
<table align="center" cellspacing=1 cellpadding=1 width="100%" border=0 bgcolor="#ffffff" style="font-size:10pt">
<%
  rssalereport.open sql,connsalereport,1,1
'response.write sql
  subTotalreceivedamount=0
  subpercent=0
  subTotalAmount=0
  subTotalQty=0
  subTotalCost=0
  for i=1 to alls
	if rssalereport.EOF then exit for
subprice=Ccur(rssalereport("subprice"))
if TotalAmount=0 then TotalAmount=1
	if rssalereport(""&strstatSearch&"") <> previous then
		response.write "<tr bgcolor=#FFFFFF><td align=center>"&rssalereport(""&strstatSearch&"")&"</td><td colspan=7></td></tr>"
		response.write "<tr bgcolor=#000000><td colspan=8></td></tr>"
		subTotalreceivedamount=ccur(rssalereport("subreceivedamount"))
		subpercent=ccur((subprice/TotalAmount)*10000)/100
		subTotalAmount=ccur(rssalereport("subprice"))
		subTotalQty=cint(rssalereport("subqty"))
		if request("InvoiceStat")="NoInvoice" then
			subTotalCost=ccur(rssalereport("subcost"))/1.17
		else
			subTotalCost=ccur(rssalereport("subcost"))
		end if
	else
		subTotalreceivedamount=subTotalreceivedamount+ccur(rssalereport("subreceivedamount"))
		subpercent=subpercent+ccur((subprice/TotalAmount)*10000)/100
		subTotalAmount=subTotalAmount+ccur(rssalereport("subprice"))
		subTotalQty=subTotalQty+cint(rssalereport("subqty"))
		if request("InvoiceStat")="NoInvoice" then
			subTotalCost=subTotalCost+ccur(rssalereport("subcost"))/1.17
		else
			subTotalCost=subTotalCost+ccur(rssalereport("subcost"))
		end if
	end if

	if rssalereport(""&strstatSearch&"") <> previous and rssalereport(""&request("statsearch2")&"") <> previous2 then
		response.write "<tr bgcolor=#FFFFFF><td></td><td align=center>"&rssalereport(""&request("statsearch2")&"")&"</td><td colspan=6></td></tr>"
		response.write "<tr><td bgcolor=#FFFFFF></td><td colspan=7 bgcolor=#000000></td></tr>"
	end if
	if rssalereport(""&strstatSearch&"") <> previous and rssalereport(""&request("statsearch2")&"") = previous2 then
		response.write "<tr bgcolor=#FFFFFF><td></td><td align=center>"&rssalereport(""&request("statsearch2")&"")&"</td><td colspan=6></td></tr>"
		response.write "<tr><td bgcolor=#FFFFFF></td><td colspan=7 bgcolor=#000000></td></tr>"
	end if
	if rssalereport(""&strstatSearch&"") = previous and rssalereport(""&request("statsearch2")&"") <> previous2 then
		response.write "<tr bgcolor=#FFFFFF><td></td><td align=center>"&rssalereport(""&request("statsearch2")&"")&"</td><td colspan=6></td></tr>"
		response.write "<tr><td bgcolor=#FFFFFF></td><td colspan=7 bgcolor=#000000></td></tr>"
	end if
%>
               <tr bgcolor="#FFFFFF">
                <td align="center" width="17%"></td>
                <td align="center" width="17%"></td>
                <td align="center" width="17%">
				<%
				if request("statsearch3")="transactid" then
					response.write getfieldvalue("v_SalesStatandQuery","transactid",cint(rssalereport(""&request("statsearch3")&"")),"model")
				else
					response.write rssalereport(""&request("statsearch3")&"")
				end if
				%>
				</td>
                <td align="center" width="9%"><% =(formatnumber((ccur((subprice/TotalAmount)*10000)/100),2))%>%</td>
                <td align="center" width="10%"><% =rssalereport("subqty")%></td>
                <td align="center" width="10%"><%=(formatnumber(ccur(rssalereport("subprice")),2))%></td>
                <td align="center" width="10%"><%=(formatnumber(ccur(rssalereport("subreceivedamount")),2))%></td>
                <td align="center" width="10%">
                <%
                if request("InvoiceStat")="NoInvoice" then
					Response.Write (formatnumber(ccur(rssalereport("subprice"))-ccur(rssalereport("subcost"))/1.17,2))
                else
					Response.Write (formatnumber(ccur(rssalereport("subprice"))-ccur(rssalereport("subcost")),2))
                end if
                %>
                </td>
              </tr>
<% 
previous=rssalereport(""&strstatSearch&"")
previous2=rssalereport(""&request("statsearch2")&"")
 rssalereport.MoveNext
' response.write rssalereport(""&strstatSearch&"")
if rssalereport.eof then
	response.write "<tr ><td height=2 colspan=8 bgcolor=#000000></td></tr>"
	response.write "<tr  bgcolor=ffffff valign=top><td align=center  height=30>汇总</td><td align=center></td><td align=center></td><td align=center>"&formatnumber(subpercent,2)&"%</td><td align=center>"&subTotalqty&"</td><td align=center>"&formatnumber(subTotalAmount,2)&"</td><td align=center>"&formatnumber(subTotalreceivedamount,2)&"</td><td align=center>"&formatnumber(subTotalAmount-subTotalCost,2)&"</td></tr>"

elseif rssalereport(""&strstatSearch&"")<> previous then
	response.write "<tr ><td height=2 colspan=8 bgcolor=#000000></td></tr>"
	response.write "<tr  bgcolor=ffffff valign=top><td align=center  height=30>汇总</td><td align=center></td><td align=center></td><td align=center>"&formatnumber(subpercent,2)&"%</td><td align=center>"&subTotalqty&"</td><td align=center>"&formatnumber(subTotalAmount,2)&"</td><td align=center>"&formatnumber(subTotalreceivedamount,2)&"</td><td align=center>"&formatnumber(subTotalAmount-subTotalCost,2)&"</td></tr>"
else
	response.write "<tr ><td colspan=2 bgcolor=#FFFFFF></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")%>">
<%
 rssalereport.close 
  rssalereport.open sql,connsalereport,1,1
  for i=1 to alls
	if rssalereport.EOF then exit for
%>
            <PARAM NAME="value_<%=i%>" VALUE="<% =rssalereport("subprice")%>">
            <PARAM NAME="text_<%=i%>" VALUE="<% =rssalereport(""&strstatSearch&"")%>&<% =rssalereport(""&request("statsearch2")&"")%>&<% =rssalereport(""&request("statsearch3")&"")%>">
<% 
 rssalereport.MoveNext
 next
%>
        </APPLET>
      </td><td></td>
    </tr>
</table>
</div>

<%
 rssalereport.close 
 connsalereport.close
end if
%>
</body>
</html>
123

⌨️ 快捷键说明

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