Question

当用户登录我的webapp时，我们需要检查数据库中是否有未读消息。当有未读消息时，我们需要在警报中显示这些消息。任何人都可以帮助我吗？

我试过这个：

Response.Write("<script language=""javascript"">alert('Congratulations!');</script>")

而且：

Private Sub Login(ByVal user As String, ByVal password As String)
        Dim loginModel As New LoginModel
        Dim remoteAddr As String = ""
        Try
            remoteAddr = GetIPClient()
            Select Case loginModel.Login(user, password, remoteAddr)
                Case loginModel.LoginResult.login_OK
                    Session("WebUser") = loginModel.WebUser
                    Session("WebUserId") = loginModel.WebUser.WebUserID
                    Master.SetWebUser(Me, loginModel.WebUser)
                    If (CheckIPRange() = True) Then
                        FormsAuthentication.RedirectFromLoginPage(user, False)
                        CheckPasswordValidity()
                    Else
                        ErrorLabel.Text += "<BR>" + _xmlLanguage("wrongip")
                        Utility.Web.SetFocus(Page, PasswordTextbox)
                    End If

                    Dim message As String = "Order Placed Successfully."
                    Dim sb As New System.Text.StringBuilder()
                    sb.Append("<script type = 'text/javascript'>")
                    sb.Append("window.onload=function(){")
                    sb.Append("alert('")
                    sb.Append(message)
                    sb.Append("')};")
                    sb.Append("</script>")

                    ClientScript.RegisterClientScriptBlock(Me.GetType(), "alert", sb.ToString())
                Case loginModel.LoginResult.login_Lock
                    Response.Redirect("accessLock.htm")
                Case loginModel.LoginResult.login_Failed
                    ErrorLabel.Text = _xmlLanguage("loginfailed")
            End Select
        Catch exception As Exception
            ErrorLabel.Text = exception.Message
        Finally
            If ErrorLabel.Text.Length > 0 Then ErrorLabel.Visible = True
            loginModel.Dispose()
        End Try
    End Sub

好吧似乎还有另一个问题影响了我的代码。我现在解决了这个问题。所以我得到了我的确认框。

现在我想抓住＆＃34; OK＆＃34; -button的点击，这样我就可以在代码隐藏中做一些工作。我想打电话给一个名为＆＃34; ConfirmMessage＆＃34;的Sub。我怎样才能做到这一点？

Answer 1

在表单标记内向页面添加ScriptManager控件（表单必须为runat =＆＃34; server＆＃34;）

然后你可以像这样调用任何javascript方法

ScriptManager.RegisterStartupScript(this,GetType(),"MethodName","Method()",true);

在你的情况下，你可以这样做。

ScriptManager.RegisterStartupScript(this,GetType(),"Alert","alert('Congratulations')",true);

在ASPX上使用VB.Net显示消息

1 个答案: