网站中常有一个栏目提供关于网站中某个项目的调查，并显示统计资料。本实例将介绍公司网站如何实现在线产品意见调查，并显示统计资料及统计柱形图。

　　效果说明　用户通过投票评价公司产品，有“很好”、“好”、“一般”、“差” 4 种意见，投票提交后，只能在下次访问时才能显示自身的投票结果。统计图表及统计结果是目前的投票结果分析，如图 90-1 所示。

　　创作构思　通过单选按钮及按钮事件实现在线调查，通过 VML 实现统计图表的输出。

　　操作步骤

　　步骤一　基本页面设计

　　（ 1 ）添加在线调查内容。打开“ index.aspx ”，在“ LeftTb ”表格中添加 8 行，在新添加的第 3 行中添加“ asp ：按钮”，设置文本为“投票”， ID 为“ PollButton ”，其他参数设置如图 90-2 中圆角方框所示。

　　

　　（ 2 ）添加“ asp ：单选按钮列表”。在新添加的第 2 行中添加“ asp ：单选按钮列表”，并设置有关列表项，如图 90-3 所示。

　　

　　提示： 在“ asp ：单选按钮列表”中添加的 4 个列表项分别为① “很好”标签，值为“ VeryGood ”；② “好”标签，值为“ Good ”；③ “一般”标签，值为“ Commandly ”；④“差”标签，值为“ Mistake ”。这样设置是为了与“ POLL ”表中的 4 个字段名设置相同。

　　（ 3 ）添加数据集“ PollData ”。添加数据集“ PollData ”，用于获取“ VeryGood ”（很好）、“ Good ”（好）、“ Commandly ”（一般）、“ Mistake ”（差）这 4 种投票结果，其参数设置如图 90-4 所示。

　　（ 4 ）绑定动态文本到行中。将数据集“ PollData ”中的动态文本绑定到新添加的行中，结果如图 90-5 所示。

　　

　　步骤二　实现投票及统计图表

　　（ 1 ）在“ ＜script runat="server"＞ ”中添加“ PollButton_Click ”过程，用于在单击完“投票”按钮后，将投票结果提交到“ POLL ”表中，给与投票意见相关的字段值加上“ 1 ”，其代码如下所述。

　　Sub PollButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)

　　Dim Cpadapter AS new OleDbDataAdapter

　　Dim CpCommand AS new OleDbCommand

　　Dim dt AS System.Data.DataSet

　　Dim Tystring as string

　　Conn.open()

　　Cpstring2="Update POLL SET "+Pollradio.SelectedItem.Value+"="+cstr (PollData. FieldValue(Pollradio.SelectedItem.Value, nothing)+1)

　　CpCommand=new OleDbCommand(Cpstring2,conn)

　　CpCommand.ExecuteNonQuery()

　　End Sub

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

　　提示：由于 Dreamweaver 中“更新记录”服务器行为不支持事件处理，所以只能借助“ DataAdapter ”对象更新“ POLL ”表的记录。由于在前面的操作中已经设置单选按钮列表中的选项值与“ POLL ”的字段名相同，那么单击单选按钮列表中的选项，即可从“ Pollradio.SelectedItem.Value ”中获取投票的字段名。

　　（ 2 ）绑定“ PollButton_Click ”过程到“投票”按钮的“ OnClick ”事件响应过程中。

　　（ 3 ）在代码视图中找到“ ”标签，并将其改为“ ”，将 XML 命名空间定义为“ v ”。然后在“ ”标签中添加如下所述的代码。

　　＜style＞

　　v\:*{behavior:url(#default#VML);}

　　＜/style＞

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

　　

　　这样做是为了将命名空间“ v ”与系统预定义的行为 VML 连接。这样定义以后，就可以通过“ ”在网页中进行各种图像的绘制，结果如图 90-6 中圆角方框所示。

　（ 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 TotalPo

DW MX实例：实现产品搜索 DW MX实例：BLOG 日历事件

评论 (0) All

登陆 还没注册？