参考一下这个:http://expert.csdn.net/Expert/topicview.asp?id=1039353
解决方案 »
- EXT高手进
- 无法显示xml页,文本内容中发现无效字符
- 发现一个奇怪的现象
- 如何点击按钮显示一个DIV,点击页面其它地方隐藏这个DIV?
- 怎样知道是否兼容其它浏览器,什么地方有帮助手册,100分。
- 怎样在网页的任意位置插入编辑框等控件
- 请问怎样在用户刷新页面后,让树结构不发生变化?????????我很急!!
- 请问怎样得到网页中Div的个数
- 如何把select返回的value转换成数字运算??
- 用javascript怎樣定義一個對象變量?例如:dim aa as object,aa=form1(form1)是一個表單名
- 原来那个网页上面的图像就变了,这个怎么实现?
- 弹出一个IE窗口没有标题和边筐。自己给IE添加标题(可以托动IE就可以了)
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>