投票后比例图的实现？

linlin326 2004-09-13 10:28:54
根据每一项，不同的投票次数来以数条形的比例图显示出来 谢谢 线等
...全文
139 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
BlueDestiny 2004-09-13
  • 打赏
  • 举报
 回复
Example:


<HTML>
<TITLE>
柱状图
</TITLE>
<BODY>
<SCRIPT LANGUAGE="VBScript" RUNAT="SERVER">
function MakeColumn(title, numarray, labelarray, maxheight, maxwidth)

dim ColumnString
dim max
dim maxlength
dim tempnumarray
dim templabelarray
dim heightarray
Dim colorarray
Dim multiplier

if maxheight > 0 and maxwidth > 0 and ubound(labelarray) = ubound(numarray) then
colorarray = array("red","blue","yellow","navy","orange","purple","green")
templabelarray = labelarray
tempnumarray = numarray
heightarray = array()
max = 0
maxlength = 0
ColumnString = "<TABLE bgcolor='gold' border='6'><tr><td><TABLE border='0' cellspacing='1' cellpadding='0'>" & vbCrLf
for each stuff in tempnumarray
if stuff > max then max = stuff end if
next
multiplier = maxheight/max
for counter = 0 to ubound(tempnumarray)
if tempnumarray(counter) = max then
redim preserve heightarray(counter)
heightarray(counter) = maxheight
else
redim preserve heightarray(counter)
heightarray(counter) = tempnumarray(counter) * multiplier
end if
next

ColumnString = ColumnString & "<TR><TH colspan='" & ubound(tempnumarray)+1 & "'>" & _
"<FONT SIZE='1'><U>" & title & "</TH></TR>" & vbCrLf & "<TR>" & vbCrLf
for counter = 0 to ubound(tempnumarray)
ColumnString = ColumnString & vbTab & "<TD valign='bottom' align='center' >" & _
"<FONT SIZE='1'><table border='0' cellpadding='0' width='" & maxwidth & "'><tr><tr><td valign='bottom' bgcolor='"
ColumnString = ColumnString & colorarray(counter mod (ubound(colorarray)+1))
ColumnString = ColumnString & "' height='" & round(heightarray(counter),2) & "'></td></tr></table>"
ColumnString = ColumnString & "<BR>" & tempnumarray(counter)
ColumnString = ColumnString & "</TD>" & vbCrLf
next

ColumnString = ColumnString & "</TR>" & vbCrLf

for each stuff in labelarray
if len(stuff) >= maxlength then maxlength = len(stuff)
next

for each stuff in labelarray
ColumnString = ColumnString & vbTab & "<TD align='center'><FONT SIZE='1'><B> "
for count = 0 to round((maxlength - len(stuff))/2)
ColumnString = ColumnString & " "
next
if maxlength mod 2 <> 0 then ColumnString = ColumnString & " "
ColumnString = ColumnString & stuff
for count = 0 to round((maxlength - len(stuff))/2)
ColumnString = ColumnString & " "
next
ColumnString = ColumnString & " </TD>" & vbCrLf
next

ColumnString = ColumnString & "</TABLE></td></tr></table>" & vbCrLf
MakeColumn = ColumnString
else
Response.Write "柱状图函数参数有错"
end if
end function

dim stuff
dim labelstuff

stuff = Array(72,39,60,42)
labelstuff = Array("北京", "上海","广州","重庆")
Response.Write MakeColumn("演示", stuff, labelstuff, 150,30)

</SCRIPT>
</BODY>
</HTML>
colinliu 2004-09-13
  • 打赏
  • 举报
 回复
一般都是采用楼上的方法
图片一般用单色条
放在表格中控制图片的大小

<img src="xxx" width="<%=100*rs("儲存的數字大小")%>" height="xxx">
yidao2004 2004-09-13
  • 打赏
  • 举报
 回复
<img src='Images/topBar_bg.gif' width='i/total' height='15' align='absmiddle'>

i为某个项目的票数

total为总共的投票数
tpf9000 2004-09-13
  • 打赏
  • 举报
 回复
