从WebBroker应用程序输出Javascript的问题

Question

我有一个相当简单的web应用程序，它是用Delphi (2009)构建的。我正在尝试(并且失败)将Javascript输出到页面。

我需要输出的javascript位于<form>标记的页面正文中，如下所示：

<script>DateInput('mydatefield', true, 'DD-MM-YYYY');</script>

这个javascript应该创建一个很好的日期输入控件(在手工构建的HTML页面中测试ok )。我的Delphi应用程序中的代码是：

Response.Content := Response.Content + '<script>DateInput(''mydatefield'', true, ''DD-MM-YYYY'');</script>';

脚本标记将从最终输出中删除。

作为测试，我添加了一个具有onClick事件集的HTML按钮，如下所示：

Response.Content := Response.Content + '<input type="button" onClick="alert(''Hello World'')" Value="Hello World"/>';

以及当检查页面的源时

alert(''Hello World'')

已成

alert('Hello World')

我想知道，将单引号从‘转换为&#39；是否会导致删除我以前的脚本标记？

任何帮助/提示都很感谢，谢谢。

*编辑

我应该指出，即使是'字符，Alert弹出窗口也能工作。

*编辑

我尝试过使用JQuery脚本，比如$(document).ready( function() { etc })；而且它正在工作，所以我想问题不在于WebBroker输出。感谢所有花时间读书/思考的人。

Answer 1

试试HTMLEncode单元HTTPApp：

Response.Content := Response.Content + HTMLEncode('...');