% 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
%>
|
|
| 关于溧阳市中小学(幼儿园)教师学历进修的有关规定
|
|
|
各中小学(幼儿园)、直属单位: 为进一步完善我市教师学历(学位)进修工作的管理,加快我市教师学历(学位)提升步伐,全面提高教师素质,根据《教师法》、《常州市中小学教师队伍建设十一五规划》,结合我市师资队伍建设的现状,特提出以下若干规定: 一、根据省市有关要求,近阶段我市幼儿园、小学、初中、高中(含职高)专任教师学历合格率应分别达90%、98%、95%、85%以上。农村小学教师具有专科及以上学历的比例达70%,城区小学教师具有专科及以上学历的比例达90%;农村初中教师具有本科及以上学历的比例达60%,城区初中教师具有本科及以上学历的比例达90%;高中教师具有研究生学历的比例达5%,中等职业学校的“双师型”教师比例达50%以上。 二、教师学历(学位)进修的专业必须与所任教的专业相同(相近)或与学校教育教学工作需要相一致;报考硕士及以上学历(学位)的,原则上普通中小学教师和职业学校文化课教师进修教育硕士,职业学校专业课教师可进修工程硕士。 三、教师学历(学位)进修的形式原则上须选择在岗不脱产学习、授课时间集中在寒(暑)假的进修形式,特殊情况由学校和局审批。进修人员必须认真完成所在岗位工作任务、履行相应的工作职责,正确处理工学关系。进修硕士以上学历(学位)的教师,在取得入学资格后必须与所在单位、市教育局签署“溧阳市中小学(幼儿园)教师在职攻读硕士及以上学历(学位)协议书”(见附件)。 四、中小学教师进修相应类别的合格学历、城区小学教师进修专科学历、城区初中教师进修本科学历不实行补贴。农村小学(幼儿园)教师进修专科以及本科学历、城区小学(幼儿园)教师和农村初中教师进修本科学历实行不低于进修经费(含学费、报名费、教材资料费、论文答辩费)三分之一的一次性奖励,奖励经费在进修结束后由教师凭毕业证书向所在学校申请。硕士研究生学历(学位)的进修经费由局、学校、教师本人合理分担,学费由局承担50%,学校和教师各承担25%,其他学习费用(入学考试报名费、入学辅导费、论文答辩费、交通费、住宿费)原则上由学校和教师本人各承担50%。经费由教师在进修结束后凭毕业证书(学位证书)、与学校和局签署的进修协议书、有效票据向所在学校申请。重复参加同一层次的学历(学位)进修,只享受一次有关奖励和补贴。 五、进修本科及以上学历的教师自获取学历(学位)起,必须在我市教育系统服务五年及以上。在规定的五年服务期内离开我市教育系统,进修人员须按服务一年递减20%的额度偿还所在单位及教育局提供的奖励和补贴。 六、进修超过规定时限的教师原则上不得再享受奖励经费,超过时限部分的学费、差旅费、住宿费等经费全部由教师本人承担,且单位不予提供时间保障。 七、进修经费处理办法自公布之日起实施。
2007年11月2日
|
|
|
双击自动滚屏
|
||||
|
||||
|
   
|
||||
|
溧阳市第三中学 版权所有 © 2001-2007 |