WEB 打印 页眉页脚设置

< HTML >    
   < 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="SoftwareMicrosoftInternet   ExplorerPageSetup"   
  '//设置网页打印的页眉页脚为空   
  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=" ooter"   
          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=" ooter"   
          RegWsh.RegWrite   hkey_root+hkey_path+hkey_key,"&u&b&d"   
  end   function   
   </ script >    
   </ HEAD >    
    
   < BODY >    
   < br >    
   < br >    
   < br >    
   < br >    
   < br >    
   < br >< p    align =center >    
   < input    type ="button"    value ="清空页码"    onclick =pagesetup_null() >     < input    type ="button"    value ="恢复页吗"    onclick =pagesetup_default() >< br >    
    
   </ p >    
   </ BODY >    
   </ HTML >