<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>取消页眉页脚</title>
</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin="5" marginwidth="0" marginheight="0">
<script language=vbscript>
function setup_page
Msgbox "本页是为取消IE打印时出现的页眉和页脚而设置,"+Chr(13)+"通过修改注册表实现的,可能会引起IE安全警告,"+Chr(13)+"请在下面可能出现的提示框中按[是(Y)],取消操作"+chr(13)+"请按[否(N)]!",48+0,"提示"
Dim wsh
Set wsh = CreateObject("WScript.Shell")
on error resume next
wsh.RegWrite "HKCU/Software/Microsoft/Internet explorer/PageSetup/header", "", "REG_SZ"
wsh.RegWrite "HKCU/Software/Microsoft/Internet Explorer/PageSetup/footer", "", "REG_SZ"
IF wshErrors.Count=0 Then
Msgbox "成功取消IE打印时出现的页眉和页脚!",48+0,"恭喜"
end if
end function
setup_page()
</script>
</body>
</html>
