<% 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")%>

　　

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

关于我们

　
   

我校课题获得常州市“十五”现代教育技术研究课题评比一等奖

　

    溧阳市第三中学承担常州市“十五”现代教育技术课题《校本信息资源库建设的实践与研究》，经过三年的有效探索，2005年11月经常州市专家组现场鉴定，予以结题，并对我校所取得的成绩给予充分的肯定。认为该课题组成员在先进的教育思想、教育理论指导下，努力探索校本信息资源库建设的途径及其在教育教学中的运用，学科教师的教育科研能力和信息技术应用能力得到有效提高，学生的主体精神和创新意识得到初步培养，课题研究取得了一定的成绩，该课题经常州市课题鉴定组评审，被评为常州市一等奖。现学校将该课题进行重新优化设计，并命名为《专题学习网络资源环境建设与应用研究》，已向上级申报“十一五”现代教育技术课题。（附获奖课题名单）

 

附件一：常州市“十五”现代教育技术研究获奖课题名单(排名不分先后)

奖项

学    校

课        题

课题负责人

一          等         奖

金坛市河头中心小学

提供丰富的网络资源 创设最佳学习环境探究新型教学模式

钱国义  庄素芳

金坛市华城实验小学

利用网络资源进行专题学习提高语文素养

孟湘辉

溧阳市文化小学

信息技术与课程有效整合  提高学生数字化学习能力

马志刚

溧阳市戴埠中心小学

信息技术与课程整合，建立高度交互的教学模式

任祥春  潘民华

溧阳市第三中学

校本信息资源库建设的实践与研究

石士国

武进区郑陆中心小学

网络环境下构建以学生为主体的自主性学习模式的研究

张惠芬

武进区湟里中心小学

运用现代信息技术，优化课堂教学的研究

戴敖方

武进区横林实验小学

以人为本的校园网络文化的建设与应用的研究

孙波  蔡琴燕

江苏省前黄高级中学

基于网络环境的地理校本课程的开发研究

刘长凤 

武进区湟里高级中学

加强信息技术与课程的整合，改变课堂教学模式，提高学生的  学习能力

吴国庆

常州市怀德苑小学

信息技术与课程有效整合，培养学生获取信息、运用信息，提高学习能力的研究

管平华

常州市戚区幼儿园

应用现代教育技术，提高幼儿在实验绘画中的创新能力

吴    忠

二 

等         奖

金坛市第五中学

提供丰富的网络资源，创设最佳学习环境，探究新型教学模式

于忠东

金坛市河滨小学

信息技术与小学学科整合 构建新型课堂教学模式

沈 伟

金坛市华城实验幼儿园

信息技术环境下，充分发挥教师的主导作用创意性教学研究

陆月兰

金坛市朝阳小学

信息技术与课程有效整合，培养学生获取信息、运用信息、提高学习能力的研究

虞国平

金坛市第四中学

历史教学中运用信息技术提供虚拟体验性学习环境，培养学生创新能力

许春凤

溧阳市南渡高级中学

运用现代教育技术，推动史地教学模式改革

郑宇明 李汉林

溧阳市西平小学

优化网络资源，构建网络化小学课堂教学模式

房志荣  崔玉琴

溧阳市别桥中心小学

运用信息技术提高活动课教学质量

童丽萍  陈强华

溧阳市竹箦中心小学

现代信息技术与学科教学整合的教学模式的研究

彭 飞 孙周平

武进区南夏墅中心小学

基于网络环境下的"问题--探究"学习模式的研究

周小芬  周　勇

武进区崔桥小学

运用信息技术，提高学生信息素养的研究

徐国荣

武进区横林中心小学

网络环境下作文教学的研究

费美娟

武进区礼嘉中心小学

基于信息技术培养学生自主学习能力的研究

姜闻天

江苏省前黄高级中学

培养中学生信息素养的研究

吴忠波  赵克己

江苏省奔牛高级中学

数字化校园环境下教学活动组织策略的研究

翟建刚

江苏省武进西林职业高级中学

运用网络技术建立以学生为主体的协作性学习模式的研究

吴仁玉

武进区湖塘桥初级中学

信息技术环境下互动型教学策略的探究

谢建华

武进区洛阳中学

网络环境下历史学科研究性学习的研究

严志才

常州市安家中学

数学新课程与信息技术整合的研究

莫萍春  沈建明

常州市吕墅小学

信息技术与课程结合，建立交互的教学过程

周明华

常州市潞城中学

通过信息技术教学，培养学生自主学习的能力

毛优丽

               

    
 
 

　

双击自动滚屏
 
 

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

 

   
  

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


<% end if end if%>