<% 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年,是三中历史上不平凡的一年,是三中事业取得辉煌进步的一年。中考、高考取得历史性突破,本科上线206人,本科完成率高居全市榜首,实现了弱基础向好成绩的大跨越。几个月后,三中又被省教育厅确认为江苏省三星级高中,继而又被评为常州市德育工作先进学校、常州市艺术教育特色学校,倾注三中人汗水和心血的梦想终于成真。我们创造并见证了这一历史性的辉煌,我们也正享受着这一辉煌带来的荣耀和尊严,因而我们有责任让三中站在新的起点去展望更美好的未来。

2006年一开局,学校在十一·五规划引领下,下决心从最基础工作抓起,着眼于学生的健康成长和未来发展,着手于培养提高学生的基本素养,全面稳健地推进各项管理举措:在德育方面,立足做一个“有教养的人”来展开教育工作;在教学方面,下苦功实现“每一个学生都有进步”,扎扎实实做大“优秀学生群体”;在常规管理方面,坚持做好“小事”、做细“过程”。为此,学校号召全校师生要珍惜来之不易的良好局面,用真诚的努力来实现自身的进步,从而实现学校的新跨越。

在当前,我们尤其要强化通过成绩进步为班级、为学校争光添彩的意识,树正气、办实事,打造脚踏实地、负重奋进、荣辱与共的学校精神。学校要求每一位同学要以三中为豪,自觉佩带胸卡、上课认真守纪、课间文明有序、谈吐举止温文尔雅、待人接物谦恭、真挚地怀有一颗孝心爱心善心;每一期青年文明岗要以身作则,负责到底;每一个教职工要率先垂范、争创业绩。大家行动起来了,我们的学校就充满活力;大家严格起来了,我们的校园就洋溢正气;大家争先抢位了,我们的学校就有不竭的发展动力和无限美好的发展前景。一切的一切、关键的关键就在于我们是不是真抓实干?我们是不是不遗余力地干?我们是不是持之以恒地干?

    老师们、同学们,三中正当力,我们还年轻。在充满竞争的现实中,不进则退,我们要清晰地认识到这一点!我们要抢抓机遇、真抓实干、只争朝夕、因势而上,为把市三中建设成具有一流办学条件、鲜明办学特色、享有良好办学声誉的江苏省品牌高中,为我们自己的美好明天而努力奋斗!

    


          

 

 

 

 

    

    

 
 

 

双击自动滚屏
 
 

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

 

   
 

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


<% end if end if%>