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

  

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

关于我们

 
   

市三中2006高中艺术特色教育招生简章

 

一、简介

    我校高中艺术特色教育是专门为我市有志于报考艺术高等院校或高等学校艺术专业的初中毕业生特设的教育模式,该模式采用文化课程与艺术专业课程并重的个性化学习方式,为学生提供了优越的学习条件和最佳的发展机会,三年后80%以上的学生跨入高等院校艺术本科专业学习。05年本二分数线为529分,而音乐专业文化本科线为320分,美术专业文化本科线为360分,因此,如果你艺术专业高考合格,录取本科院校更轻松。高等院校艺术类本科专业有动画设计、平面设计、装璜设计、美术设计、服装设计、影视艺术等。毕业生就业前景尤为诱人,几乎所有行业对艺术类人才都有巨大的需求。

二、招生条件及计划

    凡对艺术领域有一定的兴趣爱好,文化成绩中等以上,有志于进一步发展的我市及外市初三毕业生均可报考。06年秋季计划招收108名学生,其中美术80%,音乐20%

三、报名及专业加试办法

1、各考生在本校领取或从本网页下部下载报名表,经毕业学校签章后函寄溧阳市第三中学招生办公室收,报名截止时间为530日。

邮编:213300;报名热线:7295426766581771581887158368

2、专业加试时间:62122日上午800至下午500,地点:市三中学生活动中心。

四、专业加试内容(各校可派一名老师送考,每生需交验中考“准考证”,收取考试费20元。)

美术:现场绘画,时间1小时。

音乐:现场测试(歌唱、器乐、舞蹈、视唱练耳均可)

五、录取办法

    考生专业成绩(考后第三天通知到初中毕业学校)合格,且中考文化成绩达到我市普高最低控制线(05年约510分)以上,由市招办划定分数线,依文化成绩从高分到低分择优录取。

六、说明

    报考艺术班的考生在填报同批学校中考志愿时,第一志愿必须填报市三中,并在服从栏内填写“艺术”字样。

 

                                      下载报名表

                       


          

 

 

 

 

    

    

 
 

 

双击自动滚屏
 
 

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

 

   
 

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


<% end if end if%>