IE工具栏 -> 文件 -> 页面设置 -> 清空页眉页脚
解决方案 »
- 坐等!(关于display的小问题),
- 转型网页开发怎么学,用什么工具
- 提交表单的js验证,如何取消js就不能提交?
- 两个代码文件让JavaScript程序员爱上Python,谨此献给JavaScript战斗者。
- 使用mootools时出现 请使用 W3C 的标准形式 document.getElementById() 。
- 关于select列表中每列是否能插图片?在线等待
- 80分在线等!!!
- 如何做MOV文件的播放网页像.....
- JQuery ui .tabs() 的疑问
- 在javascript代码中嵌套html标签,如何在html标签中的事件里面输出指定的字符串呢?代码如下:
- 高手指点一下:为什么回出现“automation服务器不能创建对象”这样的错误啊??
- 请问:怎么验证几个文本框的内容有无重复??
<script language="VBScript">
dim hkey_root,hkey_path,hkey_key
hkey_root="HKEY_CURRENT_USER"
hkey_path="\Software\Microsoft\Internet Explorer\PageSetup"
'//设置网页打印的页眉页脚为空
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,""
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
</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>
不行呀