一个关于画图的问题.

tsinghua2000 2003-08-22 09:46:22

我想做一个调查, 如:

1:年龄 A:10-20, B:20-40 ,C:40-60

2:性别 A:男 B:女

然后将调查结果以图形的形式表现出来, (饼图或方直图),大家有没有

什么好方法.

分不够再加...

...全文

43 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

makay 2003-09-21

打赏
举报

超级大笨狼 2003-09-21

打赏
举报

我的流动看板
文件一：index.htm包含两个框架
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<frameset rows="0,*" frameborder="NO" border="0" framespacing="0">
<frame src="refresh.asp" name="refresh" scrolling="NO" noresize >
<frame src="main.asp" name="main" >
</frameset>
<noframes><body>

</body></noframes>
</html>

文件二：refresh.asp实时取得数据

<%
dim temp
dim bbb(20)

if session("ppp")="ppp" then '这个是用来调试的
session("aaa") =""
session("ppp")="aaaa"
end if

if session("aaa")="" then
for i=0 to 20
temp=temp & "0" & " "
next
session("aaa")=temp
end if
ccc=split(session("aaa"))

randomize
bbb(20)=cstr(cint(50 * rnd)+50) '这里就是流动看板的最新值
for i=20 to 1 step -1
bbb(i-1)=ccc(i)
next

temp=""
for i=0 to 20
temp=temp & bbb(i) & " "
next
session("aaa")=temp
response.Write "<SCRIPT LANGUAGE=vbscript>" & chr(13)
response.Write "sub aaa()" & chr(13)
for i=1 to 20
response.Write "window.parent.frames(" & chr(34) & "main" & chr(34) & ").document.all.item(" & chr(34) & "tb" & i & chr(34) & ").height=" & bbb(i) & chr(13)
next
response.Write "end sub " & chr(13)
response.Write "</SCRIPT>" & chr(13)
%>

<SCRIPT LANGUAGE=vbscript>

</SCRIPT>
三，文件main.asp
<html>
<head>
<META name=VI60_defaultClientScript content=VBScript>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<br>
<br>
<br>
<br>
<table width="80%" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>

<%for i=1 to 20%>
<td valign="bottom">
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#0099FF" id="tb<%=i%>">
<tr>
<td bordercolor="#0099CC"></td>
</tr>

</table>

</td>
<%next%>

</tr>
</table>

</body>
</html>

超级大笨狼 2003-09-21

打赏
举报

<OBJECT id=StructuredGraphicsControl1 style="LEFT: 0px; WIDTH: 392px; TOP: 0px; HEIGHT: 240px"
height=240 width=392 classid="clsid:369303C2-D7AC-11D0-89D5-00A0C90833E6">

</OBJECT>
<P> </P>
<SCRIPT LANGUAGE=vbscript>
'你安装intdev一切就都明白了
StructuredGraphicsControl1.DrawingSurface.ArcDegrees 0,0,0,30,50,60
StructuredGraphicsControl1.DrawingSurface.ArcRadians 30,0,0,30,50,60
StructuredGraphicsControl1.DrawingSurface.Line 10,10,100,100

</SCRIPT>

jiejifeng 2003-08-22