各位大师：
我写了一个ActiveX控件，要在Web页中使用，
该网页的代码如下：
<object id="HS" CLASSID="CLSID:10470822-22A0-11D5-8AB9-00E04C3B815E">
</object><script language="VBS">
val=-1
Sub ShowLink(int)
val=HS.ChuShiHua ()
End sub
</script>
如果本机上装有该件，能正确浏览网页.
如果本机上没有安装该控件，浏览器（IE）执行到 val=HS.ChuShiHua ()时网页出现一个“对象不支持此属性或方法的”的错误。
我们怎样保证用户在没有安装该控件的情况，也能正确浏览网页，即怎么能在HTML语句中判断本机中没有该控件，以至于网页不出错？
我写了一个ActiveX控件，要在Web页中使用，
该网页的代码如下：
<object id="HS" CLASSID="CLSID:10470822-22A0-11D5-8AB9-00E04C3B815E">
</object><script language="VBS">
val=-1
Sub ShowLink(int)
val=HS.ChuShiHua ()
End sub
</script>
如果本机上装有该件，能正确浏览网页.
如果本机上没有安装该控件，浏览器（IE）执行到 val=HS.ChuShiHua ()时网页出现一个“对象不支持此属性或方法的”的错误。
我们怎样保证用户在没有安装该控件的情况，也能正确浏览网页，即怎么能在HTML语句中判断本机中没有该控件，以至于网页不出错？
</object><script language="VBS">
val=-1
Sub ShowLink(int)
if isobject(HS)
val=HS.ChuShiHua ()
End sub
</script>
望各位大师再继续指点！！！！
cab包里边一般包括*.inf,*.ocx,*.dll几种文件，编写*.inf文件自动注册即可。
html自动下载注册语法：
<object id="down" classid="clsid:B3DECCA8-495F-11D2-B578-006097C768D6" codebase="Cab/*.cab#version=1,0,1,2">
</object>
或者直接用：
<object id="down" classid="clsid:B3DECCA8-495F-11D2-B578-006097C768D6" codebase="path/*.ocx#version=1,0,1,2">
</object>
急急急！！！！！
try
{
//...
}
catch(e) { }
<BODY onload="test();">
<object id="HS" CLASSID="CLSID:10470822-22A0-11D5-8AB9-00E04C3B815E">
</object>
<script language="JavaScript">
<!--
var varret = -1;
function test()
{
try
{
varret =HS.ChuShiHua ();
}
catch(e)
{
alert("error catched");
}}
!-->
</script>
</BODY>
</HTML>
dim isfirst
isfirst=0
Function AgentVersion()
AgentVersion = 0
On Error Resume Next
If CanCreate("QQmsg.QQmsgMain") Then
AgentVersion = 1
Else
AgentVersion = 0
End If
End Function
Function CanCreate(ctlName)
Dim agent
On Error Resume Next
Set agent = CreateObject(ctlName)
CanCreate = IsObject(agent)
Set agent = Nothing
End Function
</SCRIPT>
<SCRIPT language="javaScript">
if(!AgentVersion())
{
isfirst=1
alert("您可能是第一次进入本网站，本站的现在将安装一个插件");
}
</script>