<% option explicit %> <% 'on error resume next if trim(Application("ConnectionString"))="" or trim(Application("ConnectionString"))<>"driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("bvnews.asp") & ";uid=;PWD=;" then Application("ConnectionString")="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("bvnews.asp") & ";uid=;PWD=;" end if Function LinkURLs(strInput) Dim iCurrentLocation Dim iLinkStart Dim iLinkEnd Dim strLinkText Dim strOutPut strLinkText="" strOutput="" iCurrentLocation=1 Do while Instr(iCurrentLocation,strInput,"[url]",1)<>0 iLinkStart=Instr(iCurrentLocation,strInput,"[url]",1) iLinkEnd=Instr(iCurrentLocation+1,strInput,"[/url]",1) If iLinkEnd=0 then iLinkEnd=len(strINput)+1 select case Mid(strInput,iLinkEnd-1,1) case ".","!","?" iLinkEnd=iLinkEnd-1 end select stroutput=strOutput & Mid(strInput,iCurrentLocation,iLinkStart-iCurrentLocation) strLinkText=replace(Mid(strInput,iLinkStart+5,iLinkEnd-iLinkStart-5),"[/url]","") strOutput=strOutput & "" & strLinkText & "" iCurrentLocation=iLinkEnd Loop strOutput=strOutput & Mid(strInput,iCurrentLocation) LinkURLs=replace(strOutput,"[/url]","",1,-1,1) End Function Function LinkIMGs(strInput) Dim iCurrentLocation Dim iLinkStart Dim iLinkEnd Dim strLinkText Dim strOutPut strLinkText="" strOutput="" iCurrentLocation=1 Do while Instr(iCurrentLocation,strInput,"[img]",1)<>0 iLinkStart=Instr(iCurrentLocation,strInput,"[img]",1) iLinkEnd=Instr(iCurrentLocation+1,strInput,"[/img]",1) If iLinkEnd=0 then iLinkEnd=len(strINput)+1 select case Mid(strInput,iLinkEnd-1,1) case ".","!","?" iLinkEnd=iLinkEnd-1 end select stroutput=strOutput & Mid(strInput,iCurrentLocation,iLinkStart-iCurrentLocation) strLinkText=replace(Mid(strInput,iLinkStart+5,iLinkEnd-iLinkStart-5),"[/img]","") strOutput=strOutput & "" iCurrentLocation=iLinkEnd Loop strOutput=strOutput & Mid(strInput,iCurrentLocation) LinkIMGs=replace(strOutput,"[/img]","",1,-1,1) End Function Function LinkEmail(strInput) Dim iCurrentLocation Dim iLinkStart Dim iLinkEnd Dim strLinkText Dim strOutPut strLinkText="" strOutput="" iCurrentLocation=1 Do while Instr(iCurrentLocation,strInput,"[email]",1)<>0 iLinkStart=Instr(iCurrentLocation,strInput,"[email]",1) iLinkEnd=Instr(iCurrentLocation+1,strInput,"[/email]",1) If iLinkEnd=0 then iLinkEnd=len(strINput)+1 select case Mid(strInput,iLinkEnd-1,1) case ".","!","?" iLinkEnd=iLinkEnd-1 end select stroutput=strOutput & Mid(strInput,iCurrentLocation,iLinkStart-iCurrentLocation) strLinkText=replace(Mid(strInput,iLinkStart+7,iLinkEnd-iLinkStart-7),"[/email]","") strOutput=strOutput & "" & strLinkText & "" iCurrentLocation=iLinkEnd Loop strOutput=strOutput & Mid(strInput,iCurrentLocation) LinkEmail=replace(strOutput,"[/email]","",1,-1,1) End Function function encrypt(ecode) Dim texts dim i for i=1 to len(ecode) texts=texts & chr(asc(mid(ecode,i,1))+i) next encrypt = texts end function function UBB(str) str=LinkURLs(str) str=LinkIMGs(str) str=LinkEmail(str) UBB=str end function %> <% dim sql,rs,rsc,thedate dim reviewable,aboutnews set rs=server.createobject("adodb.recordset") '查找显示相关新闻数目及是否开放评论权限 rs.open "select * from news_parameter where parameterid=1",conn,1,1 if not rs.bof and not rs.eof then aboutnews=rs("aboutnews") if rs("reviewable")=1 then reviewable=1 else reviewable=0 end if else aboutnews=5 reviewable=1 end if rs.close set rs=nothing set rs=server.createobject("adodb.recordset") sql="update news set hits=hits+1 where newsid=" & cstr(request("newsid")) conn.execute sql if session("purview")="" then rs.open "select * from news where newsid=" & cstr(request("newsid")) & " and audit=1",conn,1,1 else rs.open "select * from news where newsid=" & cstr(request("newsid")),conn,1,1 end if if err.number <> 0 then response.write "数据库出错" else if rs.bof and rs.eof then rs.close response.write "该新闻不存在或未经过审核" else %> 溧阳市第三中学——<%=rs("topic")%>

  

