这段控制打印时页眉角的代码错哪了????
<script language= "JScript ">
var hkey_root,hkey_path,hkey_key
hkey_root= "HKEY_CURRENT_USER "
hkey_path= "\\Software\\Microsoft\\Internet Explorer\\PageSetup\\ "
//设置网页打印的页眉页脚为空
function pagesetup_null()
{
try{
var RegWsh = new theObject( "WScript.Shell ")
hkey_key= "header "
RegWsh.RegWrite(hkey_root+hkey_path+hkey_key, " ")
hkey_key= "footer "
RegWsh.RegWrite(hkey_root+hkey_path+hkey_key, " ")
}catch(e){alert(e.name+ " "+e.message)}
}
//设置网页打印的页眉页脚为默认值
function pagesetup_default()
{
try{
var RegWsh = new ActiveXObject( "WScript.Shell ")
hkey_key= "header "
RegWsh.RegWrite(hkey_root+hkey_path+hkey_key, "&w&b页码,&p/&P ")
hkey_key= "footer "
RegWsh.RegWrite(hkey_root+hkey_path+hkey_key, "&u&b&d ")
}catch(e){alert(e.name+ " "+e.message)}
}
</script>
<body >
<input type= "button " value= "恢复页码 " onclick=pagesetup_default()>
<input type= "button " value= "清空页码 " onclick=pagesetup_null()>
</body>
</html>
------解决方案--------------------帮顶
------解决方案--------------------function pagesetup_null()
{
try{
var RegWsh = new theObject( "WScript.Shell ")-------ActiveXObject( "WScript.Shell ")
hkey_key= "header "
RegWsh.RegWrite(hkey_root+hkey_path+hkey_key, " ")
hkey_key= "footer "
RegWsh.RegWrite(hkey_root+hkey_path+hkey_key, " ")
}catch(e){alert(e.name+ " "+e.message)}
}