<% 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 %> 溧阳市第三中学

　　

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

关于我们

　
   

溧阳市第三中学成功举办第六届文化周活动

　

 

   

9月26-30日，在第57个国庆来临之际，溧阳市第三中学成功举办了第六届文化周活动。

文化周活动包括征文、摄影展、书法展、主题班会、演讲赛、革命歌曲大奖赛、器乐表演、现场绘画观摩以及体育田径赛等九项系列活动，为全体师生提供了一系列丰富多彩的展示才华的大舞台。通过本次活动，进一步推进了学校的素质教育，全面展示了师生积极向上的精神风貌，让学生领略到学习的愉快、生活的多彩，体会到成功的喜悦。

近年来，三中在上级领导的关心下、在社会各界的大力支持下，通过全体师生的共同努力，实现了创建省三星级高中的大跨越、实现教学质量和高考本科达线率的大飞越。如今学校又把“坚持科学发展观，凝心聚力、同舟共济、奋力前行、苦干三年，把市三中建设成为江苏省四星级高中”做为新的奋斗目标。

我们相信，三中的明天会更美好！

“弘扬长征精神，立志成才报国” 征文比赛

获 奖 名 单

经溧阳市第三中学第六届文化周组织委员会征文比赛终评组最后评审认定，各组征文获奖名单如下：

初 中 组

一等奖   张　云　初二（3）班

二等奖   黄　荣　初二（1）班　　管晶晶　初一（1）班

         潘　东　初一（3）班

三等奖   冯　婷　初一（2）班　　狄　菲　初一（3）班

         潘丽静　初一（2）班　　潘颖娟　初一（1）班

         张　静　初二（2）班　　潘　纯　初二（2）班

         赵　越　初二（1）班　　郑志姣　初二（3）班

 

高 中 组

一等奖　狄丽美　高一（08）班　　吴　琳　高二（06）班

二等奖　邱　娟　高二（15）班　　徐梦洁　高二（14）班

杨　娟　高二（08）班　　姚　萍　高二（10）班

金文捷　高二（11）班　　史铮源　高一（01）班

三等奖　董　亮　高二（05）班　　陈　腾　高二（02）班

王梦皎　高一（03）班　　潘文君　高一（04）班

刘　欣　高一（09）班　　杨茁琳　高一（10）班

郑秋月　高一（11）班　　吴　蕾　高一（05）班

冯亚捷　高一（12）班　　薛无暇　高二（07）班

陈碧婷　高二（16）班　　钱敏杰　高二（16）班


溧阳市第三中学第六届文化周摄影比赛

获 奖 名 单

 

摄影类

 

一等奖　王　涛　高二（15）班　　王　剑　高三（02）班

季雯雯　高一（03）班　　施　涵　高一（12）班　

二等奖　姜　磊　高二（16）班　　金家鑫　高一（12）班

　　　　宣　慧　高一（01）班　　葛嘉璐　高一（12）班

三等奖　滕彦頻　高二（04）班　　丁　波　高三（02）班

　　　　陈　佳　高二（13）班　　王韵娇　高一（12）班

　　　　李姗姗　高一（13）班　　姚云鸿　高二（14）班

　　　　史　蕰　高一（12）班　　周梦婕　高一（06）班

　　　　吴　姗　高一（12）班　　赵　霞　高一（12）班

　　　　席　霞　高一（01）班　　钱　伟　高三（10）班


溧阳市第三中学第六届文化周书法比赛

获 奖 名 单

 

书法软笔类

一等奖　李姝姝　高二13

二等奖　黄　振　高二15

三等奖　吕　烨　高一11

 

书法硬笔类

一等奖　王心怡　高一11　　熊　晓　高二14

管晶晶　初一01　　黄　晶　高一06

虞丹倩　高一11　　吕　烨　高一11

二等奖　潘　晨　高二16　　夏　清　初二03

余　娜　高二15　　潘　科　高一06

潘　捷　初一03　　唐　倩　初一03

黄　姝　高二04

三等奖　席　霞　高一01　　谢文韬　高二04

王韵娇　高一12　　金　杰　初二03

张　静　初二02　　朱　颖　高二01


“长征精神与我们同行”演讲比赛成绩通报

获 奖 名 单

 

一等奖　高一（05）　樊　霞

二等奖　高二（05）　董　亮　　初三（01）　潘　裕

三等奖　高一（12）　宋　静　　高一（12）　王韵娇

初一（03） 　狄　菲

  优秀奖　初二（01）　赵靖雯　　初一（01）　周　洁

初二（03）　张　云　　高一（05）　吴　彪

初三（03）　郑思思　　高二（08）　吴玉香

高一（03）　单　柯

 


溧阳市第三中学第六届文化周革命歌曲大奖赛

获 奖 名 单

 

一等奖　杨孝帆　高三（13）班

二等奖　马　超　高三（13）班　　李　程　高三（12）班

三等奖　宋娇娇　高二（15）班　　孙　静　初二（01）班

　　　　王立新　初一（03）班　　虞雪松　高一（12）班

　　　　周兆玑　高二（14）班　　殷雯轩　高二（16）班

　　　　吕滨花　初三（03）班　　费　方　高一（11）班

 

溧阳市第三中学第六届文化周绘画观摩活动

获 奖 名 单

一等奖　高一（11）班　周明洁　　高二（16）班　黄　艳

　　　　　高三（12）班　蒋鸣华

 

　二等奖　高一（12）班　王　蓉　　高一（12）班　钱　玲

　　　　　高一（12）班　吕　烨　　高二（13）班　丁嘉伟

　　　　　高二（16）班　周文飞　　高二（13）班　孔胜男

　　　　　高三（12）班　杨梦云　　高三（13）班　蒋　超

　　　　　高三（13）班　王　琪

　　　　　

　三等奖　高一（12）班　徐丹华　　高一（12）班　虞云娟

　　高一（12）班　李　还　　高一（11）班　吕剑磊

　　高一（12）班　宋春伶　　高一（12）班　吴　珊

　　　　　高二（13）班　黄　炎　　高二（16）班　王　娜

　　　　　高二（13）班　张汇康　　高二（16）班　宋　沪

　　　　　高二（13）班　葛　潇　　高二（14）班　虞国鹏

　　高三（12）班　林颖丹　　高三（12）班　宋　宾

　　高三（08）班　张　茜　　高三（13）班　姚　静

　　高三（13）班　陈秋月　　高三（13）班　王玲燕

　　高三（14）班　芮一璠

OK

    


          

　

　

　

　

    

    
 
 

　

双击自动滚屏
 
 

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

 

   
  

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


<% end if end if%>