ASP中的图表? ASP newb在这里 [英] Graphs in ASP? ASP newb here
问题描述
是否有人知道生成图表的技术(或网站)
基于数组的数据?
有关图表和ASP的任何建议非常感谢...
Does anybody know of techniques (or websites) where a graph is generated
based on data of an array?
Any advice on graphs and ASP is greatly appreciated...
推荐答案
www.aspin.com 搜索
那里有很多东西
" Jose M Hernandez" < Jose M He*******@discussions.microsoft.com >写在
消息新闻:C9 ********************************** @ microsof t.com ...
www.aspin.com search
plenty of stuff there
"Jose M Hernandez" <Jose M He*******@discussions.microsoft.com> wrote in
message news:C9**********************************@microsof t.com...
有没有人知道基于数组数据生成图表的技术(或网站)?
任何建议非常感谢图表和ASP ...
Does anybody know of techniques (or websites) where a graph is generated
based on data of an array?
Any advice on graphs and ASP is greatly appreciated...
=?Utf-8?B?Sm9zZSBNIEhlcm5hbmRleg ==?= 2006年1月6日在
microsoft.public.inetserver.asp.general:
=?Utf-8?B?Sm9zZSBNIEhlcm5hbmRleg==?= wrote on 06 jan 2006 in
microsoft.public.inetserver.asp.general:
是否有人知道基于数据生成图表的技术(或网站)?阵列?
对图表和ASP的任何建议都非常感谢...
Does anybody know of techniques (or websites) where a graph is generated
based on data of an array?
Any advice on graphs and ASP is greatly appreciated...
任何:
< hr style =" height:10px; width:<%= x(1)%> px; text-align:left; color:red;">
< hr style =" height:10px; width:<%= x(2)%> px; text-align:left; color:navy;">
< hr style =" height:10px; width:<%= x(3)%> px; text-align:left; c olor:green;">
-
Evertjan。
荷兰。
(请更改在我的电子邮件地址中的点到点数)
Any:
<hr style="height:10px;width:<%=x(1)%>px;text-align:left;color:red;">
<hr style="height:10px;width:<%=x(2)%>px;text-align:left;color:navy;">
<hr style="height:10px;width:<%=x(3)%>px;text-align:left;color:green;">
--
Evertjan.
The Netherlands.
(Please change the x''es to dots in my emailaddress)
" Jose M Hernandez" < Jose M He*******@discussions.microsoft.com >写在
消息新闻:C9 ********************************** @ microsof t.com ...
"Jose M Hernandez" <Jose M He*******@discussions.microsoft.com> wrote in
message news:C9**********************************@microsof t.com...
有没有人知道基于数组数据生成图表的技术(或网站)?
任何建议非常感谢图表和ASP ...
是的我创建了一个脚本组件来制作图表,它可以在一个记录集上工作
传递给它有一些特殊的代码可以满足我的需求,但是你可以改变它来使用数组来满足你自己的需求
这里有一个例子
http://wanews.org/economic/unemployment.asp
将代码复制到记事本中
另存为chart.wsc
然后像这样调用
set chart = Server.CreateObject(" chart.WSC")
chart.chartLine(" Australian Interest
Rates"," InterestRates" ,300,200,RS1( minx),rs1(ma xx),rs2,0,7,%,right,和"
这里是代码
<?xml version =" 1.0"?>
< component>
< registration
description =" Chart"
progid =" Chart.WSC"
version =" 1.00"
classid =" {bf770420-5a73-4e1b-b5ce-f4f8a5448ee5}"
Does anybody know of techniques (or websites) where a graph is generated
based on data of an array?
Any advice on graphs and ASP is greatly appreciated...
yes I made a scripting component to make charts, it works on a record set
being passed to it and has some percific code to my needs in it, but you
could alter it to use a array for your own needs
here is a example
http://wanews.org/economic/unemployment.asp
copy code into notepad
save as chart.wsc
then call like this
set chart = Server.CreateObject("chart.WSC")
chart.chartLine("Australian Interest
Rates","InterestRates",300,200,rs1("minx"),rs1("ma xx"),rs2,0,7,"%","right","")
and here is the code
<?xml version="1.0"?>
<component>
<registration
description="Chart"
progid="Chart.WSC"
version="1.00"
classid="{bf770420-5a73-4e1b-b5ce-f4f8a5448ee5}"
< / registration>
< public>
< method name =" chartLine">
< PARAMETER name =" heada" />
< PARAMETER name =" table" />
< PARAMETER name =" widthx" />
< PARAMETER name =" heightx" />
< PARAMETER name =" rangeLow" />
< PARAMETER name =" rangeHigh" />
< PARAMETER name =" recordSet" />
< PARAMETER name =" xCol" /& gt;
< PARAMETER name =" dCol" />
< PARAMETER name =" symbol" />
< PARAMETER name =" alignent" />
< / method>
< / public>
< implements type =" ASP" id =" ASP" />
< script language =" VBScript">
<![CDATA [
函数
chartLine(heada,table,widthx,heightx,rangeLow,rang eHigh,recordSet,xCol,dCol,symbol,alignent,bgColor)
Session.LCID = 3081
set bttt = server.CreateObject(" MSWC.BrowserType")
dim ratio,rCount,points,counta, leftx,lefty,spacex,range,line1
,line2,line3,test,datex,color,ditString,datString
test = true
color =" Blue"
line1 =""
line2 =""
line3 =""
counta = 0
leftx = 50
lefty = 50
dateWhitlam =" 1972年12月2日
dateFraser =" 1975年11月11日
dateHawk =" 11月11日,1983"
dateHoward =" 3月2日,1996年"
rCount = recordSet.RecordCount
点s = rCount /(widthx / 25)
spacex = widthx / rCount
range = rangeHigh-rangeLow
ratio = heightx / range
line1 ="< TABLE style ="" margin:5"" BORDER = 0 CELLSPACING = 0 CELLPADDING = 5
align =" &安培; alignent& "高度= QUOT; &安培; heightx + 40& "宽度= QUOT; &安培; widthx + 80&
bgcolor =" &安培; bgColor& ">"
line1 = line1& "< TR>< TD>< SPAN
style ="" font-family:arial; font-weight:900"">" &安培; heada& "< / SPAN>< DIV
STYLE ="" position:relative; height:" &安培; heightx +85& " ;; margin-top:20">"
do until recordSet.EOF
''response.write recordSet(xCol)
如果DateValue(recordSet(xCol))> DateValue(dateWhitlam)然后
如果DateValue(recordSet(xCol))> DateValue(dateFraser)然后
如果DateValue(recordSet(xCol))> DateValue(dateHawk)然后
如果DateValue(recordSet(xCol))> DateValue(dateHoward)然后
color =" Blue"
else
color =" Red"
结束如果
else
color =" Blue"
结束如果
else
color =" Red"
结束如果
结束如果
line22 ="< v:line strokescolor ="" ;" &安培;颜色和"""从= QUOT;"" &安培;左派和左派"," &
heightx - ((recordSet(dCol) - rangeLow)* ratio)& """"
if bttt.browser =" IE" AND bttt.version => 6然后
line33 ="< DIV
style ="" font-size:10; writing-mode:tb-rl; position:absolute; top :" &安培; heightx +
20&英寸;左:" &安培; leftx-5& """>" &安培; getAUSDate(recordSet(xCol))& "< / DIV>"
else
line33 ="< DIV
style ="" font-size :9;写入模式:TB-RL;位置:绝对的;顶部:" &安培; heightx +
20&英寸;左:" &安培; leftx-5& """>" &安培;年(recordSet(xCol))& < / lt; / DIV>"
结束如果
recordSet.MoveNext
如果不是recordSet.EOF那么
line22 = line22& "到= QUOT;"" &安培; leftx + spacex& "," &安培; heightx -
((recordSet(dCol) - rangeLow)* ratio)& """ TITLE ="""&安培; recordSet(dCol)
&"">< / v:line>"
else
line22 = ""
line3 = line3& line33
结束如果
line2 = line2& line22
leftx = leftx + spacex
if counta => pointsx和pointsx< (rCount - (points / 2))然后
pointsx = pointsx + points
if bttt.browser =" IE" AND bttt.version => 6然后
line3 = line3& "< DIV
style ="" font-size:10; writing-mode:tb-rl; position:absolute; top:" &安培; heightx +
20&英寸;左:" &安培; leftx-5& """>" &安培; getAUSDate(recordSet(xCol))& "< / DIV>"
else
datString = Year(recordSet(xCol))
line3 = line3& "< DIV
style ="" font-size:9; writing-mode:tb-rl; position:absolute; top:" &安培; heightx +
20&英寸;左:" &安培; leftx-5& """>" &安培; datString& "< / DIV>"
datString =""
结束如果
结束如果
counta = counta + 1
loop
line3 = line3& "< DIV style ="" font-size:12; position:relative; top:-5"">" &
FormatNumber(rangeHigh,2)&符号& "< / DIV>< v:line strokescolor ="" black""
from =""" &安培;左撇子+ 10& "," &安培; -15& """到= QUOT;"" &安培; lefty + widthx& "," &安培; -15&
""">< / v:line>"
line3 = line3& "< DIV style ="" font-size:12; position:relative; top:" &
heightx / 2-25& """>" &安培; FormatNumber(((rangeHigh-rangeLow)/ 2)+ rangeLow,2)&
symbol& "< / DIV>< v:line strokescolor ="" black""从= QUOT;"" &安培;左撇子+ 10& "," &
heightx / 2-32& """到= QUOT;"" &安培; lefty + widthx& "," &安培; heightx / 2-32&
""">< / v:line>"
line3 = line3& "< DIV style ="" font-size:12; position:relative; top:" &
heightx-50& """>" &安培; FormatNumber(rangeLow,2)&符号& "< / DIV>< v:line
strokescolor ="" black""从= QUOT;"" &安培;左撇子"," &安培; heightx - 45& """到= QUOT;"" &
lefty + widthx& "," &安培; heightx - 45& """>< / v:line>"
line3 = line3& "< / DIV>< A HREF ="" /pub/economic/xl/data.asp?tab =" &安培;表&
""">图表数据< / A>< / TD>< / TR>< / TABLE>"
line = line1&第2行& line3
chartLine = line
结束函数
函数getAUSDate(dDate)
dim d, m,y
d =日(dDate)
m =月(dDate)
y =年(dDate)
getAUSDate = d&" /"& m&" /"& y
结束功能
]]>
< / script>
< / component>
</registration>
<public>
<method name="chartLine">
<PARAMETER name="heada"/>
<PARAMETER name="table"/>
<PARAMETER name="widthx"/>
<PARAMETER name="heightx"/>
<PARAMETER name="rangeLow"/>
<PARAMETER name="rangeHigh"/>
<PARAMETER name="recordSet"/>
<PARAMETER name="xCol"/>
<PARAMETER name="dCol"/>
<PARAMETER name="symbol"/>
<PARAMETER name="alignent"/>
</method>
</public>
<implements type="ASP" id="ASP"/>
<script language="VBScript">
<![CDATA[
function
chartLine(heada,table,widthx,heightx,rangeLow,rang eHigh,recordSet,xCol,dCol,symbol,alignent,bgColor)
Session.LCID = 3081
set bttt = server.CreateObject("MSWC.BrowserType")
dim ratio, rCount ,points ,counta ,leftx ,lefty ,spacex ,range ,line1
,line2 ,line3 ,test ,datex,color,ditString,datString
test = true
color = "Blue"
line1 = ""
line2 = ""
line3 = ""
counta = 0
leftx = 50
lefty = 50
dateWhitlam = "December 2, 1972"
dateFraser = "november 11, 1975"
dateHawk = "march 11, 1983"
dateHoward = "march 2, 1996"
rCount = recordSet.RecordCount
points = rCount / (widthx/25)
spacex = widthx / rCount
range = rangeHigh-rangeLow
ratio = heightx / range
line1 = "<TABLE style=""margin:5"" BORDER=0 CELLSPACING=0 CELLPADDING=5
align=" & alignent & " height=" & heightx + 40 & " width=" & widthx + 80 & "
bgcolor=" & bgColor & ">"
line1 = line1 & "<TR><TD><SPAN
style=""font-family:arial;font-weight:900"">" & heada & "</SPAN><DIV
STYLE=""position:relative;height:" & heightx +85 & ";margin-top:20"">"
do until recordSet.EOF
''response.write recordSet(xCol)
if DateValue( recordSet(xCol)) > DateValue(dateWhitlam) then
if DateValue( recordSet(xCol)) > DateValue(dateFraser) then
if DateValue( recordSet(xCol)) > DateValue(dateHawk) then
if DateValue( recordSet(xCol)) > DateValue(dateHoward) then
color = "Blue"
else
color = "Red"
end if
else
color = "Blue"
end if
else
color = "Red"
end if
end if
line22 = "<v:line strokecolor=""" & color & """ from=""" & leftx & "," &
heightx - ((recordSet(dCol) - rangeLow) * ratio) & """"
if bttt.browser = "IE" AND bttt.version => 6 then
line33 = "<DIV
style=""font-size:10;writing-mode:tb-rl;position:absolute;top:" & heightx +
20 & ";left:" & leftx-5 & """>" & getAUSDate(recordSet(xCol)) & "</DIV>"
else
line33 = "<DIV
style=""font-size:9;writing-mode:tb-rl;position:absolute;top:" & heightx +
20 & ";left:" & leftx-5 & """>" & Year(recordSet(xCol)) & "</DIV>"
end if
recordSet.MoveNext
if not recordSet.EOF then
line22 = line22 & " to=""" & leftx + spacex & "," & heightx -
((recordSet(dCol) - rangeLow) * ratio) & """ TITLE="""& recordSet(dCol)
&"""></v:line>"
else
line22 = ""
line3 = line3 & line33
end if
line2 = line2 & line22
leftx = leftx + spacex
if counta => pointsx and pointsx < (rCount - (points / 2)) then
pointsx = pointsx + points
if bttt.browser = "IE" AND bttt.version => 6 then
line3 = line3 & "<DIV
style=""font-size:10;writing-mode:tb-rl;position:absolute;top:" & heightx +
20 & ";left:" & leftx-5 & """>" & getAUSDate(recordSet(xCol)) & "</DIV>"
else
datString = Year( recordSet(xCol))
line3 = line3 & "<DIV
style=""font-size:9;writing-mode:tb-rl;position:absolute;top:" & heightx +
20 & ";left:" & leftx-5 & """>" & datString & "</DIV>"
datString = ""
end if
end if
counta = counta + 1
loop
line3 = line3 & "<DIV style=""font-size:12;position:relative;top:-5"">" &
FormatNumber( rangeHigh,2) & symbol & "</DIV><v:line strokecolor=""black""
from=""" & lefty+10 & "," & -15 & """ to=""" & lefty + widthx & "," & -15 &
"""></v:line>"
line3 = line3 & "<DIV style=""font-size:12;position:relative;top:" &
heightx/2-25 & """>" & FormatNumber(((rangeHigh-rangeLow)/2)+rangeLow,2) &
symbol & "</DIV><v:line strokecolor=""black"" from=""" & lefty+10 & "," &
heightx/2-32 & """ to=""" & lefty + widthx & "," & heightx/2-32 &
"""></v:line>"
line3 = line3 & "<DIV style=""font-size:12;position:relative;top:" &
heightx-50 & """>" & FormatNumber( rangeLow,2) & symbol & "</DIV><v:line
strokecolor=""black"" from=""" & lefty & "," & heightx - 45 & """ to=""" &
lefty + widthx & "," & heightx - 45 & """></v:line>"
line3 = line3 & "</DIV><A HREF=""/pub/economic/xl/data.asp?tab=" & table &
""">Chart Data</A></TD></TR></TABLE>"
line = line1 & line2 & line3
chartLine = line
end function
function getAUSDate(dDate)
dim d,m,y
d = Day(dDate)
m = Month(dDate)
y = Year(dDate)
getAUSDate = d &"/"& m &"/"& y
end function
]]>
</script>
</component>
这篇关于ASP中的图表? ASP newb在这里的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!