VJS*_*VJS 0 javascript vb.net asp.net
如何在代码中使用Java脚本警报消息?保存数据后将显示此消息.
这是我的代码,
enter code here
Protected Sub Add_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Add.Click
'add new class
Dim DbClassMst = New ClassMst()
Dim dsClass As DataSet
Dim status As Integer = 0
Dim ResourceObject As Object
' ????????
If SessionCtl.GetSession("RES_LANG").ToString = ResourceBase.LOCALE_JA Then
ResourceObject = New ResourceJa(SessionCtl.GetSession("RES_LANG"))
Else
ResourceObject = New ResourceEn(SessionCtl.GetSession("RES_LANG"))
End If
If NewClass.Text = "" Then
lblErrMsg.Text = ResourceObject.getMsg(ResourceBase.NEW_CLASS_REG)
Exit Sub
Else
'check to allow unique class
dsClass = DbClassMst.DisplayClass1(NewClass.Text)
If Trim(dsClass.Tables(0).Rows.Count > 0) Then
status = 1
End If
If dsClass.Tables(0).Rows.Count < 10 Then
If status = 0 Then
'insert class
DbClassMst.InsertClassNew(NewClass.Text, dsClass.Tables(0).Rows.Count + 1)
PopulateClassName()
NewClass.Text = ""
Dim AlertMsg As String = ""
AlertMsg = "<script language='javascript'>alert('Data has been saved');</script>"
*********Here I need alert msg.
Else
lblErrMsg.Text = ResourceObject.getMsg(ResourceBase.NEW_CLASS_EXIST)
Exit Sub
End If
Else
lblErrMsg.Text = ResourceObject.getMsg(ResourceBase.NEW_CLASS_MAX)
End If
End If
End Sub
Run Code Online (Sandbox Code Playgroud)
但是没有用.给我一个主意.
更好的方法是将它作为公共类中的实用方法:
Friend Module MyUtilities
Public Sub Alert(ByVal page As Page, ByVal message As String)
Dim alertMessage As String = "alert('" & message & "');"
page.ClientScript.RegisterStartupScript(page.[GetType](), "showAlert", alertMessage, True)
End Sub
End Module
Run Code Online (Sandbox Code Playgroud)
这可以在这样的页面中使用:
MyUtilities.Alert(Me, "Sample alert!!!!!")
Run Code Online (Sandbox Code Playgroud)
您的代码看起来更简单.希望这可以帮助!