设置WEB(INTERNET)打印页眉页脚为空

:未知 Դ:internet :2007-5-20 16:41:26 ؼ:web
HTML代码 <html> <head> <title>New Document </title> <meta name="generator" content="editplus"> <meta name="author" content="yc"> dim hkey_root,hkey_path,hkey_key hkey_root="HKEY_CURRENT_USER" hkey_path="\Software\Microsoft\Internet Explorer\PageSetup" //IE打印设置的注册表地址 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,"" //页脚 hkey_key="\margin_left" RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1" //键值设定--左边边界 hkey_key="\margin_top" RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1" hkey_key="\margin_right" RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1" hkey_key="\margin_bottom" RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"1" 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 </head> <body> <table> <tr> <td> </td> </tr> </table> </body> </html>

[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]
Ҷƪл˵?
һƪ怎样才能回到从前(2)
һƪ无题002