2

我之前曾寻求帮助，但认为我问的问题不正确。我是编码新手，并且有一个 Web 应用程序，上面有一个表单，它有一个是/否下拉列表和一个文本框，这是有原因的。我设法为 msgbox 编写了代码，但我在客户端需要它。我知道这并不像我想象的那么复杂。这是我用于服务器端 msgbox 的代码：

Protected Sub SubmitButton_Click(sender As Object, e As Event Args) Handles SubmitButton.Click
If CriticalList.Text = "Yes" THEN
 If TextBox13.Text <> "" THEN
   SqlDataSource1.Insert()
 Response.Redirect("FormsReport.aspx")
ELSE
  MsgBox("If critical, you MUST provide a reason.")
 End IF
ELSE
   SqlDataSource1.Insert()
  Response.Redirect("FormsReport.aspx")
End IF
End SUB

有人可以给我一些指导，告诉我如何为客户端警报编写这个吗？最好在后面的代码中。

4

2 回答 2

1 
Dim message As String = "If Critical, you MUST provide a reason."
Dim script As String = "<script type='text/javascript'> alert('" + message + "');</script>"

对上述内容的更正将是这样的

ClientScript.RegisterClientScriptBlock(Me.GetType(), "AlertBox", script)

不要忘记警报代码中的单个 qouts

于 2016-05-12T10:45:15.700 回答
0

http://social.msdn.microsoft.com/Forums/en-US/7d156d49-ea9a-4f58-a17f-228c9470ee7a/display-a-message-box-in-a-vbnet-web-application

这是在上面给出的链接上找到的答案之一。当然，您将不得不稍微调整它以适应您的代码。

Dim message As String = "If Critical, you MUST provide a reason."
Dim script As String = "<script type='text/javascript'> alert(" + message + ");</script>"

ClientScript.RegisterClientScriptBlock(Me.GetType(), "AlertBox", script)

我没有测试过这段代码，所以我不知道它是否按照您的预期工作，请测试

于 2013-08-13T19:08:50.743 回答