?? chart_sell_gc.asp
字號:
<!--#include file="../conn.asp"-->
<!--#include file="../IsUser.asp"-->
<!--#include file="Private_fun.asp"-->
<!--#include file="../pub_fun.asp"-->
<script language="vBScript">
opener.close()
</script>
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<style>
v\:* { behavior: url(#default#VML) }
o\:* { behavior: url(#default#VML) }
.shape { behavior: url(#default#VML) }
</style>
<HEAD><title>銷售構成分析</title>
<META NAME="Keywords" CONTENT="FastReport"/>
<META NAME="Description" CONTENT="The FastReport report"/>
<LINK href="../css.css" rel="stylesheet" type="text/css" media="all">
</head>
<body >
<%
''獲取統計對象
kind=trim(request("kind"))
''解密查詢條件
condition= decrypt(trim(request("condition")))
sql="select "
''根據查詢對象生成SQL查詢語句
select case trim(request("kind"))
case "0"
sql=sql&" Sellclientid, SUM(Sellmoney) AS totalmoney, SUM(SellProductnum) AS totalnum FROM Sell"
sql=sql& condition
sql=sql&" GROUP BY SellClientid"
case "1"
sql=sql&" SellProduct, SUM(Sellmoney) AS totalmoney, SUM(SellProductnum) AS totalnum FROM Sell"
sql=sql& condition
sql=sql&" GROUP BY SellProduct"
end select
'定義一個二維數組
dim show_data(100,2)
''建立數據集
set rs_s = server.createobject("adodb.recordset")
rs_s.open sql,conn,3
if not rs_s.eof then
'判斷記錄是否為空，不為空則進行西面的操作
total_no=rs_s.recordcount
for i=1 to total_no
show_data(i,1)=cdbl(rs_s("totalmoney"))
'根據統計對象分別將要先是的標題設置為客戶或者產品
if kind="0" then
show_data(i,2)=showclientname(rs_s("SellClientid"))
else
show_data(i,2)=trim (rs_s("SellProduct"))
end if
rs_s.movenext
next
end if
width=cint(total_no)*90
call table1(show_data,total_no,-20,40,8,15,width,400)
%>
</BODY></HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -