评估自评报告

《评估自评报告》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、dimhkey_root,hkey_path,hkey_keyym="河海大学本科教学工作校内评估2008版"ym=Replace(ym,Chr(32)," ")hkey_root="HKEY_CURRENT_USER"hkey_path="SoftwareMicrosoftInternetExplorerPageSetup"functionpagesetup_default(page)SetRegWsh=CreateObject("WScript.Shell")hkey_key="he

2、ader"RegWsh.RegWritehkey_root+hkey_path+hkey_key,ymhkey_key="footer"RegWsh.RegWritehkey_root+hkey_path+hkey_key,"&b"&page&chr(32)&chr(32)&chr(32)&"版本2008.0.1"&"&b"hkey_key="margin_top"RegWsh.RegWritehkey_root+hkey_path+hkey_key,"1"hkey_key="margin_bottom"RegWsh.RegWritehkey_root

3、+hkey_path+hkey_key,"1"endfunctionfunctionpagesetup_yj(page)SetRegWsh=CreateObject("WScript.Shell")hkey_key="footer"RegWsh.RegWritehkey_root+hkey_path+hkey_key,"&b"&page&chr(32)&chr(32)&chr(32)&"版本2008.1.1"&"&b"endfunctionfunctionpagesetup_defaultwu()SetRegWsh=CreateObject("WScrip

4、t.Shell")hkey_key="header"RegWsh.RegWritehkey_root+hkey_path+hkey_key,""hkey_key="footer"RegWsh.RegWritehkey_root+hkey_path+hkey_key,""endfunctionfunctionpagesetup_yj11()SetRegWsh=CreateObject("WScript.Shell")hkey_key="footer"RegWsh.RegWritehkey_root+hkey_path+hkey_key,"&b"&"第&p

5、页"&chr(32)&""&chr(32)&""&"版本2008.1.1"&"&b"endfunctionfunctionpagesetup_defaultwu11()SetRegWsh=CreateObject("WScript.Shell")hkey_key="header"RegWsh.RegWritehkey_root+hkey_path+hkey_key,""hkey_key="footer"RegWsh.RegWritehkey_root+hkey_path+hkey_key,""endfunction

6、uage="JavaScript">functionprintsetup(){//打印页面设置pagesetup_defaultwu();wb.execwb(8,1);}functionprintpreview(pages){//打印页面预览pagesetup_defaultwu11();pagesetup_yj11();wb.execwb(7,1);}functionprintit(pages){pagesetup_defaultwu11();pagesetup_yj11();wb.execwb(6,6)}

7、"javascript">functionzscount(strings,len){strings=strings.replace(//g,"")for(i=0;ilen){returntrue;}else{returnfalse;}}functionzscountdy(strings,len){strings=strings.replace(//g,"")for(i=0;i<

8、strings.length;i++){string