editmsg.aspx.vb

这是一个基于web 的

Public Class EditMsg
    Inherits System.Web.UI.Page
    Protected WithEvents LinkButton2 As System.Web.UI.WebControls.LinkButton
    Protected WithEvents txtMsgInfo As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtReceiver As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtSender As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtTitle As System.Web.UI.WebControls.TextBox
    Protected WithEvents SendBtn As System.Web.UI.WebControls.LinkButton

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <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: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then
            If Not Request.QueryString("NiceName") Is Nothing Then
                txtReceiver.Text = CType(Request.QueryString("NiceName"), String)
                Dim user As UserInfo = CType(Session("UserInfo"), UserInfo)
                txtSender.Text = user.NiceName
            End If
        End If
    End Sub

    Private Sub SendBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendBtn.Click
        Dim user As UserInfo = CType(Session("UserInfo"), UserInfo)
        Dim objMsg As Message = New Message()
        objMsg.Sender = user.NiceName
        objMsg.SenderMail = user.EMail
        objMsg.Receiver = txtReceiver.Text.ToString.Trim
        objMsg.MsgDate = Now.ToShortDateString
        objMsg.MsgInfo = txtMsgInfo.Text.ToString.Trim
        objMsg.Title = txtTitle.Text.ToString.Trim
        Dim obj As MsgControl = New MsgControl()
        obj.WriteMsg(objMsg)
        Response.Write("<script language=javascript>")
        Response.Write("window.alert('信息发送成功！');")
        Response.Write("window.location='ViewMsg.aspx';")
        Response.Write("</script>")

    End Sub

    Private Sub LinkButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
        Response.Redirect("EditMsg.aspx")
    End Sub
End Class