writetoam.aspx.vb

来自「java voice chat based on java core ,, u 」· VB 代码 · 共 56 行

Imports System.Data.SqlClient
Public Class writetoam
    Inherits System.Web.UI.Page
    Protected WithEvents txtSubject As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtText As System.Web.UI.WebControls.TextBox
    Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
    Protected WithEvents lblmsg As System.Web.UI.WebControls.Label
    Protected WithEvents btnSend As System.Web.UI.WebControls.Button

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
        Dim con As New SqlConnection(Application("cs"))
        Try
            con.Open()
            Dim cmd As New SqlCommand("select  isnull(max(mid),0)  + 1 from mails", con)
            Dim mid As Integer
            mid = cmd.ExecuteScalar()
            cmd.CommandText = "insert into mails values (@mid,@acno,'acmg',@subject,@text,getdate())"
            cmd.Parameters.Add("@mid", SqlDbType.Int).Value = mid
            cmd.Parameters.Add("@acno", SqlDbType.VarChar, 10).Value = Session("acno")
            cmd.Parameters.Add("@subject", SqlDbType.VarChar, 100).Value = txtSubject.Text
            cmd.Parameters.Add("@text", SqlDbType.VarChar, 1000).Value = txtText.Text
            cmd.ExecuteNonQuery()
            Server.Transfer("default.aspx")
        Catch ex As Exception
            lblmsg.text = "Error : " & ex.Message
        Finally
            con.Close()
        End Try






    End Sub
End Class