溧阳市第三中学——<%=rs("topic")%>

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

　　

站点导航

　

关于我们

　

溧阳市第三中学校徽征集揭晓

　

我校是江苏省三星级高中，多年来学校始终坚持文化与艺术并重的办学之路，取得了丰硕的成果。为了达到进一步聚人心、促发展、树形象，把学校建设成为注重实践，崇尚创新，富有特色的一流名校，我校决定在师生中公开征集学校徽标设计方案。

此次校徽征集活动受到了学校领导的高度关注和全体师生的大力支持，广大师生积极参与、踊跃投稿，截至10月25日，共收到校徽设计方案近120套。在此，学校对积极参与此次校徽征集活动的广大师生表示衷心的感谢！并希望广大师生在今后的工作、学习中，一如既往，关心、支持学校的发展大计。(后附获奖名单)

标志说明

标志由汉字“三中”抽象变形组合成汉字“冲”：既点明校名，又借“冲”的含意表达学校积极进取、奋力拼搏的精神风貌。

汉字“三中”有机组合成一个统一体：暗喻三中人同心协力，共求发展；抽象化的手法比喻学校不拘成规，寻求突破。

标志设计简洁明了，通俗易懂。造型新颖，充满动感与活力，具有强烈的视觉冲击。

　

经过学校组织专人认真评选，现将评选结果公布如下：

一等奖

办公室　方文光

二等奖

美术组　桂德彪　　　高三16　王　娜　　　科研处　陆朝华

三等奖

美术组　马小飞　　　地理组　张立平　　　数学组　袁彩霞

初三 2　彭　辰　　　美术组　程　琳　　　高一14　孙　文

鼓励奖

地理组　严小兰　　信息组　史文俊　　高三14　张　超　　数学组　尹夕根

高三12　潘　波　　历史组　阮　蓉　　初三 3　夏　清　　高三12　赵佳运

后勤组　陈宇平　　高二 3　冯　乐　　高三14　狄伟新　　高三16　兰俊杰

高一14　陶乐乐　　高三15　潘　峰　　高二12　赵　霞　　高三13　夏黎娟

高三14　张　彬　　高二11　李芝臣　　高二11　汤　叶　　高二11　徐旻婕

　

溧阳市第三中学

2007年10月30日

　

　

　

　

　

双击自动滚屏

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

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

<% end if end if%>