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

　　

站点导航

　

关于我们

　

欢迎报考溧阳市第三中学

　

一、优越的地理位置，一流的办学条件

溧阳市第三中学是溧阳市区三星级高中之一，占地111亩，50余个班级，2800余名学生，学校地处南片经济开发区内，校门口6路公交车直达市中心繁华区，住宿、走读都十分便利。学校建有我市唯一的现代化学生活动中心，教室全部装备多媒体，互联网接口遍及师生学习的各个场所，8个频道的双向闭路电视系统，8万余册藏书的图书馆，大规模电子阅览室和艺术阅览区，数十种文体活动项目使课余生活丰富多彩。

二、先进的办学理念，优秀的教师队伍

学校以“学生的健康成长与未来发展高于一切”为办学宗旨，注重学生“学会发展”的探索与实践。省特级教师，常州市学科带头人，溧阳市“四类”优秀教师，常州市优秀班主任，优秀教师计30余名，高中教师本科率达99%。在2004年常州市高三教师教学能力测试中，我校语文、数学、政治三大学科成绩列我市高中第2位，英语第3位，化学第4位。

三、多元化的发展模式，丰硕的教育成果

市三中实现以普通高中教育与艺术教育并重的教育特色。04年高考本科上线115人，完成市本科目标的107%；05年高考本科上线206人，完成市本科目标257%，连续两年本科指标完成率居全市第一。

四、2006年招生计划：

2006年计划招生12个班高一新生，其中二个艺术专业班。

五、2005—2006学年第一学期期末统考高中各年级优秀学生进步情况

名次	时段	高一	高二	高三
全市前1600名	中考入学	5	4	8
	06年1月	96	99	67
	06年“一模”			73

六、优秀学生奖励与助学金：

*中考成绩全市前800名以上并被三中录取，奖励助学金2000元以上。

*就读三中期间，学科成绩、竞赛成绩优秀者奖励助学金300—1000元。

*特困生减免一次性兑现。

*若干个勤工俭学岗位，力所能及的劳动，困难生助学金按月发放。

七、咨询电话：7295510 7665801 7789886

7665817 7158368 7158358

网址：http://www.lysz.com

　

　

　

　

　

　

双击自动滚屏

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

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

<% end if end if%>