网页中调用VB编写的OCX控件，设置属性和调用方法后无响应

我用做了一个OCX控件，用VB的打包工具制作成internet包，并打开其自动生成的htm文件进行修改，添加设置属性和调用方法的语句，但在浏览器中执行始终没有运行相关的方法，请指点！我的调用页面代码如下：<HTML>
<HEAD>
<TITLE>TableGatherForOracle.CAB</TITLE>
</HEAD>
<BODY><OBJECT ID="tableGather"
CLASSID="CLSID:17CCADB4-32FE-4F0E-8C35-B2A612132156"
CODEBASE="TableGatherForOracle.CAB#version=1,0,0,0">
 <param name="_ExtentX" value=17965>
 <param name="_ExtentY" value=15399>
 <param name="FirstCharacterParameterString" value="100        0101修改DSB01100150023950000514532008.06.21  500105000001247173  5002395000756452000                          0            1500239503115002390000002008.05.01-2008.05.312008.06.10                                                                   002008.05.01-2008.05.31                                                         ">
 <param name="ParameterDatabaseName" value="TN21P_SB.PAR">
 <param name="GatherTableName" value="DSB011001">
</OBJECT><script language="JavaScript"> 
document.all.tableGather.ExecuteAction("初始");
document.all.tableGather.FillCurrentTable();
document.all.tableGather.ShowGatherText();
document.all.tableGather.Resize();
</script></BODY>
</HTML>

解决方案 »

  1.   

    给你一段我以前调用的自己写的OCX的网页DEMO 
    <html><head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
    <meta name="ProgId" content="FrontPage.Editor.Document">
    <title>New Page 1</title>
    </head><body><p>
    <object classid="clsid:1B9C92F2-2628-4B7E-9D68-0D21251FFE0C" id="MFUsbOCX1" width="31" height="30">
      <param name="_ExtentX" value="820">
      <param name="_ExtentY" value="820">
      <param name="wNum" value="0">
      <param name="wMoney" value="0">
      <param name="wAdminId" value="0">
      <param name="wItemid" value="0">
      <param name="strPur" value>
      <param name="KeyA" value="FFFFFFFFFFFF">
      <param name="machinetype" value="USB">
      <param name="setDossier" value>
      <param name="setAreaNum" value="0">
      <param name="setAreaString" value>
      <param name="setUserString" value>
    </object>
    </p>
    <script language="VBScript">
    '读卡号
    Function icno()
        If MFUsbOCX1.GetIcNo = 1 Then MsgBox "卡号:" & MFUsbOCX1.icno, , "读卡成功"
    End Function
        </script>
    <p>
    <INPUT TYPE="button" VALUE="   卡 号  " onClick="icno" style="background-color: #8000FF; color: rgb(255,255,255)">&nbsp;&nbsp;&nbsp; <p>　</p></body>
    </html>