帮我看看代码好不?
大家帮帮忙,帮我看下代码有什么问题!
<script language= "javascript ">
//建立曲线对象
var vc = new VMLCurve(document.all.curve);
//设置X坐标值，从左至右
vc.configXValue = new Array( '一月 ', '二月 ', '三月 ', '四月 ', '五月 ', '六月 ', '七月 ', '八月 ', '九月 ', '十月 ', '十一月 ', '十二月 ');
//设置Y坐标轴
vc.configYPerValue = 100;
vc.configYMinValue = 100;
vc.configYValue = new Array(100,200,300,400,500,600,700,800,900,1000);
vc.init( "vc ", "曲线图 ");
//用数组设置点的横纵标值及提示信息
<%
set rs=server.CreateObject( "adodb.recordset ")
rs.open ( "select * from chart "),conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof then
mycart=mycart& ", "&x1
rs.movenext
loop
end if
mycart=split(rss( "mycart "), ", ")
%>
var xValueArr = <%=mycart()%> ;//X轴数据，
<%
set rs=server.CreateObject( "adodb.recordset ")
rs.open ( "select * from chart "),conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof then
mycart=mycart& ", "&y1
rs.movenext
loop
end if
mycart=split(rss( "mycart "), ", ")
%>
var yValueArr = <%=mycart()%> ;//X轴数据，
//var xValueArr = new Array(1,2,3,4,5,6,7,8,9,10,11,12);//X轴数据，
//var yValueArr = new Array(330,280,420,550,600,700,800,720,190,940,590,340);//Y轴数据
var sValueArr = new Array( '第1个点 ', '第2个点 ', '第3个点 ', '第4个点 ', '第5个点 ', '第6个点 ', '第7个点 ', '第8个点 ', '第9个点 ', '第10个点 ', '第11个点 ', '第12个点 ');//提示信息
//用数组设置点的横纵标值及提示信息
var xValueArr1 = new Array(1,2,3,4,5,6,7,8,9,10,11,12);//X轴数据，
var yValueArr1 = new Array(530,180,520,350,200,800,600,320,790,340,990,240);//Y轴数据
var sValueArr1 = new Array( '第1个点 ', '第2个点 ', '第3个点 ', '第4个点 ', '第5个点 ', '第6个点 ', '第7个点 ', '第8个点 ', '第9个点 ', '第10个点 ', '第11个点 ', '第12个点 ');//提示信息
//设置圆点的属性
vc.setPointsProp(5,1, '#FF6600 ', '#FF6600 ');
vc.setPointsValue(xValueArr,yValueArr,sValueArr);
//设置圆点的属性
vc.setPointsProp(5,1, '#FF6600 ', '#FF6600 ');
vc.setPointsValue(xValueArr1,yValueArr1,sValueArr1);
</script>
[解决办法]
<%
dim xValueArr1
dim yValueArr1
dim sValueArr1
dim output
xValueArr1 = "var sValueArr = new Array( "
yValueArr1 = "var yValueArr1 = new Array( "
sValueArr1 = "var sValueArr1 = new Array( "
Do While Not Rs.eof
xValueArr1 = xValueArr1 & " ' "&rs(0)& " ', "
yValueArr1 = yValueArr1 & " ' "&rs(1)& " ', "
sValueArr1 = sValueArr1 & " ' "&rs(2)& " ', "
Rs.Movenext
Loop
'去掉最后一个 ", "
xValueArr1 = Left(xValueArr1,Len(xValueArr1)-1)
yValueArr1 = Left(yValueArr1,Len(yValueArr1)-1)
sValueArr1 = Left(sValueArr1,Len(sValueArr1)-1)
'最后的数组
xValueArr1 = xValueArr1 & ");//X轴数据 "&vbCrLf
yValueArr1 = yValueArr1 & ");//Y轴数据 "&vbCrLf
sValueArr1 = sValueArr1 & ");//提示信息 "&vbCrLf
'输出为Javascript代码
output = xValueArr1 & yValueArr1 & sValueArr1
Response.Write " <script> "&output& " </script> "
'最此代码直接C到页面中,循环部分由自己根据实际情况修改。
'有问题：Q我：85035097
%>
