Question

需要一些简单的两页应用程序的VB学生：

1。）创建一个会话计数器，以显示每次单击“提交”按钮时保存的注册数量

会话计数代码

If Not IsPostBack Then
            If Session("key") Is Nothing Then
                Session("key") = 0
            Else
                Session("key") = Session("key") + 1
            End If
            Response.Write(Session("key"))
            LoadData()
        End If

2。）创建一个“显示”按钮，当用户单击该按钮时，将在新页面上显示上述计数。

显示具有会话计数的第二页的代码

Response.Redirect("PageTwo.aspx")

但是，当我单击“显示”按钮时，第二页上没有任何显示。我尝试了不同的方法来调整代码，但是它不起作用。我没有列出我所做的所有更改和尝试，而只是列出了我的核心代码，需要有人请告诉我如何使它起作用。

Answer 1

我将“提交”按钮的IF语句更改为更易于使用和阅读的内容。

 Protected Sub SubmitButton_Click(sender As Object, e As EventArgs) Handles SubmitButton.Click
        'if session is not set then set the session and assign value to 1
        If (Session.Item("numberofRegistration") Is Nothing) Then
            'setting session variable
            Session.Item("numberofRegistration") = 1
        Else
            'taking value from session and incrementing value by 1
            Session.Item("numberofRegistration") = Convert.ToInt32(Session.Item("numberofRegistration").ToString()) + 1
        End If
    End Sub

然后显示我的显示按钮，简单地重定向到“ PageTwo”

Protected Sub DisplayButton_Click(sender As Object, e As EventArgs) Handles DisplayButton.Click
        Response.Redirect("PageTwo.aspx")
    End Sub

在第二页上，我使用了消息标签和另一个IF语句

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'checking if session is set or not
        If (Session.Item("numberofRegistration") Is Nothing) Then
            'if session variable is null then
            'display error message on the lable
            MessageLabel.Text = "Please set the session variable"
        Else
            'display value from session variable on the lable with id=lblMessage
            MessageLabel.Text = String.Format("Total Number of Registrations : {0}", Session.Item("numberofRegistration").ToString())
        End If

    End Sub

需要使用会话状态

1 个答案: