displaymail.aspx.vb

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

Imports System.Data.SqlClient
Public Class displaymail
    Inherits System.Web.UI.Page
    Protected WithEvents txtSender As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtSentOn As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtSubject As System.Web.UI.WebControls.TextBox
    Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
    Protected WithEvents txtText As System.Web.UI.WebControls.TextBox

#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
        Dim mid As String = Request.QueryString("mid")
        Dim con As New SqlConnection(Application("cs"))
        con.Open()
        Dim cmd As New SqlCommand("select * from mails where  mid = " & mid, con)
        Dim dr As SqlDataReader
        dr = cmd.ExecuteReader
        If dr.Read() Then
            txtSubject.Text = dr.Item("subject")
            txtSentOn.Text = dr.Item("sd")
            txtSender.Text = dr.Item("mailfrom")
            txtText.Text = dr.Item("text")
        Else
            Response.Write("Invalid Mail ID")
        End If

        dr.Close()
        con.Close()

    End Sub

End Class