根据得到的比例来动态控制图片的高和宽
一般，竖状的动态控制高
横状的动态控制宽
cyyxy 2004-09-13
  • 打赏
  • 举报
 回复
一般都是采用楼上的方法
图片一般用单色条
放在表格中控制图片的大小
DARKNESSFALL 2004-09-13
  • 打赏
  • 举报
 回复
根据比例改变图片的长度
<img src="xxx" width="xxx" height="xxx">
动态控制width 或 height 的值
FlashK 2004-09-13
  • 打赏
  • 举报
 回复
你把各投票题目的次数统计起来，然后除总次数，乘以100等于a
<img width="a" height=15 src="line.gif">
毕业设计 微信小程序 在线投票系统
主要实现业务: 用户投票，可附加一张图片，投票详情显示投票选项的比例及投票用户，非匿名投票可查看用户投票详情，投票结束时间到了，标记为投票结束（自动）.用户可查看自己发起的投票和参与的投票，对于自己的投票可以提前结束，同时用户不可多次投票。存在1，2个管理者可删除任何投票，，投票发起人不可删除投票只能提前结束投票；管理员删除投票功能；管理员审核功能； ---------------------------------------------------------------------------------- other/文件夹中有 php7 apache服务器 版本的服务器程序和sql文件 index.php 只需修改数据库相关信息和appid, 经验不足，封装并不太大，自己寻找修改位置 ###安装提示 1.下载文件 git clone 2.如果有自己的服务器 更改app.js里面的host属性为自己的服务器地址 ps: 服务器文件夹名字 wx_graduation_voteforyou (也可自行更改程序) 3.导入sql到服务器数据库 4.修改微信公众平台合法域名
jsp+servlet实现投票的大概比例功能
NULL 博文链接：https://songjianyong.iteye.com/blog/997125
毕业设计....微信 投票小程序
毕业设计....微信 投票小程序 主要实现业务: 用户投票，可附加一张图片，投票详情显示投票选项的比例及投票用户，非匿名投票可查看用户投票详情，投票结束时间到了，标记为投票结束（自动）.用户可查看自己发起的投票和参与的投票，对于自己的投票可以提前结束，同时用户不可多次投票。存在1，2个管理者可删除任何投票，，投票发起人不可删除投票只能提前结束投票 2018-5-25 开发者工具使用正常....手机端调用接口失败.....未解决 ....服务器ssl证书配置错误,某些浏览器引擎识别不了 2018-5-26 新增管理员删除投票功能 2018-6-4 新增管理员审核功能 2018-6-17 完结
2018-毕业设计....微信 投票小程序
主要实现业务: 用户投票，可附加一张图片，投票详情显示投票选项的比例及投票用户，非匿名投票可查看用户投票详情，投票结束时间到了，标记为投票结束（自动）.用户可查看自己发起的投票和参与的投票，对于自己的投票可以提前结束，同时用户不可多次投票。存在1，2个管理者可删除任何投票，，投票发起人不可删除投票只能提前结束投票 2018-5-25 开发者工具使用正常....手机端调用接口失败.....未解决 ....服务器ssl证书配置错误,某些浏览器引擎识别不了 2018-5-26 新增管理员删除投票功能 2018-6-4 新增管理员审核功能
毕业设计: 微信 投票小程序
毕业设计....微信 投票小程序 主要实现业务: 用户投票，可附加一张图片，投票详情显示投票选项的比例及投票用户，非匿名投票可查看用户投票详情，投票结束时间到了，标记为投票结束（自动）.用户可查看自己发起的投票和参与的投票，对于自己的投票可以提前结束，同时用户不可多次投票。存在1，2个管理者可删除任何投票，，投票发起人不可删除投票只能提前结束投票 1.下载文件 git clone 2.如果有自己的服务器 更改app.js里面的host属性为自己的服务器地址 ps: 服务器文件夹名字 wx_graduation_voteforyou (也可自行更改程序) 3.导入sql到服务器数据库 4.修改微信公众平台合法域名
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章