Question

我之前曾要求帮助，但我认为我没有问正确的问题。我是编码和编码的新手。有一个带有表单的网络应用程序，其中有一个是/否下拉菜单一个文本框后面的原因。我设法为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

有人可以，请给我一些指导，告诉我如何为客户端警报写这个？最好是代码背后。

Answer 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

Answer 2

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)

我没有测试过这段代码所以我不知道它是否按照您的意图运行，请测试

客户端警报背后的代码

2 个答案: