Imports System.Data
Imports System.Data.SqlClient

Public Class Edit
    Inherits System.Web.UI.Page

#Region " Web Form µðÀÚÀ̳ʿ¡¼­ »ý¼ºÇÑ ÄÚµå "

    'ÀÌ È£ÃâÀº Web Form µðÀÚÀ̳ʿ¡ ÇÊ¿äÇÕ´Ï´Ù.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents Name As System.Web.UI.WebControls.TextBox
    Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents Email As System.Web.UI.WebControls.TextBox
    Protected WithEvents RegularExpressionValidator1 As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents Title As System.Web.UI.WebControls.TextBox
    Protected WithEvents Requiredfieldvalidator2 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents Content As System.Web.UI.WebControls.TextBox
    Protected WithEvents RequiredFieldValidator3 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button
    Protected WithEvents lblError As System.Web.UI.WebControls.Label
    Protected WithEvents ValidationSummary1 As System.Web.UI.WebControls.ValidationSummary

    'Âü°í: ´ÙÀ½ÀÇ ÀÚ¸® Ç¥½ÃÀÚ ¼±¾ðÀº Web Form µðÀÚÀ̳ÊÀÇ Çʼö ¼±¾ðÀÔ´Ï´Ù.
    '»èÁ¦Çϰųª ¿Å±âÁö ¸¶½Ê½Ã¿À.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: ÀÌ ¸Þ¼­µå È£ÃâÀº Web Form µðÀÚÀ̳ʿ¡ ÇÊ¿äÇÕ´Ï´Ù.
        'ÄÚµå ÆíÁý±â¸¦ »ç¿ëÇÏ¿© ¼öÁ¤ÇÏÁö ¸¶½Ê½Ã¿À.
        InitializeComponent()
    End Sub

#End Region

    Dim Num As String
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '¿©±â¿¡ »ç¿ëÀÚ Äڵ带 ¹èÄ¡ÇÏ¿© ÆäÀÌÁö¸¦ ÃʱâÈ­ÇÕ´Ï´Ù.
        Num = Request.QueryString("Num")
        If Num = "" Then
            Response.Redirect("List.aspx")
        End If

        If CStr(Request.UrlReferrer.ToString()) = "" Then '¹Ì¿Ï¼º
            Response.Redirect("List.aspx")
        End If

        If Not IsPostBack Then
            LoadData()
        End If
    End Sub

    Private Sub LoadData()
        Dim objCon As SqlConnection
        Dim objCmd As SqlCommand
        Dim objDr As SqlDataReader

        objCon = New SqlConnection("server=localhost;user id=dotnetnote;password=dotnetnote;database=dotnetnote")
        'objCon.Open()

        objCmd = New SqlCommand("Select * From DotnetNoteBasicVB Where Num = @Num", objCon)
        objCmd.Parameters.Add("@Num", SqlDbType.Int)
        objCmd.Parameters("@Num").Value = Num

        Try
            objCon.Open()
            objDr = objCmd.ExecuteReader()

            If objDr.Read() Then
                Name.Text = objDr.Item("Name")
                Email.Text = objDr.Item("Email")
                Title.Text = objDr.Item("Title")
                Content.Text = objDr.Item("Content")
            Else
                lblError.Text = "±ÛÀÌ »èÁ¦µÇ¾ú°Å³ª Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù.<br>"
            End If

            objDr.Close()
        Catch ex As Exception
            lblError.Text = "µ¥ÀÌÅÍ ·Îµù¿¡ ½ÇÆÐÇÏ¿´½À´Ï´Ù. »çÀ¯´Â ´ÙÀ½°ú °°½À´Ï´Ù.<br>"
            lblError.Text = ex.Message
        Finally
            objCon.Close()
        End Try
    End Sub

    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        Dim objCon As SqlConnection
        Dim objCmd As SqlCommand

        objCon = New SqlConnection("server=localhost;user id=dotnetnote;password=dotnetnote;database=dotnetnote")
        objCmd = New SqlCommand("Update DotnetNoteBasicVB Set Name=@Name, Email=@Email, Title=@Title, Content=@Content Where Num = @Num", objCon)

        objCmd.Parameters.Add("@Name", SqlDbType.VarChar, 25)
        objCmd.Parameters.Add("@Email", SqlDbType.VarChar, 100)
        objCmd.Parameters.Add("@Title", SqlDbType.VarChar, 140)
        objCmd.Parameters.Add("@Content", SqlDbType.Text)
        objCmd.Parameters.Add("@Num", SqlDbType.Int)

        objCmd.Parameters("@Name").Value = Name.Text
        objCmd.Parameters("@Email").Value = Email.Text
        objCmd.Parameters("@Title").Value = Title.Text
        objCmd.Parameters("@Content").Value = Content.Text
        objCmd.Parameters("@Num").Value = Num

        Try
            objCon.Open()
            objCmd.ExecuteNonQuery()
            Response.Redirect("List.aspx")
        Catch ex As Exception
            lblError.Text = "¿À·ù·Î ÀÎÇØ ÀúÀåÀÌ ½ÇÆÐÇÏ¿´½À´Ï´Ù. »çÀ¯´Â ´ÙÀ½°ú °°½À´Ï´Ù.<br>"
            lblError.Text = ex.Message
        Finally
            objCon.Close()
        End Try
    End Sub
End Class