在VB.NET代码后面动态添加JS块

Question

我正在开发一个系统，该系统管理着许多页面供最终用户输入数据。 有必要防止返回按钮（我知道，不理想，但这是必需的），但是在测试模式下查看页面时，请禁用此“阻止”。

我有必要的JS，它可以满足我们的需求，但是在将代码动态添加到页面上以使其触发时遇到问题。

我是什么意思 好吧，我可以动态添加代码块，以使其看起来完全正确，但是代码不起作用。 如果我复制并粘贴文本，然后将其手动添加到aspx页面（这样就不用后面的代码了），它就可以正常工作。

这是解决后退按钮单击问题的JS：

> <script type="text/javascript">
>       function preventBack(){window.history.forward();} setTimeout("preventBack()", 0); window.onunload=function(){null};
>     </script>

在文件后面的aspx.vb代码中，我具有以下内容：

If Not TestMode Then
  ' add JS
End If

我尝试通过以下方式添加JS-似乎都没有用：

1. Page.RegisterClientScriptBlock("preventBack", "<script type=""text/javascript"">function preventBack(){window.history.forward();} setTimeout(""preventBack()"", 0); window.onunload=function(){null};</script>")

2. 昏暗的scriptText作为新的StringBuilder

    scriptText.Append("<script type='text/javascript'>") scriptText.Append("function preventBack(){") scriptText.Append(" window.history.forward();} ") scriptText.Append("setTimeout('preventBack()', 0); ") scriptText.Append("window.onunload=function(){null};") scriptText.Append("</script>") ClientScript.RegisterClientScriptBlock(Page.GetType, "noback", scriptText.ToString, False) 

3. 昏暗的新文字

    lit.Text = "<script type='text/javascript' src='JS/noBack.js'>" '"<script type='text/javascript'>function preventBack(){window.history.forward();} setTimeout('preventBack()', 0); window.onunload=function(){null};</script>" Head1.Controls.Add(lit) 

4. Dim gc作为新的HtmlGenericControl

    gc.TagName = "script" gc.Attributes.Add("type", "javascript") gc.Attributes.Add("src", "JS/noBack.js") Head1.Controls.Add(gc) 

5. ClientScript.RegisterClientScriptBlock(Me.GetType(), "MyScript", "JS/noBack.js", True)

其中noBackJS文件包含上述JS代码。

正如我所说，实际的代码在呈现时会写到页面的HTML上，但根本无法正常工作/无法启动。 显然我在这里缺少什么，但是我一生无法解决它的问题，有人可以帮忙吗？

谢谢。

Answer 1

尝试这个：

Dim jScript As String = "<script>alert('')</script>"
Page.ClientScript.RegisterStartupScript(Me.GetType(), "Registered Script", jScript, False)

Answer 2

您可以使用eval() ，例如：

eval($("#mytextbox").val())