Dreamweaver制作在线调查统计程序-太平洋电脑网Pconline-[Dreamweaver]

您现在的位置: 软件资讯 > 创意设计 > 网站设计 > Dreamweaver

Dreamweaver制作在线调查统计程序

作者：4u2v工作室

责任编辑：xietaoming

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

　　（ 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 ）在代码视图中找到“ <HTML > ”标签，并将其改为“ <HTML xmlns:v> ”，将 XML 命名空间定义为“ v ”。然后在“ <head> ”标签中添加如下所述的代码。

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

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