% 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
%>
|
|
| 市三中2007高中艺术特色教育招生简章
|
|
|
溧阳市第三中学是溧阳市区三星级高中之一,占地近120亩,50余个班级,2800多名学生。学校地处南片经济开发区内,校门口6路车直达市中心繁华区,交通便利。学校以“学生的健康成长与末来发展高于一切”为办学宗旨,注重学生“学会发展”的探索与实践。学校现有常州市学科带头人、溧阳市“四类”优秀教师、常州市优秀班主任等各类优秀教师34名,高中教师本科率达99%。 多年来,市三中实现以普通高中教育与艺术教育并重的教育特色。04年起连续三年本科指标完成率居全市第一。07届高三综合考试合格率及08届高中信息技术等级考试双合格率均居全市之首。 ◆ 2007年计划招生14个班高一新生,其中二个艺术专业班。 ◆ 优秀学生奖励与助学金: ·中考成绩全市前800名以上并被三中录取,奖励助学金2000元以上。 ·就读三中期间,学科成绩、竞赛成绩优秀者奖励助学金300-1000元。 ·特困生减免一次性兑现。 ·若干个勤工俭学岗位,力所能及的劳动,困难生助学金按月发放。 ◆ 咨询电话:0519-7295510 7295610 7295699 7865801 7789886 7665817 7158368 ◆ 网 址:http://www.lysz.com 市三中高中艺术特色教育班招生简章 一、简介 我校高中艺术特色教育是专门为我市有志于报考艺术高等学校或高等学校艺术专业的初中毕业生特设的教育模式,该模式采用文化课程与艺术专业课程并重的个性化学习方式,为学生提供了优越的学习条件和最佳的发展机会,三年后80%以上的学生可跨入高等学校艺术本科专业学习。因此,如果你艺术专业高考合格,录取本科院校将更轻松。高等院校艺术类本科专业有动画设计、平面设计、装潢设计、美术设计、服装设计、影视艺术等,几乎所有行业对艺术类人才都有巨大的需求,艺术类毕业生就业前景尤为诱人。 二、招生条件及计划 凡对艺术领域有一定的兴趣爱好,文化成绩中等以上,有志于进一步发展的我市及外市初三毕业生均可报考。07年秋季计划招收108名学生,其中美术80%,音乐20%。 三、报名及专业加试办法 1、 各考生在本校领取或从市三中网站www.lysz.com下载报名表,经毕业学校签章后函寄溧阳市第三中学招生办公室收,也可从本页下部剪下报名简表直接填写报名,报名截止时间5月30日。 2、报名热线:7295426 7665817 7789886 7158368 邮编:213300。 3、专业加试时间:6月22日上午8:00至下午5:00 地点:市三中学生活动中心。 四、专业加试内容(各校可派一名老师送考,每生需交考试费20元,并带中考准考证备检) 美术:现场绘画,时间1小时。 音乐:现场测试,歌唱、器乐、舞蹈、视唱练耳均可。 五、录取办法 考生专业成绩考后第三天通知到初中毕业学校,合格且中考文化成绩达到我市普高最低控制线以上,由市招办划定分数线,依文化成绩从高分到低分择优录取。 六、说明 报考艺术班的考生在填报同批学校中考志愿时,第一志愿必须填报市三中。
|
|
|
双击自动滚屏
|
||||
|
||||
|
   
|
||||
|
溧阳市第三中学 版权所有 © 2001-2006 |