ASP line chart

<%
'Parameter meaning (array, abscissa, ordinate, chart width, chart height, chart title, X axis unit, Y axis Unit)
Function table1 (stat_array, table_left, table_top, all_width, all_height, table_title, X_unit, Y_unit)
Dim bg_color (8)
Bg_color (1) = "# ff1919"
Bg_color (2) = "# ffff19"
Bg_color (3) = "# 1919ff"
Bg_color (4) = "#19ff19"
Bg_color (5) = "# fc0"
Bg_color (6) = "# 3cc"
Bg_color (7) = "# ff19ff"
Bg_color (8) = "#993300"

If X_unit <> "then
X_unit = X_unit
End if
If Y_unit <> "then
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 <line_code (I, j) then value_Max = line_code (I, j)
Next
Next

Value_Max = cint (value_Max)
Value_Max_str = cstr (value_Max)
If value_Max> 9 then
Temp = mid (value_Max_str, 2, 1)
If temp> 4 then
Temp2 = (int (value_Max/(10 ^ (len (value_Max_str)-1) + 1) * 10 ^ (len (value_Max_str)-1)
Else
Temp2 = (int (value_Max/(10 ^ (len (value_Max_str)-1) + 0.5) * 10 ^ (len (value_Max_str)-1)
End if
Else
If value_Max> 4 then temp2 = 10 else temp2 = 5
End if
Item_hight = temp2/5

Item_width = 20000/(num2-1)

Response. write "<v: rect id = 'background' style = 'position: absolute; left:" & table_left & "px; top:" & table_top & "px; WIDTH: "& all_width &" px; HEIGHT: "& all_height &" px; 'fillcolor = '# efefef' strokecolor = 'Gray'>"
Response. Write "<v: shadow on = 't'type = 'single 'color = 'silver 'offset = '4pt, 4pt '/>"
Response. Write "</v: rect>"

Response. write "<v: group ID = 'table' style = 'position: absolute; left:" & table_left & "px; top:" & table_top & "px; WIDTH: "& all_width &" px; HEIGHT: "& all_height &" px; 'coordsize = '000000'>"

Response. write "<v: Rect style = 'position: relative; left: 1500; top: 200; width: 23000; height: 800 'filled = 'false' stroked = 'F'>"
Response. Write "<v: TextBox inset = '0pt, 0pt, 0pt, 0pt '>"
Response. Write "<table width = '000000' border = '0' align = 'center' cellspacing = '0'>"
Response. Write "<tr>"
Response. write "<td align = 'center' valign = 'middle'> <div style = 'font-size: 15pt; font-family:; '> <B> "& table_title &" </B> </div> </td>"
Response. Write "</tr>"
Response. Write "</table>"
Response. Write "</v: TextBox>"
Response. Write "</v: Rect>"

Response. write "<v: rect id = 'back' style = 'position: relative; left: 1700; top: 1200; width: 20500; height: 10500; 'fillcolor = '# 9cf' strokecolor = '# DFDFDF'>"
Response. Write "<v: fill rotate = 't'angle = '-45' focus = '000000' type = 'gradient'/>"
Response. Write "</v: rect>"

Response. write "<v: rect id = 'back2' style = 'position: relative; left: 23000; top: 1200; width: 4000; height:" & (10500 )&"; 'fillcolor = '# 9cf' stroked = 't'strokecolor = '# 0099ff'>"
Response. Write "<v: fill rotate = 't'angle = '-000000' focus = '000000' type = 'gradient'/>"
Response. Write "<v: shadow on = 't'type = 'single 'color = 'silver 'offset = '3pt, 3pt '/>"
Response. Write "</v: rect>"

For I = 1 to num1
If I = 1 then
Displaystr = ""
Else
Displaystr = "none"
End if
Response. write "<div style = 'cursor: hand; 'onmouseover = 'moveon (rec" & I & ", line _" & I &") 'onmouseout = 'moveout (rec "& I &", line _ "& I &", "& I &") 'onclick = 'clickit ("& I &") '>"
Response. write "<v: Rect id = 'rec" & I & "'style = 'position: relative; left: 23100; top:" & (I-1) * 10200/10 + 1450 & "; width: 3800; height: 800; display:" & displaystr & "; 'fillcolor = '# efefef' strokecolor ='" & bg_color (I) & "'>"
Response. write "<v: fill opacity = '. 6 'color2 = 'fill darken (118) 'o: opacity2 = '. 6 'rotate = 'T' method = 'linear sigma 'focus = '000000' type = 'gradient '/>"
Response. Write "</v: Rect>"
Response. write "<v: Rect style = 'position: relative; left: 23200; top:" & (I-1) * 10200/10 + 1500 & "; width: 600; height: 700 'fillcolor = '"& bg_color (I) &" 'stroked = 'F'/>"
Response. write "<v: Rect style = 'position: relative; left: 24000; top:" & (I-1) * 10200/10 + 1500 & "; width: 3400; height: 700 'filled = 'F' stroked = 'F'>"
Response. write "<v: TextBox inset = '0pt, 4pt, 0pt, 0pt 'style = 'font-size: 9pt; '> <div align = 'left'> "& stat_array (I, 2) &" </div> </v: TextBox>"
Response. Write "</v: Rect>"
Response. Write "</div>"
Next

Response. write "<v: line ID = 'X' from = '000000' to = '000000' style = 'z-index: 1 'strokecolor = '#000000 'strokeweight = 1pt> <v: stroke EndArrow = 'classic'/> </v: line>"
Response. write "<v: line ID = 'y' from = '000000' to = '000000' style = 'z-index: 1 'strokecolor = '#000000 'strokeweight = 1pt> <v: stroke StartArrow = 'classic'/> </v: line>"

Response. write "<v: Rect style = 'position: relative; left: 100; top: 700; width: 1500; height: 500 'filled = 'false' stroked = 'false'>"
Response. write "<v: TextBox inset = '0pt, 0pt, 0pt, 0pt 'style = 'font-size: 9pt; '> <div align = 'right'> "& Y_unit &" </div> </v: TextBox>"
Response. Write "</v: Rect>"
Response. write "<v: Rect style = 'position: relative; left: 22200; top: 11900; width: 2000; height: 500 'filled = 'false' stroked = 'false'>"
Response. write "<v: TextBox inset = '0pt, 0pt, 0pt, 0pt 'style = 'font-size: 9pt; '> <div align = 'left'> "& X_unit &" </div> </v: TextBox>"
Response. Write "</v: Rect>"

For I = 0 to 4
Response. write "<v: line from = '2017," & I * 1300 + 2000 & "'to = '2017, "& I * 2000 + 1700 &" 'style = 'z-index: 1 'strokecolor = '# 000000'> </v: line>"
Response. write "<v: line from = '2017," & I * 1700 + 2000 & "'to = '2017, "& I * 2000 + 1200 &" 'style = 'z-index: 1 'strokecolor =' # 0099FF '> </v: line>"
Response. write "<v: line from = '2017," & I * 2200 + 2000 & "'to = '2017, "& I * 2000 + 1200 &" 'style = 'z-index: 1 'strokecolor =' # 0099FF '> </v: line>"
Response. write "<v: line from = '2017," & I * 2200 + 2000 & "'to = '2017, "& I * 2000 + 2200 &" 'style = 'z-index: 1 'strokecolor =' # 0099FF '>"
Response. Write "<v: stroke dashstyle = 'dot '/>"
Response. Write "</v: line>"

Response. write "<v: Rect style = 'position: relative; left: 100; top:" & I * 2000 + 1250 & "; width: 1500; height: 500 'filled = 'false' stroked = 'false'>"
Response. write "<v: TextBox inset = '0pt, 0pt, 0pt, 0pt 'style = 'font-size: 9pt; '> <div align = 'right'> "& item_hight * (5-i) &" </div> </v: TextBox>"
Response. Write "</v: Rect>"
Next

Response. write "<v: line from = '000000' to = '000000' style = 'z-index: 1 'strokecolor =' # 0099FF '> </v: line>"
Response. write "<v: line from = '000000' to = '000000' style = 'z-index: 1 'strokecolor =' # 0099FF '> </v: line>"
Response. write "<v: line from = '000000' to = '000000' style = 'z-index: 1 'strokecolor =' # 0099FF '> </v: line>"

For j = 0 to num2-1
Response. write "<v: line from = '" & j * item_width + 1700 & ", 11700 'to ='" & j * item_width + 1700 &", 12000 'style = 'z-index: 1 'strokecolor = '# 000000'> </v: line>"
Response. write "<v: line from = '" & j * item_width + 1700 & ", 11700 'to ='" & j * item_width + 2200 &", 11200 'style = 'z-index: 1 'strokecolor =' # 0099FF '> <v: stroke dashstyle = '{dot'/> </v: line>"
Response. write "<v: line from = '" & j * item_width + 2200 & ", 1200 'to ='" & j * item_width + 2200 &", 11200 'style = 'z-index: 1 'strokecolor =' # 0099FF '> <v: stroke dashstyle = '{dot'/> </v: line>"
Response. write "<v: Rect style = 'position: relative; left:" & j * item_width + 1700-item_width/2 & "; top: 12100; width:" & item_width &"; height: 500 'filled = 'false' stroked = 'false'>"
Response. write "<v: TextBox inset = '0pt, 0pt, 0pt, 0pt 'style = 'font-size: 9pt; '> <div align = 'center'> "& line_code (0, j + 1) &" </div> </v: TextBox>"
Response. Write "</v: Rect>"
Next
For I = 1 to num1
If I = 1 then
Displaystr = ""
Else
Displaystr = "none"
End if
Response. Write "<div id = 'line _" & I & "'style = 'display:" & displaystr & "; '>"
For j = 0 to num2-2
This_hight1 = cint (line_code (I, j + 1)/(5 * item_hight) * 10000)
This_hight2 = cint (line_code (I, j + 2)/(5 * item_hight) * 10000)
Response. write "<v: line from = '" & j * item_width + 1850 & "," & (pai-this_hight1 + 1550) & "' to = '" & (j + 1) * item_width + 1850 & "," & (pai-this_hight2 + 1550) & "'style = 'z-index:" & I * 10 & "; 'strokeweight = '0. 1pt 'strokecolor = '"& bg_color (I) &"'>"
Response. write "<o: extrusion v: ext = 'view' backdepth = '12pt' on = 't'lightposition = '-50000,-50000 'lightposition2 = '2016'/>"
Response. Write "</v: line>"
Next
Response. Write "</div>"
Next

Response. Write "</v: group>"
End function
%>
<Html xmlns: v = "urn: schemas-microsoft-com: vml" xmlns: o = "urn: schemas-microsoft-com: office">
<Head>
<Title> </title>
<STYLE>
V \: * {Behavior: url (# default # VML )}
O \: * {behavior: url (# default # VML )}
</STYLE>
<Script language = "JavaScript">
<! --
Var showit = new Array (10 );

Function moveon (iteam, lineit ){
Temp = eval (iteam)
Templine = eval (lineit)
If (showit [1]) {
Rec1.style. display = "";
Line_1.style.display = "";
} Else {
Rec1.style. display = "none ";
Line_1.style.display = "none ";
}
Temp. style. display = "";
Templine. style. display = "";
}
Function moveout (iteam, lineit, I ){
Temp = eval (iteam)
Templine = eval (lineit)
If (showit [I]) {
Temp. style. display = "";
Templine. style. display = "";
} Else {
Temp. style. display = "none ";
Templine. style. display = "none ";
}
}
Function clickit (I ){
If (showit [I]) {
Showit [I] = false
} Else {
Showit [I] = true
}
}
-->
</Script>
</Head>
<Body>
<A href = "a. asp"> histogram </a>
<A href = "B. asp"> curve gauge </a>
<A href = "c. asp"> three-dimensional pie chart </a>

<%
Dim total (8, 2)

Total () = "January, February, March, April, May, June, July, August, September, October"
Total (200,158,982) = "0,369,100,595,895,652, 25,245,951"
Total (158,486,952,258,653,415,485) = "984,58, 495,36, 14"
Total (3, 1) = "850,988,958,145,369,745,265,158,856,145,425,352"
Total (600,525,235,485,258,265,158,365) = "35,148,658,475"
Total (62,525,635,215) = "0,465,258,305, 66,547, 54,148"
Total (6, 1) = "560,625,645,329,158,665,358, 95,120,358, 42,253"
Total (7,1) = "950,725,635,435,258,865,458,955,152,845,425,421"
Total (8,1) = "600,825,155,455,458,265,558,365,352,245,853,122"

Total (1, 2) = "KFC"
Total (2, 2) = "Project 2"
Total (3, 2) = "Project 3"
Total (4, 2) = "Project 4"
Total (5, 2) = "Project 5"
Total (6, 2) = "Project 6"
Total (7,2) = "Project 7"
Total (8, 2) = "Project 8"

'Parameter meaning (array, abscissa, ordinate, chart width, chart height, chart title, X axis unit, Y axis Unit)
Call table1 (total, 240,200,700,350, "curve plot", "time", "RMB ")
%>

</Body>
</Html>