Private Sub ibnSend_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ibnSend.Click
        Dim conn As SqlConnection = New SqlConnection(cnstring)
        conn.Open()        Dim mycommand As SqlDataAdapter = New SqlDataAdapter("select * from 公告板", conn)
        Dim mycb As SqlCommandBuilder = New SqlCommandBuilder(mycommand)
        Dim mydataset As DataSet
        mydataset = New DataSet()
        mycommand.Fill(mydataset, "公告板")
        Dim mytable As DataTable = mydataset.Tables("公告板")
        Dim mydatarow As DataRow
        mydatarow = mytable.NewRow        mydatarow(0) = Trim(tbxTitle.Text)
        mydatarow(1) = RTrim(tbxContent.Text)
        mydatarow(2) = Trim(tbxTime.Text)
        mydatarow(3) = Trim(tbxUnit.Text)
        mydatarow(4) = Trim(tbxSender.Text)
        mydatarow(5) = Trim(tbxPhone.Text)
        mydatarow(6) = Trim(ddltype.SelectedItem.Value)
        'mydatarow(7) = Trim(lblEmail.Text)
        mytable.Rows.Add(mydatarow)
        mycommand.Update(mydataset, "公告板")        Response.Write("<script language=javascript>alert(" + Chr(34) + "公告发布成功!" + Chr(34) + ")</script>")    End Sub