L
llk
Unregistered / Unconfirmed
GUEST, unregistred user!
请看看这段teechart在asp中应用的程序，怎么VBScript语句给teechart附不上值
<HTML>
<HEAD><TITLE>TeeChart JPEG Chart Page</TITLE></HEAD>
<BODY>
<!-- Create the ActiveX object at the server -->
<OBJECT ID="TChart1" WIDTH=450 HEIGHT=290
codebase="TeeChart.ocx#version=4,0,0,7"
CLASSID="CLSID:008BBE7E-C096-11D0-B4E3-00A0C901D681"
Codebase>
</OBJECT>
<SCRIPT Language="VBScript" RUNAT=Server>
SUB FillSave()
Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Header.Text.Add "测试应用"
TChart1.AddSeries(1)
TChart1.Series(0).Clear
TChart1.Series(0).Add 100, "Apples", RGB(255,0,0)
TChart1.Series(0).Add 300, "Pears", RGB(255,255,255)
TChart1.Series(0).Add 200, "Bananas", RGB(255,255,0)
END SUB
</SCRIPT>
</BODY>
</HTML>
<HTML>
<HEAD><TITLE>TeeChart JPEG Chart Page</TITLE></HEAD>
<BODY>
<!-- Create the ActiveX object at the server -->
<OBJECT ID="TChart1" WIDTH=450 HEIGHT=290
codebase="TeeChart.ocx#version=4,0,0,7"
CLASSID="CLSID:008BBE7E-C096-11D0-B4E3-00A0C901D681"
Codebase>
</OBJECT>
<SCRIPT Language="VBScript" RUNAT=Server>
SUB FillSave()
Set TChart1 = CreateObject("TeeChart.TChart")
TChart1.Header.Text.Add "测试应用"
TChart1.AddSeries(1)
TChart1.Series(0).Clear
TChart1.Series(0).Add 100, "Apples", RGB(255,0,0)
TChart1.Series(0).Add 300, "Pears", RGB(255,255,255)
TChart1.Series(0).Add 200, "Bananas", RGB(255,255,0)
END SUB
</SCRIPT>
</BODY>
</HTML>