高手快来拿分，这个一起结贴，全都给您！一个对高手来说很简单的问题！！！

[loveasp007]

下面是asp自动生成图表的源程序，我给修改了一下，因为我要将access表里的数据代替SQARXLstr里面的数字（程序第10行和第11行），

哪位高手能把下面代码里的第10行，也就是这一行：

SQARXLstr = "rs('xs1'),gdy1,t1351,zdp1" 这样运行时不成功

如果改成这样就可以：SQARXLstr = "10,20,30,40"

我用rs("xs1")这种方式读，不成功，将rs("xs1")写到一个变量里，然后读这个变量，仍然没有数据！！！！如果直接用数字，就可以！！到底怎么回事？？


请问应该怎么把access表里的字段值写进来。。请贴出代码或能赐个思路，谢谢！！！

http://community.csdn.net/Expert/topic/4425/4425604.xml?temp=.172558

解决后，2个贴一起结，分数都给您！！在线等。。。急。。。

---------------------------------------------------------------------
<%
xs1=rs("xs1")
gdy1=rs("gdy1")
t1351=rs("1351")
zdp1=rs("zdp1")
'下面测试的是一个产品销量图
MX1 = "本周,上周" '数据项目名数组（给出测试数据，实际用的时候从数据库读取用","分隔）
MX2 = "50,60,20,80" '数据项目值数组
Datestr = "销售总量,产品一,产品二,产品三" '日期
SQARXLstr = "rs('xs1'),gdy1,t1351,zdp1" 'A产品
SQARXLstr = SQARXLstr & "," & "15412,2938,887,2025" 'B产品%>
<br/>
<center><object id="ChartSpace3" classid="CLSID:0002E500-0000-0000-C000-000000000046" style="width:95%;height:400"></object></center>

<script language="vbscript">
Sub Window_OnLoad()
SParr = split("<%=MX1%>",",")
Datearr = split("<%=Datestr%>",",")

Set cht = ChartSpace3.Charts.Add
Set c = ChartSpace3.Constants
cht.Type = c.chChartTypeLineMarkers
ChartSpace3.HasChartSpaceTitle = True
ChartSpace3.ChartSpaceTitle.Caption = "近两周销售情况对比"
'有关字体的设置
ChartSpace3.ChartSpaceTitle.Font.Bold = True
ChartSpace3.ChartSpaceTitle.Font.Color = "blue"
ChartSpace3.ChartSpaceTitle.Font.Italic = False
ChartSpace3.ChartSpaceTitle.Font.Name = "隶书"
ChartSpace3.ChartSpaceTitle.Font.Size = 18
ChartSpace3.ChartSpaceTitle.Font.Underline = c.owcUnderlineStyleSingle
cht.HasLegend = True
cht.Legend.Font.Size = 9
cht.Legend.Position = c.chLegendPositionBottom

cht.SetData c.chDimSeriesNames, c.chDataLiteral, SParr
cht.SetData c.chDimCategories, c.chDataLiteral, Datearr
Set categoryAxis = cht.Axes(c.chAxisPositionBottom)
categoryAxis.Font.Size = 9
Set categoryAxis = cht.Axes(c.chAxisPositionLeft)
categoryAxis.Font.Size = 9

values = split("<%=SQARXLstr%>",",")
for i = 0 to ubound(SParr)
valuetemp = ""
for j = i*(ubound(Datearr)+1) to (i+1)*(ubound(Datearr)+1)-1
valuetemp = valuetemp & "," & values(j)
next
valuearr = split(mid(valuetemp,2),",")
cht.SeriesCollection(i).SetData c.chDimValues, c.chDataLiteral, valuearr
Set dl = cht.SeriesCollection(i).DataLabelsCollection.Add
dl.HasValue = True
dl.HasPercentage = False
dl.Font.Size = 9
next

End Sub
</script>

[孟子E章]

SQARXLstr = rs("xs1") & ",gdy1,t1351,zdp1"

[wawaboy]

SQARXLstr = rs('xs1')&","& gdy1 &","&t1351&","&zdp1 'A产品

[孟子E章]

SQARXLstr = "<%=rs("xs1")%>,gdy1,t1351,zdp1"

客户端写

[loveasp007]

请二楼到http://community.csdn.net/Expert/topic/4425/4425604.xml?temp=.172558里跟贴，发分给您！！

谢谢您！