Fri 01 April 2005

WEBS上自动下载控件的实现方法

作者: 月光 网站建设

例子代码如下所示：

\ \<SCRIPT LANGUAGE=\"VBScript\">\ \<!--\ \ Function OCXTest()\ OCXTest = 1\ dim ocx\ on error resume next\ err.clear\ set ocx = createobject(\"I_FLEXGRID.FlexGridCtrl.2\")\ set ocx = nothing\ if err \<> 0 then\ OCXTest = 0\ err.clear\ exit function\ end if\ set ocx = createobject(\"LEDGER50_I.Ledger50Ctrl_I.1\")\ set ocx = nothing\ if err \<> 0 then\ OCXTest = 0\ err.clear\ exit function\ end if\ \ End function\ \ //-->\ \</SCRIPT>\ \ \<Script language=\"JavaScript\">\ \ \    var setup = OCXTest();\ \    if (setup==0) //客户端未安装控件，打开自解压包的链接提示用户下载安装\ \    {\    window.open(\"cab/instgb.exe\");\    window.open(\"cab/dssview.exe\");\ \    }\ \ \ \</script>

::: {#article_dig style="text-align: right"} []{#note95}顶一下 ▲}([]{#sdig95

)   踩一下 ▼}([]{#sdown95

) :::

::: {.previous_content} « 上一篇 WinXP之后如何安装Win2000 :::

::: {.next_content} 下一篇 » 预防SQL注入漏洞函数 :::

相关文章

• 在 HTM 中插入文件

  在ASP中切换NT系统用户权限

Category: 月光博客2005