去掉页眉页角

来源:互联网 发布:englishtown聊天软件 编辑:程序博客网 时间:2024/04/28 01:07

有一些缺陷,IE的安全设置对其有限制。
 
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="YC">
<script language="VBScript">
dim hkey_root,hkey_path,hkey_key
hkey_root="HKEY_CURRENT_USER"
hkey_path="/Software/Microsoft/Internet Explorer/PageSetup"

function pagesetup_null()
  //on error resume next
  Set RegWsh = CreateObject("WScript.Shell")
  hkey_key="/header"
  RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
  hkey_key="/footer"
  RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""

end function

function pagesetup_default()
  //on error resume next
  Set RegWsh = CreateObject("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"
  end function
</script>
</HEAD>

<BODY>
<p align=center>
<input type="button" value="清空页码" onclick=pagesetup_null()> <input type="button" value="恢复页吗" onclick=pagesetup_default()><br/>
</p>
</BODY>
</HTML>

原创粉丝点击