是高手的请进!在用asp时,如何用VBS修改IE的设置.

如屏蔽掉文件和编辑菜单,添加自己的菜单等.最好有实例文章!
---------------------------------------------------------------

IE功能大汇聚

ie按钮

1<object classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height="0" id="WebBrowser" width="0">
2</object>

1<input name="Button1" onclick="document.all.WebBrowser.ExecWB(1,1)" type="button" value="打开"/>

1<input name="Button2" onclick="document.all.WebBrowser.ExecWB(4,1)" type="button" value="另存为"/>

1<input name="Button3" onclick="document.all.WebBrowser.ExecWB(10,1)" type="button" value="属性"/>

1<input name="Button" onclick="document.all.WebBrowser.ExecWB(6,1)" type="button" value="打印"/>

1<input name="Button4" onclick="document.all.WebBrowser.ExecWB(8,1)" type="button" value="页面设置"/>

1<input name="refresh" onclick="window.location.reload()" type="button" value="刷新"/>

1<input name="Button5" onclick="window.external.ImportExportFavorites(true,'');" type="button" value="导入收藏夹"/>

1<input name="Button32" onclick="window.external.ImportExportFavorites(false,'');" type="button" value="导出收藏夹"/>

1<input name="Button22" onclick="window.external.AddFavorite(location.href, document.title)" type="button" value="加入收藏夹"/>

1<input name="Submit2" onclick="window.external.ShowBrowserUI('OrganizeFavorites', null)" type="button" value="整理收藏夹"/>

1<input name="Button7" onclick='window.location="view-source:" + window.location.href' type="button" value="查看源文件"/>

1<input name="Button6" onclick="window.external.ShowBrowserUI('LanguageDialog', null)" type="button" value="语言设置"/>

1<input name="Submit" onclick="history.go(1)" type="submit" value="前进"/>

1<input name="Submit2" onclick="history.go(-1)" type="submit" value="后退"/>

要完成此效果把如下代码加入到

 1<body>区域中   
 2  
 3<input name="Button" onclick="document.all.WebBrowser.ExecWB(4,1)" type="button" value="点击保存页面"/>
 4<object classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height="0" id="WebBrowser" width="0">
 5</object>   
 6………………………………………………………………………………………………………………………………   
 7鼠标自定义   
 8<script language="javascript">var Loaded=false;var Flag=false;</script>
 9<script language="javascript" src="http://files.cometsystems.com/javascript/lc2000.js"></script>
10<script language="javascript">if(Loaded&&Flag)TheCometCursor('cd_electric',0,626);</script>   
11  
12  
13要完成此效果把如下代码加入到<head>区域中   
14  
15<script language="javascript">   
16<!-- Begin   
17var x, y, xold, yold, xdiff, ydiff;   
18var dir = Array();   
19dir[0] = "n-resize";   
20dir[1]="ne-resize";   
21dir[2]="e-resize";   
22dir[3]="se-resize";   
23dir[4] = "s-resize";   
24dir[5]="sw-resize";   
25dir[6]="w-resize";   
26dir[7]="nw-resize";   
27document.onmousemove = FindXY;   
28function display(direction) {   
29document.body.style.cursor = dir[direction];   
30}   
31function FindXY(loc) {   
32x = (document.layers) ? loc.pageX : event.clientX;   
33y = (document.layers) ? loc.pageY : event.clientY;   
34xdiff = x - xold;   
35ydiff = y - yold   
36if ((xdiff < 2) && (ydiff < -2)) display(0);   
37if ((xdiff < 2) && (ydiff > 2)) display(4);   
38if ((xdiff > 2) && (ydiff < 2)) display(2);   
39if ((xdiff < -2) && (ydiff < 2)) display(6);   
40if ((xdiff > 2) && (ydiff > 2)) display(3);   
41if ((xdiff > 2) && (ydiff < -2)) display(1);   
42if ((xdiff < -2) && (ydiff > 2)) display(5);   
43if ((xdiff < -2) && (ydiff < -2)) display(7);   
44xold = x;   
45yold = y;   
46}   
47// End -->   
48</script></head></body>