例子代码如下所示：
<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>
这是转载的，只是为了以后用到的时候，能够找的到
-- 2006/05/04: ^_^，真有远见，今天要用，找了很久没有找到，整理BLOG时发现了这个东西
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。