评估自评报告.doc

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