Implementation method of automatic download control on webs

The example code looks like this:

<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)//client does not install the control, open the self-extracting package link prompts the user to download the installation

{
window.open ("Cab/instgb.exe");
window.open ("Cab/dssview.exe");

}


</script>