台灣最大程式設計社群網站
線上人數
121
 
會員總數:244675
討論主題:188773
歡迎您免費加入會員
討論區列表 >> Java Script/ Node.js >> 關於VBscript的柱狀圖
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
關於VBscript的柱狀圖
價值 : 50 QP  點閱數:1680 回應數:0

樓主

安安安
門外漢
0 4
54 4
發送站內信

小弟要柱狀圖跟資料庫的資料連結,意思就是說當我新增一筆在資料庫裡面,VBscript畫出來的圖就會跟著改變

拜託各位大大了!!!! 以下是小弟的程式 前幾個問題可能比較難懂,各位高手可能看不太懂,這次我問的比較簡單一點
希望有神人可以幫幫忙,拜託拜託

<!--#include file="conn.asp" -->
<!--#include file="webconfig.asp"-->

<html>
<link href="../db/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {

}
-->
</style>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<link rel=stylesheet href='css/tx.css' type=text/css>

<object id="ChartSpace1" classid="CLSID:0002E500-0000-0000-C000-000000000046" style="width:95%;height:400"> </object>
<object id=ADOConnection1 classid=CLSID:00000514-0000-0010-8000-00AA006D2EA4></object>
<span class="btd">
<%
'下面測試的是一個產品銷量圖
aaa = "筆記型電腦,電腦與電腦週邊,手機,數位相機,數位家電,MP3/MP5" '資料項目名數組(給出測試資料,實際用的時候從資料庫讀取用","分隔)
bbb = "70,60,20,80,90,130" '資料項目值數組

%>
</span>

<script language="vbscript">
Sub Window_OnLoad()
'為資料賦值
categories = split("<%=aaa%>",",") '資料項目名數組
values = split("<%=bbb%>",",") '資料項目值數組

Set cht = ChartSpace1.Charts.Add '添加一個圖標對象
Set c = ChartSpace1.Constants '返回一個對象,此對象允許腳本使用者使用已命名的常量。
cht.Type = c.chChartTypeColumnClustered '設置圖表類型為折線圖
'-------設置圖表標題----------------------------------------
ChartSpace1.HasChartSpaceTitle = True '指定圖表工作區中包含標題
ChartSpace1.ChartSpaceTitle.Caption =("<%=strdate1%>") '設置圖表工作區標題內容
'有關字體的設置
ChartSpace1.ChartSpaceTitle.Font.Bold = True '設置圖表工作區標題內容是否粗體
ChartSpace1.ChartSpaceTitle.Font.Color = "blue" '設置圖表工作區標題的顏色
ChartSpace1.ChartSpaceTitle.Font.Italic = False '設置圖表工作區標題是否為斜體
ChartSpace1.ChartSpaceTitle.Font.Name = "隸書" '設置圖表工作區標題內容的字體
ChartSpace1.ChartSpaceTitle.Font.Size = 18 '設置圖表工作區標題內容的大小(單位:磅)
ChartSpace1.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle '設置下划線屬性

cht.SetData c.chDimCategories, c.chDataLiteral, categories '橫項(分類軸)
cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values
Set dl = cht.SeriesCollection(0).DataLabelsCollection.Add '添加圖例的資料標記
dl.HasValue = True
dl.HasPercentage = False
dl.Font.Size = 9
dl.Font.Color = "red"
dl.Position = c.chLegendPositionRight

'設置縱向數值屬性
Set categoryAxis = cht.Axes(c.chAxisPositionBottom)
categoryAxis.Font.Size = 9
'設置分類組屬性
Set categoryAxis = cht.Axes(c.chAxisPositionLeft)
categoryAxis.Font.Size = 9
End Sub
</script>
</html>

本篇文章發表於2010-01-13 15:31
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.