13518219792
既然引用了COM组件，就可以直接使用了，无需用CreateObject创建。
10年积累的成都做网站、成都网站制作经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先网站设计后付款的网站建设流程，更有尧都免费网站建设让你可以放心的选择与我们合作。
Dim ScriptControl As New MSScriptControl.ScriptControl
ScriptControl.Language = "JavaScript" '设置语言种类
ScriptControl.AddCode("function TestFunc(){return 'Hello world!'}") '添加脚本代码
MsgBox(ScriptControl.Run("TestFunc")) '显示一下那段脚本的返回值（这里你将看到Hello world!字符)
在Visual Studio中打开一个已经存在的asp.net应用程序。
然后打开Internet 信息服务(IIS)管理器，把“启用 ASP 服务器端脚本调试”和“启用 ASP 客户端脚本调试”两个复选框选中即可。
JavaScript（缩写为JS）是一种高级的、多范式、解释型的编程语言，是一门基于原型、函数先行的语言，它支持面向对象编程、命令式编程以及函数式编程。它提供语法来操控文本、数组、日期以及正则表达式，不支持I/O（比如网络、存储和图形等），但可以由它的宿主环境提供支持。它已经由ECMA（欧洲计算机制造商协会）通过ECMAScript实现语言的标准化。它被世界上的绝大多数网站所使用，也被世界主流浏览器支持。
试试这个 Private Function Unescape(ByVal pstrInput As String) As String
Dim objScrCtl As Object
Set objScrCtl = CreateObject("MSScriptControl.ScriptControl")
objScrCtl.Language = "JavaScript"
Unescape = objScrCtl.Eval("unescape('" pstrInput "')")
Set objScrCtl = Nothing
End Function
不想用点击，直接执行，那么你肯定就不能用onclick事件了。
在网页中JS函数自动执行常用三种方法
在HTML中的Head区域中，有如下函数：
SCRIPT
LANGUAGE="JavaScript"
functionn
MyAutoRun()
{
//以下是您的函数的代码，请自行修改先！
alert("函数自动执行哦！");
}
/SCRIPT
下面，我们就针对上面的函数，让其在网页载入的时候自动运行！
①第一种方法
将如上代码改为：
SCRIPT
LANGUAGE="JavaScript"
functionn
MyAutoRun()
{
//以下是您的函数的代码，请自行修改先！
alert("函数自动执行哦！");
}
window.onload=MyAutoRun();
//仅需要加这一句
/SCRIPT
②第二种方法
修改网页的Body为：
body onLoad="MyAutoRun();"
或者改为：
body onLoad="javascript:MyAutoRun();"
③第三种方法
使用JS定时器来间断性的执行函数：
setTimeout("MyAutoRun()",1000); //隔1000毫秒就执行一次MyAutoRun()函数
实现方法，将最上面的那JS函数，改为：
SCRIPT
LANGUAGE="JavaScript"
functionn
MyAutoRun()
{
//以下是您的函数的代码，请自行修改先！
alert("函数自动执行哦！");
}
setTimeout("MyAutoRun()",1000);
//这样就行拉
/SCRIPT
