已阅读5页,还剩44页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
dim hkey_root,hkey_path,hkey_keyym= 2008ym=Replace(ym, Chr(32),  )hkey_root=HKEY_CURRENT_USERhkey_path=SoftwareMicrosoftInternet ExplorerPageSetupfunction pagesetup_default(page)Set RegWsh = CreateObject(WScript.Shell)hkey_key=headerRegWsh.RegWrite hkey_root+hkey_path+hkey_key,ymhkey_key=footerRegWsh.RegWrite hkey_root+hkey_path+hkey_key,&b&page&chr(32)&chr(32)&chr(32)& 2008.0.1 &bhkey_key=margin_topRegWsh.RegWrite hkey_root+hkey_path+hkey_key,1hkey_key=margin_bottomRegWsh.RegWrite hkey_root+hkey_path+hkey_key,1end functionfunction pagesetup_yj(page)Set RegWsh = CreateObject(WScript.Shell)hkey_key=footerRegWsh.RegWrite hkey_root+hkey_path+hkey_key,&b&page&chr(32)&chr(32)&chr(32)& 2008.1.1 &bend functionfunction pagesetup_defaultwu()Set RegWsh = CreateObject(WScript.Shell)hkey_key=headerRegWsh.RegWrite hkey_root+hkey_path+hkey_key,hkey_key=footerRegWsh.RegWrite hkey_root+hkey_path+hkey_key,end functionfunction pagesetup_yj11()Set RegWsh = CreateObject(WScript.Shell)hkey_key=footerRegWsh.RegWrite hkey_root+hkey_path+hkey_key,&b& &p & chr(32) & & chr(32) & & 2008.1.1&bend functionfunction pagesetup_defaultwu11()Set RegWsh = CreateObject(WScript.Shell)hkey_key=headerRegWsh.RegWrite hkey_root+hkey_path+hkey_key,hkey_key=footerRegWsh.RegWrite hkey_root+hkey_path+hkey_key,end functionfunction printsetup()/ pagesetup_defaultwu();wb.execwb(8,1);function printpreview(pages)/ pagesetup_defaultwu11();pagesetup_yj11();wb.execwb(7,1);function printit(pages)pagesetup_defaultwu11();pagesetup_yj11();wb.execwb(6,6)function zscount(strings,len)strings=strings.replace(/g,)for (i=0;ilen)return true;elsereturn false;function zscountdy(strings,len)strings=strings.replace(/g,)for (i=0;istrings.length;i+)strings=strings.replace( ,)if (strings.lengthlen)return true;elsereturn false;function inputfs(score)if (score -1)var id=score.substr(score.indexOf(.)+1,5)if (id=5)return false;elsereturn true;elsereturn false; 1Word23134200851 07020283 1-11000 2002483200220032004320049&nbs
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 养老机构老年用品销售合同协议
- 就业合同变更协议示例
- 低空经济基础设施抗山体滑坡加固技术评估与2025年应用报告
- 2025年新版合同范本全文下载
- 2026年公安机关理论考试题库300道及完整答案(网校专用)
- 2026年监理工程师之交通工程目标控制考试题库300道及答案【全优】
- 2026年国家电网招聘之文学哲学类考试题库300道及完整答案(各地真题)
- 2026年国家电网招聘之人力资源类考试题库300道及完整答案【夺冠】
- 2026年安全员之C证(专职安全员)考试题库500道含完整答案(必刷)
- 招村干部笔试试题及答案
- 尼安德特人基因解码-洞察及研究
- 2025年广州市海珠区华洲街道招聘雇员(4人)笔试备考试题含答案详解(综合题)
- 电能质量在线监测装置试验报告(二)2025
- 中医护理健康教育课件
- 热射病护理病例讨论
- 2025年广东省中考历史试题卷(含答案详解)
- 2025年企业数字化转型管理能力考试题及答案
- 设备隐患排查培训
- ICU保护性约束护理
- 2025年全国新高考II卷高考全国二卷真题英语试卷(真题+答案)
- 中国耳背式助听器项目创业计划书
评论
0/150
提交评论