61,112
社区成员
发帖
与我相关
我的任务
分享我的ＩＥ上找不到iemenu.ocx ActiveX控件,如何下载及安装？
请看以下VBscript代码：
<html>
<head>
<title>课程信息</title>
</head>
<script language="VBscript">
<!--
sub Iepop1_click(byVal menuitem)
Select Case menuitem
Case 0
Msgbox("今天星期天")
case 1
Msgbox("今天星期一")
case 2
Msgbox("今天星期二")
case 3
Msgbox("今天星期三")
case 4
Msgbox("今天星期四")
case 5
Msgbox("今天星期五")
case 6
Msgbox("今天星期六")
end select
end sub
sub showPop_onclick
call Iepop1.PopUp
end sub
-->
</script>
<body>
<object id="Iepop1" width=0 height=0
classid="clsid:7823A620-9DD9-11CF-A662-00AA00C066D2"
>
<param name="_extentX" value="200">
<param name="_extentY" value="200">
<param name="menuitem[0]" value="星期一">
<param name="menuitem[1]" value="星期二">
<param name="menuitem[2]" value="星期三">
<param name="menuitem[3]" value="星期四">
<param name="menuitem[4]" value="星期五">
<param name="menuitem[5]" value="星期六">
<param name="menuitem[6]" value="星期天">
</object>
<h2>请按按钮</h2>
<input type="button" name="showPop" value="look">
</body>
</html>
执行后IE报错，估计是找不到这个ActiveX控件，加上CODEBASE="iemenu.ocx">代码后也不行。
请问如何找到此控件，如何安装？
<html>
<head>
<title>课程信息</title>
</head>
<script language="VBscript">
<!--
sub Iepop1_click(byVal menuitem)
Select Case menuitem
Case 0
Msgbox("今天星期天")
case 1
Msgbox("今天星期一")
case 2
Msgbox("今天星期二")
case 3
Msgbox("今天星期三")
case 4
Msgbox("今天星期四")
case 5
Msgbox("今天星期五")
case 6
Msgbox("今天星期六")
end select
end sub
sub showPop_onclick
call Iepop1.PopUp
end sub
-->
</script>
<body>
<object id="Iepop1" width=0 height=0
classid="clsid:7823A620-9DD9-11CF-A662-00AA00C066D2"
>
<param name="_extentX" value="200">
<param name="_extentY" value="200">
<param name="menuitem[0]" value="星期一">
<param name="menuitem[1]" value="星期二">
<param name="menuitem[2]" value="星期三">
<param name="menuitem[3]" value="星期四">
<param name="menuitem[4]" value="星期五">
<param name="menuitem[5]" value="星期六">
<param name="menuitem[6]" value="星期天">
</object>
<h2>请按按钮</h2>
<input type="button" name="showPop" value="look">
</body>
</html>
执行后IE报错，估计是找不到这个ActiveX控件，加上CODEBASE="iemenu.ocx">代码后也不行。
请问如何找到此控件，如何安装？
...全文
请发表友善的回复…
发表回复
genuis 2003-03-10
- 打赏
- 举报
http://www.gdjyw.com/kjzz/authorware/24.htm
http://abiao.163dl.com/dmt/010213/iemenu.ocx
http://abiao.163dl.com/dmt/010213/iemenu.ocx
