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

　　

站点导航

　

关于我们

　

溧阳市第三中学高中招生简章
溧阳市第三中学最具发展潜力的学校——你无悔的选择！ ² 优越的区位溧阳市第三中学位居溧阳文化区，西倚燕山风景区，紧傍溧阳汽车站，为我校开通的6路公交车连接汽车总站和汽车东站，横贯市区，方便了寄宿生和通学生的学习和生活。校园建筑新颖别致，石刻独具匠心，绿化葱郁葳蕤，成为“山水城市——溧阳”的名片之一。 ² 优良的设施我校拥有溧阳市唯一的艺术教学大楼、现代化学生活动中心。所有教室都装备了多媒体,互联网接口遍及师生学习的各个场所。8个频道的双向闭路电视系统，10万余册藏书的图书馆，大规模电子阅览室和艺术阅览区，体育馆和标准的400米塑胶跑道，生活区配有1个浴室和4个学生食堂及公寓式宿舍，先进的教学和生活设施为学生提供了优越的条件。 ² 优秀的师资 “育人是天职”是我校教师的人生坐标。高中教师本科率达100%，5人具有硕士研究生学历。现有常州市学科带头人、溧阳市“四类”优秀教师、常州市优秀班主任等各类优秀教师52人。10多人被评为市级以上优秀教育工作者。 ² 优异的成绩 “桃李不言，下自成蹊”。通过教师和学生的共同努力，04年、05年、06年、07年连续四年高考本科指标完成率居全市第一；07届高考本科上线人数达214人；08届高三学业水平测试合格率居全市第三。 ² 优美的明天 2008年计划高一招收14个班级，其中二个艺术专业班。 ² 优厚的助学奖学金中考成绩居全市前800名被我校录取，奖励奖学金3000元。就读三中期间，学科成绩、竞赛成绩优秀者奖励奖学金300-1000元助学金希望之星助学金；勤工俭学助学金；市三中助学金；市总工会助学金；团市委助学金。 ² 咨询电话 0519-87295510 87295610 87295630 87295699 网址：http://www.lysz.com

　

双击自动滚屏

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

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

<% end if end if%>