CSDN博客

img baijian_8d

去掉页眉页角

发表于2004/11/3 17:02:00  970人阅读

有一些缺陷,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>

阅读全文
0 0

相关文章推荐

img
取 消
img