28,391
社区成员
发帖
与我相关
我的任务
分享一个关于画图的问题.
我想做一个调查, 如:
1:年龄 A:10-20, B:20-40 ,C:40-60
2:性别 A:男 B:女
然后将调查结果以图形的形式表现出来, (饼图或方直图),大家有没有
什么好方法.
分不够再加...
1:年龄 A:10-20, B:20-40 ,C:40-60
2:性别 A:男 B:女
然后将调查结果以图形的形式表现出来, (饼图或方直图),大家有没有
什么好方法.
分不够再加...
...全文
请发表友善的回复…
发表回复
makay 2003-09-21
- 打赏
- 举报
gz
超级大笨狼 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>
<!--
window.setTimeout "aaa","1000"
window.setTimeout "window.location.reload","1000"
//-->
</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>
文件一：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>
<!--
window.setTimeout "aaa","1000"
window.setTimeout "window.location.reload","1000"
//-->
</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>
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
- 打赏
- 举报
是啊，用那儿的就行了
lions911 2003-08-22
- 打赏
- 举报
给你个思路
<tr><td width=<%=xxx%>></td></tr>
通过控制TD的长度来显示比例。
<tr><td width=<%=xxx%>></td></tr>
通过控制TD的长度来显示比例。
jiejifeng 2003-08-22
- 打赏
- 举报
是啊，用那儿的就行了
brothder 2003-08-22
- 打赏
- 举报
答案在这里，非常全面，可以借鉴。
http://expert.csdn.net/Expert/TopicView1.asp?id=2143612
http://expert.csdn.net/Expert/TopicView1.asp?id=2143612
