Question

我在ASP页面上有一个文本框。该文本框充满了来自数据库的电子邮件，在文本框中每行打印出一封电子邮件，每行用vbCrLf分隔以使其正常工作。该文本框是可写的，因此人们可以输入更多电子邮件或清除该列表中的电子邮件。更改电子邮件列表后，有一个保存按钮，该按钮应读入新的电子邮件列表并将其发送回去。

但是，在文本框中输入新电子邮件或从文本框中删除一封电子邮件后，我单击了保存按钮，并且在其后面的代码中仍将文本框的文本读取为原始文本，而没有更改。我不知道为什么，因为代码仅在进行更改后才运行，所以当我调用emailBox.Text（我的文本框）时，它应该查找文本框中的任何文本，对吗？任何和所有帮助将不胜感激。

这是我的代码：

VB：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try
            emailBox.Text = ""
            Dim tempstoreID As Integer = 101
            Dim ds As DataSet
            Dim emailList As String = ""
            ds = DBUtility.GetKisokAlertEmails(tempstoreID)
            If Not ds Is Nothing AndAlso ds.Tables.Count > 0 And ds.Tables(0).Rows.Count > 0 Then
                For Each dr In ds.Tables(0).Rows
                    emailList = dr("EmailList")
                Next
            End If
            Dim seperatedEmailList() As String
            seperatedEmailList = Split(emailList, ";")
            For Each email As String In seperatedEmailList
                emailBox.Text &= email & vbCrLf
            Next

        Catch ex As Exception
            Dim tempstoreID As Integer = 101
            LogUtility.LogMessage("Error in getting and parsing email list from database. " & ex.ToString, LogUtility.INFO_MESSAGE, tempstoreID)
        End Try
    End Sub

Protected Sub SaveButton(sender As Object, e As EventArgs)
        Dim newEmailList() As String
        newEmailList = Split(emailBox.Text, vbCrLf)
        Dim regexExpression As New Regex("^[a-zA-Z0-9.!#$%&'*+/=?^_`{|}~-]+@[a-zA-Z0-9](?:[a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?(?:\.[a-zA-Z0-9](?:[a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?)*$")

        Dim valid As Boolean
        Dim errorEmail As String = "Nope"

        Dim counter As Integer = 0
        While counter < newEmailList.Length - 1
            If (regexExpression.IsMatch(newEmailList(counter))) Then
                valid = True
                counter += 1
            Else
                valid = False
                errorEmail = newEmailList(counter)
                Exit While
            End If

        End While

    End Sub

ASP：

<head runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
        <div>
            <asp:Label ID="label1" Text="List Of Emails" runat="server" /> <br />
            <asp:TextBox ID="emailBox" TextMode="MultiLine" Text="" AutoPostBack="true" runat="server" />
            <br/><br/>
            <asp:Button Text="Save" OnClick="SaveButton" runat="server" />
            <asp:Button Text="Cancel" runat="server" />
            <br />
            <asp:Label ID="TestLabel" Text = "Hi" runat="server"/>
            <br />
            <asp:Label ID="TestLabel2" Text ="howdy" runat="server" />
            <br />
            <asp:Label ID="TestLabel3" Text = "emails" runat="server" />
        </div>
    </form>
</body>
</html>

Answer 1

当您单击button保存时，首先执行Form1_Load，然后执行SaveButton函数，这就是为什么拥有旧数据的原因。因此，您需要将Form1_Load代码放入PostBack中：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   if not IsPostBack then
       //your code
   end if

End Sub

您可以查看this post有关回发的信息。

键入后更新ASP更新文本框

1 个答案: