javascript - 在成功提交表单时添加Javascript警报-VB.Net

我正在尝试在用户提交表单时添加警报。我希望它仅在提交成功时显示警报，否则我只将javascript警报附加到提交按钮。我按照这里建议的方法进行操作：

http://www.aspsnippets.com/Articles/Dsplay-Alert-Message-in-ASPNet-from-code-behind-using-C-and-VBNet.aspx

但警报部分不起作用。我尝试将警报代码放入Page_Load中，并且可以正常工作，但是当我将其放入按钮单击处理程序中时，没有任何警报。

Public Sub Send_Data(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNewsletter.Click
    Dim sFName, sLName As String
    Dim sEmail As String
    Dim clsUser As New clsLogin
    Dim iConfirm As Integer

    sEmail = email.Text
    If sEmail = "" Then Exit Sub
    Try
        If clsUser.Check_Cookie = False Then
            iConfirm = clsUser.Create_Acct("", "", sEmail, "", iType)
        End If
        clsUser.Add_AvailLog(0, iType, iChat)
    Catch
    End Try

    'start JK

    Dim blog As Destinations.GetBlog
    Dim TargetURL As String
    TargetURL = "http://wimco.us8.list-manage.com/subscribe/post?u=fe50a5183f6f54bb70a7005e3&id=b2e21157fc"

    Dim html As String
    Dim PostData As String

    PostData = "&EMAIL=" & sEmail & "&b_fe50a5183f6f54bb70a7005e3_b2e21157fc=&subscribe=Subscribe"

    html = blog.PostData(TargetURL, PostData)

    email.Text = ""

    ' This is the alert section
    Dim message As String = "Order Placed Successfully."
    Dim sb As New System.Text.StringBuilder()
    sb.Append("<script type = 'text/javascript'>")
    sb.Append("alert('")
    sb.Append(message)
    sb.Append("');")
    sb.Append("</script>")
    Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), "alert", sb.ToString())

End Sub

最佳答案

我一直在做类似的事情，你的代码看起来还可以。

您是否尝试调试代码并确保代码到达调用RegisterClientScriptBlock的Send_Data函数的末尾？

我有种感觉，如果sEmail =“” Then Stop Sub停止了。