📄 result.aspx
字号:
<!-- #include File="OleDbFunction.inc" -->
<Script Language="VB" Runat="Server">
Sub Page_Load(sender As Object, e As Eventargs)
'添加第 1 行，并设置行属性
Dim myTableRow As New TableRow()
myTableRow.HorizontalAlign= HorizontalAlign.Center
myTableRow.BackColor = System.Drawing.Color.Honeydew
myTableRow.ForeColor = System.Drawing.Color.RoyalBlue
'添加第 1 行第 1 个字段
Dim myTableCell As New TableCell()
myTableCell.Text = "候选人"
myTableRow.Cells.Add(myTableCell)
'添加第 1 行第 2 个字段
myTableCell = New TableCell()
myTableCell.Text = "得票数"
myTableRow.Cells.Add(myTableCell)
'添加第 1 行第 3 个字段
myTableCell = New TableCell()
myTableCell.Text = "得票百分比"
myTableRow.Cells.Add(myTableCell)
'添加第 1 行第 4 个字段
myTableCell = New TableCell()
myTableCell.Text = "直方图"
myTableRow.Cells.Add(myTableCell)
'将添加的行加入表格中
myTable.Rows.Add(myTableRow)
Dim DS As DataSet = CreateDataSet("Select 候选人, 得票数 From 候选人名单 Order By 得票数 DESC", "data.mdb", "候选人名单")
Dim I, TotalVote As Integer
'计算总票数
For I = 0 To DS.Tables("候选人名单").Rows.Count - 1
TotalVote += DS.Tables("候选人名单").Rows(I)("得票数")
Next
'行出候选人得票资料
For I = 0 to DS.Tables("候选人名单").Rows.Count - 1
'添加第 x 行，并设置行属性
myTableRow = New TableRow()
myTableRow.BackColor = System.Drawing.Color.BlanchedAlmond
'添加第 I + 2 行第 1 个字段
myTableCell = New TableCell()
myTableCell.Text = DS.Tables("候选人名单").Rows(I)("候选人")
myTableRow.Cells.Add(myTableCell)
'添加第 I + 2 行第 2 个字段
myTableCell = New TableCell()
myTableCell.Text = DS.Tables("候选人名单").Rows(I)("得票数")
myTableRow.Cells.Add(myTableCell)
'添加第 I + 2 行第 3 个字段
myTableCell = New TableCell()
myTableCell.Text = Math.Round(DS.Tables("候选人名单").Rows(I)("得票数") / TotalVote * 100, 2) & " %"
myTableRow.Cells.Add(myTableCell)
'添加第 I + 2 行第 4 个字段
myTableCell = New TableCell()
Dim myImage As New HtmlImage()
myImage.Src = "bar.jpg"
myImage.Height = "20"
myImage.Width = DS.Tables("候选人名单").Rows(I)("得票数") / TotalVote * 300
myTableCell.Controls.Add(myImage)
myTableRow.Cells.Add(myTableCell)
'将添加的行加入表格中
myTable.Rows.Add(myTableRow)
Next
'添加最后一行，并设置行属性
myTableRow = New TableRow()
myTableRow.BackColor = System.Drawing.Color.BlanchedAlmond
'添加最后一行第 1 个字段
myTableCell = New TableCell()
myTableCell.Text = "总计"
myTableRow.Cells.Add(myTableCell)
'添加最后一行第 2 个字段
myTableCell = New TableCell()
myTableCell.Text = TotalVote
myTableRow.Cells.Add(myTableCell)
'添加最后一行第 3 个字段
myTableCell = New TableCell()
myTableCell.Text = "100 %"
myTableRow.Cells.Add(myTableCell)
'添加最后一行第 4 个字段
myTableCell = New TableCell()
Dim fullImage As New HtmlImage()
fullImage.Src = "bar.jpg"
fullImage.Height = "20"
fullImage.Width = "300"
myTableCell.Controls.Add(fullImage)
myTableRow.Cells.Add(myTableCell)
'将添加的行加入表格中
myTable.Rows.Add(myTableRow)
End Sub
</Script>
<Html>
<Head>
<Title>在线投票</Title>
</Head>
<Body Bgcolor="#FFFAF0">
<P Align="Center"><Img Src="Title2.jpg"></P>
<Form Runat="Server" >
<Asp:Table Runat="Server" Id="myTable" Width="80%" HorizontalAlign="Center"
BorderWidth="2" BorderColor="#999999" GridLines="Both" />
<P Align="Center"><A Href="Default.aspx">进入投票页</A></P>
</Form>
</Body>
</Html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -