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

效果说明用户通过投票评价公司产品，有“很好”、“好”、“一般”、“差” 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

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

[1] [2] 下一页