站点导航   设置首页 收藏站点

关于我们

 
   

关于溧阳市中小学(幼儿园)教师学历进修的有关规定

 

各中小学(幼儿园)、直属单位:

为进一步完善我市教师学历(学位)进修工作的管理,加快我市教师学历(学位)提升步伐,全面提高教师素质,根据《教师法》、《常州市中小学教师队伍建设十一五规划》,结合我市师资队伍建设的现状,特提出以下若干规定:

一、根据省市有关要求,近阶段我市幼儿园、小学、初中、高中(含职高)专任教师学历合格率应分别达90%98%95%85%以上。农村小学教师具有专科及以上学历的比例达70%,城区小学教师具有专科及以上学历的比例达90%;农村初中教师具有本科及以上学历的比例达60%,城区初中教师具有本科及以上学历的比例达90%;高中教师具有研究生学历的比例达5%,中等职业学校的“双师型”教师比例达50%以上。

二、教师学历(学位)进修的专业必须与所任教的专业相同(相近)或与学校教育教学工作需要相一致;报考硕士及以上学历(学位)的,原则上普通中小学教师和职业学校文化课教师进修教育硕士,职业学校专业课教师可进修工程硕士。

三、教师学历(学位)进修的形式原则上须选择在岗不脱产学习、授课时间集中在寒(暑)假的进修形式,特殊情况由学校和局审批。进修人员必须认真完成所在岗位工作任务、履行相应的工作职责,正确处理工学关系。进修硕士以上学历(学位)的教师,在取得入学资格后必须与所在单位、市教育局签署“溧阳市中小学(幼儿园)教师在职攻读硕士及以上学历(学位)协议书”(见附件)。

四、中小学教师进修相应类别的合格学历、城区小学教师进修专科学历、城区初中教师进修本科学历不实行补贴。农村小学(幼儿园)教师进修专科以及本科学历、城区小学(幼儿园)教师和农村初中教师进修本科学历实行不低于进修经费(含学费、报名费、教材资料费、论文答辩费)三分之一的一次性奖励,奖励经费在进修结束后由教师凭毕业证书向所在学校申请。硕士研究生学历(学位)的进修经费由局、学校、教师本人合理分担,学费由局承担50%,学校和教师各承担25%,其他学习费用(入学考试报名费、入学辅导费、论文答辩费、交通费、住宿费)原则上由学校和教师本人各承担50%。经费由教师在进修结束后凭毕业证书(学位证书)、与学校和局签署的进修协议书、有效票据向所在学校申请。重复参加同一层次的学历(学位)进修,只享受一次有关奖励和补贴。

五、进修本科及以上学历的教师自获取学历(学位)起,必须在我市教育系统服务五年及以上。在规定的五年服务期内离开我市教育系统,进修人员须按服务一年递减20%的额度偿还所在单位及教育局提供的奖励和补贴。

六、进修超过规定时限的教师原则上不得再享受奖励经费,超过时限部分的学费、差旅费、住宿费等经费全部由教师本人承担,且单位不予提供时间保障。

七、进修经费处理办法自公布之日起实施。

                  


          
                                               
                              溧阳市第三中学

                               2007年11月2日

 

 

 

 

    

    

 
 

 

双击自动滚屏
 
 

---------- 相 关 内 容----------

 

   
 

溧阳市第三中学 版权所有 © 2001-2007
No.2007015


<% end if end if%>