Построение графика. ASP + SQl
Всем привет.
Кто нибуть пытался строить графики на ASP.
А случай такой, есть данные из SQl которые публикуются на странице и там ещё надо построить график. (Статистика по часам)
Подскажите кто ни буть. можно линк.
Спасибо.
Кто нибуть пытался строить графики на ASP.
А случай такой, есть данные из SQl которые публикуются на странице и там ещё надо построить график. (Статистика по часам)
Подскажите кто ни буть. можно линк.
Спасибо.
Аноним
на сервере установлен Офис2002 (или хотя бы OWC10)
Вот пример страницы с графиком
----------------------------------------
<%
sObj = Request.QueryString("Obj")
sFider = Request.QueryString("Fider")
sNumO = Request.QueryString("NumO")
sGr = Request.QueryString("Gr")
sDay = Request.QueryString("Mon")
%>
<html>
<title><%=sObj%>&nbsp;<%= sFider%></title>
<font color="#800080" size="2">График суточного потребления
<IMG STYLE="Margin0.5cm;Displayinline" src="chart.asp?NumO=<%=sNumO%>&Gr=<%=sGr%>&Day=<%=sDay%>"></IMG>
</body></html>
А вот файл chart.asp
---------------------------------
<%
sObj = Request.QueryString("NumO")
sGr = Request.QueryString("Gr")
sDay = Request.QueryString("Day")
Response.Buffer = TRUE
Response.ContentType = "image/gif"
Dim conn, rs
Set conn = CreateObject("ADODB.Connection")
conn.Open sConnectString
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM .....", conn
Dim aInter(48)
Dim aVal(48)
Dim i
i = 1
Do While Not rs.EOF
(заполняем aVal и aInter..........)
rs.MoveNext
Loop
Set rs= Nothing
Set conn = Nothing
Dim ChartSpace1, cht, c
Set ChartSpace1 = CreateObject("OWC10.ChartSpace")
Set c = Chartspace1.Constants
Set cht = Chartspace1.Charts.Add
' cht.Type = c.chChartTypeBarClustered
cht.SetData c.chDimSeriesNames, c.chDataLiteral, "Потр"
cht.SetData c.chDimCategories, c.chDataLiteral, aInter
cht.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, aVal
cht.SeriesCollection(0).Interior.Color = "Navy"
cht.PlotArea.Interior.Color = "White"
Chartspace1.Border.Color = c.chColorNone
Response.BinaryWrite Chartspace1.GetPicture ("gif", 700, 360)
Response.End
%>