message.vb

这是一个基于web 的

Imports System.Data.SqlClient
Public Class Message
    Private _Sender As String
    Public Property Sender() As String
        Get
            Return _Sender
        End Get
        Set(ByVal Value As String)
            _Sender = Value
        End Set
    End Property

    Private _SenderMail As String
    Public Property SenderMail() As String
        Get
            Return _SenderMail
        End Get
        Set(ByVal Value As String)
            _SenderMail = Value
        End Set
    End Property

    Private _Receiver As String
    Public Property Receiver() As String
        Get
            Return _Receiver
        End Get
        Set(ByVal Value As String)
            _Receiver = Value
        End Set
    End Property

    Private _ReceiverMail As String
    Public Property ReceiverMail() As String
        Get
            Return _ReceiverMail
        End Get
        Set(ByVal Value As String)
            _ReceiverMail = Value
        End Set
    End Property

    Private _Title As String
    Public Property Title() As String
        Get
            Return _Title
        End Get
        Set(ByVal Value As String)
            _Title = Value
        End Set
    End Property

    Private _MsgInfo As String
    Public Property MsgInfo() As String
        Get
            Return _MsgInfo
        End Get
        Set(ByVal Value As String)
            _MsgInfo = Value
        End Set
    End Property

    Private _MsgDate As String
    Public Property MsgDate() As String
        Get
            Return _MsgDate
        End Get
        Set(ByVal Value As String)
            _MsgDate = Value
        End Set
    End Property

End Class
Public Class MsgControl
    Dim connstr As String = System.Configuration.ConfigurationSettings.AppSettings("ConnectionString").ToString.Trim
    Dim myconn As SqlConnection = New SqlConnection(connstr)
    Public str As String = ""
    '=============================================================
    ' 函 数 名：WriteMsg
    ' 功能描述：写消息操作
    ' 输入参数：Msg：消息体
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：对于消息标题为空的，用“无”代替
    '==============================================================

    Public Sub WriteMsg(ByVal Msg As Message)
        If Msg.Title = "" Then
            Msg.Title = "无"
        End If
        Dim sqlstr = "insert into Message(Sender,SenderMail,Receiver,Title,MsgInfo,MsgDate) values( '" + Msg.Sender + "','" + Msg.SenderMail + "','" + Msg.Receiver + "','" + Msg.Title + "','" + Msg.MsgInfo + "','" + Msg.MsgDate + "')"

        Dim cmd As SqlCommand = New SqlCommand(sqlstr, myconn)
        Try
            myconn.Open()
            cmd.ExecuteNonQuery()
        Catch
            str = sqlstr
        Finally
            myconn.Close()
        End Try
    End Sub
    '=============================================================
    ' 函 数 名：GetMsgList
    ' 功能描述：获取所有消息
    ' 输入参数：Receiver：用户昵称（作为消息接收者）
    ' 返 回 值：DataView类型，直接作为数据源
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Public Function GetMsgList(ByVal Receiver As String) As DataView
        Dim ds As DataSet = New DataSet()
        Dim sqlstr As String = "select * from Message where Receiver ='" + Receiver + "'"
        myconn.Open()
        Dim da As SqlDataAdapter = New SqlDataAdapter(sqlstr, myconn)
        da.Fill(ds)
        myconn.Close()
        Return ds.Tables(0).DefaultView
    End Function
    '=============================================================
    ' 函 数 名：DelMsg
    ' 功能描述：删除某给定MessageID的消息
    ' 输入参数：MsgID：消息ID
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Public Sub DelMsg(ByVal MsgID As String)
        Dim sqlstr = "Delete from Message where MessageID=" + MsgID

        Dim cmd As SqlCommand = New SqlCommand(sqlstr, myconn)
        Try
            myconn.Open()
            cmd.ExecuteNonQuery()
        Catch
        Finally
            myconn.Close()
        End Try
    End Sub
    '=============================================================
    ' 函 数 名：ChangeState
    ' 功能描述：改变某给定消息ID的状态为“已读”，即改State为0
    ' 输入参数：MsgID：消息ID
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Public Sub ChangeState(ByVal MsgID As String)
        Dim sqlstr = "update Message set State=0 where MessageID=" + MsgID

        Dim cmd As SqlCommand = New SqlCommand(sqlstr, myconn)
        Try
            myconn.Open()
            cmd.ExecuteNonQuery()
        Catch
        Finally
            myconn.Close()
        End Try
    End Sub
End Class