您当前的位置：飞翔学院-IT中国 → 编程开发 → 网页制作 → Dreamweaver → 文章内容

DW MX实例：网站在线调查统计

作者:佚名来源:不详发布时间:2007-11-3 0:50:21

　（ 4 ）找到如下所述的代码，并将其删除。

　　＜!DOCTYPE HTML PUBLIC "-//W 3C //DTD HTML4.01Transitional//EN" "http://www.w3.org/TR/html4/

　　loose.dtd"＞

　　（ 5 ）在“ ＜script runat="server"＞ ”中添加“ DrawPoll ”过程，以输出统计图表，其代码如下所述。

　　Sub DrawPoll()

　　Dim Pollar(3) As Integer

　　Dim TotalPoll As Integer

　　Dim I As Integer

　　Dim MathPoll As Single

　　Pollar(0)=PollData.FieldValue("VerGood", nothing)

　　Pollar(1)=PollData.FieldValue("Good", nothing)

　　Pollar(2)=PollData.FieldValue("Commandly",nothing)

　　Pollar(3)=PollData.FieldValue("Mistake", nothing)

　　TotalPoll=Pollar(0)+Pollar(1)+Pollar(2)+Pollar(3)

　　Response.Write("＜Table Width='80%' bgcolor='#FFFFFF'＞＜tr alige='center' style= 'font-size: 9pt ' valign='bottom'＞")

　　For I=0 to 3

　　MathPoll=Math.Round(Pollar(I)/TotalPoll,2)*100

　　Response.write ("＜td Width='25%'＞＜v:rect fillcolor='#FAB092' style= 'width:20;color:navy;height:"+Cstr( MathPoll*2)+"'＞＜br＞ "+Cstr(MathPoll)+"%＜v:Extrusion backdepth=' 5pt ' on='true'/＞＜/v:rect＞＜/td＞")

　　Next

　　response.Write("＜/tr＞＜tr style='font-size: 9pt '＞＜td ＞很好＜/td＞＜td alige='center'＞好＜/td＞＜td＞一般＜/td＞＜td＞差＜/td＞＜/Table＞")

　　End Sub

　　（读者可打开【光盘】｜【源文件】｜【实例 90 】｜【 90.3.txt 】文件，直接复制）

　　程序说明：

　　代码中数据集“ PollData ”的字段值分别存储在“ Pollar ”的 4 个数据组中，通过“ TotalPoll ”变量统计投票总数。首先通过“ Response.Write ”在页面中输出表格及第一行。通过循环为第一行定义 4 列，在第一列中绘制 VML 柱形图。 VML 柱形图的 fillcolor （填充颜色）为“ #FAB092 ”，宽度为“ 20 ”，高度为每项投票意见占投票总数的百分比“ Math.Round(Pollar(I)/TotalPoll,2)* 100 ” 乘以“ 2 ”，这样做是为了将投票意见占投票总数百分比的高度增加一倍，最后通过“ Response.Write ”在页面中为表格添加 1 行 4 列，并为每一行定义文字。

　　（ 6 ）在要显示统计图表的行中添加代码 <% DrawPoll() %>，如图 90-7 中圆角方框所示。

　　 Dreamweaver

　　（ 7 ）保存文件后在 IE 中浏览效果。

　　本实例介绍通过 VML 实现统计分析图，这是目前渐渐流行的方法之一。在实际应用中，常常通过统计有关投票比例，并以此动态显示统计图的宽度或高度，从而实现统计分析图的。至此本实例操作完毕。

上一页 [1] [2] [3]

打印文档
推荐好友
返回顶部
增大字体
减少字体

上一篇文章：DW MX实例：BLOG 日历事件
下一篇文章：DW MX实例：实现产品搜索

DW MX实例：网站在线调查统计

分类推荐

热点文章

精采文章

精采文章