showandback.aspx.vb

来自「是可以运行的电子光盘 有程序与PPT介绍 对于学习VB。NET的有参考意义」· VB 代码 · 共 45 行

Imports System.data
Partial Class ShortInfoManager_ShowAndBack
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Me.IsPostBack Then
            Dim ReceiveUser As String = Server.UrlDecode(Request("User"))
            Dim Title As String = Server.UrlDecode(Request("Title"))
            Dim ds As New DataSet
            '将XML文件读取数据
            ds = ShareXmlServer.GetDataSetByXml(Data.C_MainShortMsgXmlMapPath)
            If IsNothing(ds) Then Return
            For Each row As DataRow In ds.Tables(0).Rows
                If row("ReceiveUser").ToString = ReceiveUser And row("Title") = Title Then
                    lblSentUser.Text = row("SendUser")
                    lblTitle.Text = row("Title")
                    lblContent.Text = row("Content")
                    Exit For
                End If
            Next
            ds = Nothing
        End If
    End Sub

    Protected Sub Submit2_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Submit2.ServerClick
        Dim ds As New DataSet
        '将XML文件读取数据
        Try
            ds = ShareXmlServer.GetDataSetByXml(Data.C_MainShortMsgXmlMapPath)
            Dim Value() As String = {lblSentUser.Text, Session("User").ToString, txtTitle.Text, txtReply.Text, Now.ToShortDateString, "False"}
            ds.Tables(0).Rows.Add(Value)
            ds.WriteXml(Server.MapPath(Data.C_MainShortMsgXmlMapPath))
            Me.StatusMessage.Text = "发送成功"
        Catch ex As Exception
            Me.StatusMessage.Text = "发送失败" & ex.Message
        End Try
        ds = Nothing
    End Sub

    Protected Sub butClear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles butClear.Click
        txtTitle.Text = String.Empty
        txtReply.Text = String.Empty
    End Sub
End Class