www.diandiba.com记录点点滴滴，尽在点滴吧
- 文章
- 文章
- 特效
- 素材
- 景点
www.diandiba.com<%
'不要修改以下数据，除非你知道你在做什么
'#####################################
Height=200 '//图表高度
Width=600 '//图表宽度
posX=390-Width/2 '//相对浏览器的X位置
posY=70 '//相对浏览器的Y位置
scaleX=50 '//最好为Width值的倍数
scaleY=50 '//最好为Height值的倍数
countX=Cint(Width/scaleX)
countY=Cint(Height/scaleY)
data="50,50|100,120|200,150|300,50|450,100" '//要输入折线的点阵（竖线分隔每个组，逗号分隔每个组中的X和Y值）
TempData=Split(data,"|")
TempDataCount=UBound(TempData)+1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--Coding By PYPStudio-->
<title>折线图生成</title>
<style type="text/css">
<!--
.upperLine {
border-bottom-width: 1px;
border-top-style: none;
border-right-style: none;
border-bottom-style: solid;
border-left-style: none;
border-bottom-color: #FF0000;
}
-->
</style>
</head>
<body>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="1" class="upperLine">
<tr>
<td height="30" align="center"><h2><strong>折线图标题</strong></h2></td>
</tr>
</table>
<!--生成折线图开始-->
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<!--[if !mso]>
<style>
v\:* { behavior: url(#default#VML) }
o\:* { behavior: url(#default#VML) }
.shape { behavior: url(#default#VML) }
</style>
<![endif]-->
<style>
TD { FONT-SIZE: 9pt}
</style>
<!--总体框架-->
<v:rect style='position:absolute;left:<%=posX%>px;top:<%=posY%>px;width:<%=Width%>px;height:<%=Height%>px;z-index:-1' fillcolor='#9cf' stroked='f'>
<v:fill rotate='t' angle='-45' focus='100%' />
</v:rect>
<!--X轴-->
<v:line style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='<%=posX%>px,<%=posY+Height%>px' to='<%=posX+Width%>px,<%=posY+Height%>px'/>
<!--Y轴-->
<v:line style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='<%=posX%>px,<%=posY%>px' to='<%=posX%>px,<%=posY+Height%>px'/>
<!--X轴刻度-->
<% For i=1 to countX+1 %>
<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='<%=posX+(i-1)*scaleX%>px,<%=posY+Height%>px' to='<%=posX+(i-1)*scaleX%>px,<%=posY+Height+5%>px' strokecolor='#000000'/>
<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:<%=posX+(i-1)*scaleX-10%>px;top:<%=posY+Height+5%>px;width:70px;height:18px;z-index:1'>
<v:textbox inset='0px,0px,0px,0px'>
<table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='left'><%=(i-1)*scaleX%></td></tr></table>
</v:textbox>
</v:shape>
<% Next %>
<!--Y轴刻度-->
<% For i=1 to countY+1 %>
<v:line id='_x0000_s1027' alt='' style='position:absolute;left:0;text-align:left;top:0;flip:y;z-index:-1' from='<%=posX-5%>px,<%=posY+Height-(i-1)*scaleY%>px' to='<%=posX+Width%>px,<%=posY+Height-(i-1)*scaleY%>px' strokecolor='#000000'/>
<% if i<>1 then %>
<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:<%=posX-30%>px;top:<%=posY+Height-(i-1)*scaleY-10%>px;width:70px;height:18px;z-index:1'>
<v:textbox inset='0px,0px,0px,0px'>
<table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='left'><%=(i-1)*scaleY%></td></tr></table>
</v:textbox>
</v:shape>
<% End if %>
<% Next %>
<!--画点连线-->
<% For i=0 to TempDataCount %>
<% if i=0 then %>
<% showDataI=split(TempData(i),",") %>
<v:line style='position:absolute;left:0;text-align:left;top:0;z-index:1' from="<%=posX%>px,<%=posY+Height%>px" to="<%=posX+showDataI(0)%>px,<%=posY+Height-showDataI(1)%>px" coordsize="21600,21600" strokecolor="#FF0000" strokeweight="1.5"></v:line>
<% Else %>
<% showDataI=split(TempData(i-1),",") %>
<% If i<>TempDataCount then %>
<% showDataII=split(TempData(i),",") %>
<% Else %>
<% showDataII=split(TempData(i-1),",") %>
<% End if %>
<!--第【<%=i%>】条线-->
<v:oval style='position:absolute;left:<%=posX+showDataI(0)%>px;top:<%=posY+Height-showDataI(1)%>px;width:4px;height:4px;z-index:1' fillcolor="#FF0000" strokecolor="#FF0000"/>
<v:line style='position:absolute;left:0;text-align:left;top:0;z-index:1' from="<%=posX+showDataI(0)%>px,<%=posY+Height-showDataI(1)%>px" to="<%=posX+showDataII(0)%>px,<%=posY+Height-showDataII(1)%>px" coordsize="21600,21600" strokecolor="#FF0000" strokeweight="1.5"></v:line>
<v:shape id='_x0000_s1025' type='#_x0000_t202' alt='' style='position:absolute;left:<%=posX+showDataI(0)%>px;top:<%=posY+Height-showDataI(1)%>px;width:100px;height:18px;z-index:5'>
<v:textbox inset='0px,0px,0px,0px'><table cellspacing='3' cellpadding='0' width='100%' height='100%'><tr><td align='left'>(<%=showDataI(0)%>,<%=showDataI(1)%>)</td></tr></table>
</v:textbox>
</v:shape>
<% End if %>
<% Next %>
</body>
</html>