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
>