用ASP制作张扬个性的调查系统(4)

原作者:admin 添加时间:2007-05-18 原文发表:2007-05-18 人气:37 来源：转载

本文章共5449字，分5页，当前第4页，快速翻页：

　　三、浏览调查结果(viewresult.asp)

　　本例中使用条形图来直观显示调查结果，方法是用选项的投票数占总投票数的百分比值乘上5，得出的值作为条形图bar.gif显示的宽（可用常见的图象工具制作一个渐变色的小条形图，或是到网上down一个)。为了给出带两为小数的得票的百分比，程序中使用了VBScript中的四舍五入函数Round。为了美观，把调查结果放到表格中显示，如图所示。下面给出的代码中略去了表格的设计。学习中国

viewresult.asp
＜ %
set conn=server.createobject("ADODB.CONNECTION")
conn.open "researchdb"
% ＞
＜ %
dim rs
dim sql
dim select1
dim select2
dim select3
dim select4
dim select5
dim select6
dim select7
dim total
set rs=server.createobject("adodb.recordset")
sql="select * from research where id=1"
rs.open sql,conn,1,1
total=rs("select1")+rs("select2")+rs("select3")+
_ rs("select4")+rs("select5")+rs("select6")+rs("select7")
判断总票数是否为0，确保下面的除法有效
if total ＞ 0 then
select1=(rs("select1")/total)*100
select2=(rs("select2")/total)*100
select3=(rs("select3")/total)*100
select4=(rs("select4")/total)*100
select5=(rs("select5")/total)*100
select6=(rs("select6")/total)*100
select7=(rs("select7")/total)*100
% ＞
＜ p ＞谢谢您的参与，下面是当前的调查结果
＜ p ＞
◇知识:
＜ img src=bar.gif width=＜ %=int(select1*5)% ＞ height=4 ＞
＜ %=rs("select1")% ＞人占：＜ %=round(select1,2)% ＞%＜ br ＞
◇学历:
＜ img src=bar.gif width=＜ %=int(select2*5)% ＞ height=4 ＞
＜ %=rs("select2")% ＞人占：＜ %=round(select2,2)% ＞%＜ br ＞
◇金钱:
＜ img src=bar.gif width=＜ %=int(select3)*5% ＞ height=4 ＞
＜ %=rs("select3")% ＞人占：＜ %=round(select3,2)% ＞%＜ br ＞
◇爱情:
＜ img src=bar.gif width=＜ %=int(select4)*5% ＞ height=4 ＞
＜ %=rs("select4")% ＞人占：＜ %=round(select4,2)% ＞%＜ br ＞
◇理想:
＜ img src=bar.gif width=＜ %=int(select5)*5% ＞ height=4 ＞
＜ %=rs("select5")% ＞人占：＜ %=round(select5,2)% ＞%＜ br ＞
◇民主意识:
＜ img src=bar.gif width=＜ %=int(select6)%*5 ＞ height=4 ＞
＜ %=rs("select6")% ＞人占：＜ %=round(select6,2)% ＞%＜ br ＞
◇科学思想:
＜ img src=bar.gif width=＜ %=int(select7)%*5 ＞ height=4 ＞
＜ %=rs("select7")% ＞人占：＜ %=round(select7,2)% ＞%＜ /p ＞

＜ p align="center" ＞已经有：＜ %=total% ＞人参加调查＜ br ＞＜ br ＞
【＜ a href="javascript:window.close()" ＞关闭窗口＜ /a ＞】＜ /p ＞
＜ p ＞
＜ %
else
response.write "还没有人参与调查"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
% ＞

本文章更多内容：<<上一页 - 1 - 2 - 3 - 4 - 5 - 下一页>>

本页地址

• ASP在InterDev中实现网上购物推车

• ASP技巧：FSO中的SubFolders 属性

• ASP中有关字符编码转换的几个有用函数

• ASP程序实现图片自动缩放以适合界面大小