1 2 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 |