< 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 >