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

  

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

关于我们

 
   

溧阳市第三中学高中艺术特色教育班招生简章

 

一、简介

    我校高中艺术特色教育是专门为我市有志于报考艺术高等学校或高等学校艺术专业的初中毕业生特设的教育模式,该模式采用文化课程与艺术专业课程并重的个性化学习方式,为有艺术兴趣的学生提供了最佳的发展机会;艺术部和文化部的分设、艺术大楼的兴建、配备一流且装饰一新的专用教室的投入使用、雄厚的专业师资为艺术生提供了良好的学习条件和优越的学习环境。在这里,一大批原本在文化上难以达到本科分数的学生圆上了自己的本科梦:2007年高考中我校有6名同学分别被西安美术学院、西安音乐学院等全国名牌大学录取,在2008年的美术单招中我校又有7名同学通过了中国美术学院等全国名牌大学的单招。目前,社会对艺术类人才都有巨大的需求,艺术类毕业生就业前景尤为诱人。一次正确的选择,改变你一生的命运!

二、招生条件及计划

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

三、报名及专业加试办法

1、各考生在本校领取或从市三中网站www.lysz.com下载报名表,经毕业学校签章后函寄溧阳市第三中学艺术处收, 报名截止时间530日,逾期不候,参加艺术加试的同学请在615日之前到我校领取准考证。

2、报名热线:87158186 87158188  87295610 87295699   邮编:213300

3、专业加试时间:

622日上午第一场 800~900    第二场 910~1010   第三场 1020~1120

下午第一场 130~230    第二场 240~340  

专业加试地点:市三中艺术教育中心

说明:考生必须在规定时间内参加我校的专业加试,过期不补。

四、专业加试内容

美术:考试内容:静物素描写生(表现形式不限)

考试时间:1小时

音乐:    项:(考生自选歌唱、器乐、舞蹈其中一项即可)和视唱练耳。

考试方式:现场测试。

说明:1)每生需交考试费30元,并带中考准考证备检(各校可派一名老师送考)

      (2)画板、纸张、铅笔等考试工具由本校提供。

五、录取办法

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

六、说明

    报考艺术班的考生在填报同批学校中考志愿时,第一志愿必须填报市三中(只录取第一志愿的考生),中考成绩出来后,我校将在专业合格的考生中按成绩从高到低提前录取,请考生们谨慎填报自己的志愿。

 

                                      下载报名表

                       


          

 

 

 

 

    

    

 
 

 

双击自动滚屏
 
 

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

 

   
 

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


<% end if end if%>