script> Implementing dynamic statistics on the page has always been a very headache. After a period of research on VML, it was found that it was still very convenient to implement the chart on the HTML page. Now I will send me a three-dimensional statistical figure that I implemented with ASP VML to everyone, I hope to help everyone. (If you want to pay, please still keep my name, after all, I spent a lot of time working outcomes. :))
Previous article We looked at the pie chart, let's take a look at the graph. The mouse moves to the corresponding item to display the graph of the item, and the mouse movement disappears. If you want to display a comparison of several items, you only need to click the left mouse button on the project.
Curve status
Project 1
Project 2
Project 3
Project 4
Project 5
Project 6
Project 7
Project 8
Project 9
Project 10
yuan
time
1000
800
600
400
200
January
February
March
April
May
June
July
August
September
October
November
December
<%
'┏┏━━━━━━━━━━━━━━━━━━━━┓┓┓┓┓
'
'Abstract: Statist - Curve Ou
'Consumers: Weng Yunbing
'Caution date: December 01, 2004
'Completion date: November 03, 2004
'
'┗┗━━━━━━━━━━━━━━━━━━━━┛┛┛┛┛
'Parameter meanings (array, horizontal coordinate, longitudinal coordinate, width, graphic height, chart title, X-axis unit, Y-axis unit)
Function Table1 (Stat_Array, Table_LID, TABLE_TOP, All_WIDTH, ALL_HEIGHT, TABLE_TILE, X_UNIT, Y_UNIT)
DIM BG_COLOR (10)
BG_COLOR (1) = "# ff1919"
BG_COLOR (2) = "# fff19"
BG_COLOR (3) = "# 1919ff"
BG_COLOR (4) = "# 19ff19"
BG_COLOR (5) = "# fc0"
BG_COLOR (6) = "# 3cc"
BG_COLOR (7) = "# ff19ff"
BG_COLOR (8) = "# 993300"
BG_COLOR (9) = "# f60"
BG_COLOR (10) = "# ff8c19"
IF X_Unit <> "" ""
X_Unit = X_Unit
END IF
IF Y_Unit <> "" "
Y_Unit = y_Unit
END IF
Num1 = ubound (stat_array, 1)
LINE_TEMP = SPLIT (Stat_Array (0, 1), ",")
Num2 = ubound (line_temp, 1) 1
DIM line_code
Redim line_code (Num1, Num2)
For J = 1 to Num2
LINE_CODE (0, J) = line_temp (j-1) Next
For i = 1 to Num1
LINE_TEMP = SPLIT (Stat_Array (i, 1), ",")
LINE_CODE (I, 0) = Stat_Array (i, 2)
For J = 1 to Num2
LINE_CODE (i, j) = CDBL (line_temp (j-1))
NEXT
NEXT
value_Max = 0 for i = 1 to num1 for j = 1 to num2 if value_Max
Item_Width = 2000 / (Num2-1) Response.write "
Response.write " Response.write " Response.write " For i = 0 to 4 response.write " Response.write " "response.write"
"response.write"