2009-09-26 2 views
0

코드 숨김 자바 스크립트 경고 메시지를 사용하는 방법? 이 메시지는 데이터 저장 후 표시됩니다.자바 스크립트 알림 코드 Asp.net 3.5의 코드 뒤에

다음

내 코드는,

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 

하지만 작동하지 않습니다. 나에게 아이디어를 줘.

답변

6

이 작업을 수행하는 더 좋은 방법은 일반적인 클래스의 유틸리티 방법으로이 작업을하는 것입니다 코드가 훨씬 단순 해 보입니다. 희망이 도움이!

2

이 스크립트를 페이지에 등록해야 스크립트가 클라이언트로 전송됩니다. 이 같은 페이지에서 사용할 수있는

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 

:

MyUtilities.Alert(Me, "Sample alert!!!!!") 

Page.ClientScript.RegisterStartupScript(typeof(YourPage), 
    "myScripts", 
    "<script language='javascript'>alert('Data has been saved');</script>"); 
0

Dim someScript As String = "" someScript = "경고 ('귀하의 휴가 요청이 등록되었습니다.');" Page.ClientScript.RegisterStartupScript (Me.GetType(), "onload", someScript)

관련 문제