Код Лава почти готов, но поскольку ваши элементы находятся в UpdatePanel, вам необходимо внести следующие изменения:
sb.Append("<script language='javascript'>")
sb.Append("alert('TestMessage')")
sb.Append("</script>")
На самом деле, вы можете избавиться от строк 1 и 3, потому что мы собираемсясказать ему автоматически добавлять теги сценария, чтобы мы могли упростить и просто сказать:
Dim s as String
s = "alert('TestMessage')"
Теперь вместо использования ClientScript
мы будем использовать ScriptManager
.
If Not ClientScript.IsClientScriptBlockRegistered(t, "PopupScript") Then
ClientScript.RegisterClientScriptBlock(t, "PopupScript", sb.ToString())
End If
Вместо этого мы собираемся использовать ScriptManager, например так:
If Not ScriptManager.IsClientScriptBlockRegistered(Me, "PopupScript") Then
ScriptManager.RegisterStartupScript(Me, GetType(Page), "PopupScript", s, True)
End If
Обратите внимание, что мы используем метод RegisterStartupScript
, потому что мы хотим, чтобы скрипт запускался сразу после частичной обратной передачизавершено.