| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 
 | Partial Class add
    Inherits System.Web.UI.Page
 
    Protected Sub Submit1_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Submit1.ServerClick
        Session("name") = ""
        Session("serial") = ""
        Session("mac") = ""
        Session("ip") = ""
        Session("dns1") = ""
        Session("dns2") = ""
        Session("note") = ""
 
        Session("name") = Me.TextBox1.Text
        Session("serial") = Me.TextBox2.Text
        Session("mac") = Me.TextBox3.Text
        Session("ip") = Me.TextBox4.Text
        Session("dns1") = Me.TextBox5.Text
        Session("dns2") = Me.TextBox6.Text
        Session("note") = Me.TextArea1.Value
 
        Response.Redirect("hard.aspx")
    End Sub
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Action As String = Request.Params.Get("action")
 
        If (Action = "back") Then
 
            Me.TextBox1.Text = Session("name")
            Me.TextBox2.Text = Session("serial")
            Me.TextBox3.Text = Session("mac")
            Me.TextBox4.Text = Session("ip")
            Me.TextBox5.Text = Session("dns1")
            Me.TextBox6.Text = Session("dns2")
            Me.TextArea1.Value = Session("note")
        End If
 
    End Sub
End Class |