result.aspx

来自「在线投票系统,上海水产大学信息学院我最喜爱老师评选活动」· ASPX 代码 · 共 120 行

ASPX
120 行
字号 
<!-- #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>

result.aspx - 源码说明

本页面展示了「在线投票系统,上海水产大学信息学院我最喜爱老师评选活动」中的 result.aspx 源码文件，采用 ASPX 编程语言编写，共 120 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与海相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?