% 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
%>
|
|
| 我校接受江苏省教育评估院专家组的“晋星”现场评估
|
|
|
10月5日、6日由江苏省南通中学校长缪建新、浙江省台州中学校长叶良文、江苏省邗江中学校长徐金才、江苏省赣榆中学校长王其珊、江苏省教科院主任宣丽华一行五人组成的省晋星现场评估专家组,对溧阳市第三中学创建省三星级高中进行为期两天的现场考察评估。 专家组在现场考察评估过程中,认真听取了朱心红校长关于创建工作记报、观看了电影专题片、实地考察了校园办学条件、核验了学校申报材料中的有关数据、阅看了有关创建资料,参观看了升旗仪式、学生课间操、各类学生社团的活动、特色教育成果展示、教师论坛等多项活动,调阅了学校行政会议记录、教导处和团委工作计划、有关学科组教研活动的记录、班主任工作手册、部分年级学生的学籍档案、实验室、图书馆和医务室的有关台帐,抽查了教师随堂课教学,与学校领导、中层干部、教师代表和学生代表进行过程访谈,通过电话方式与抽样的家长和社会人士访谈,进行学校社会声誉的调查。专家组对市三中现场考察评估时获得的各类信息进行了认真汇总,一致认为: 1、学校在溧阳市政府、溧城镇党委、政府和溧阳市教育局悉心指导和全力支持下,以创建为抓手,以创建促发展,以创建升品位,在大力推进办学硬件建设的同时,坚持走内涵发展的道路,办人民满意的教育,学校在创建中有了质的飞跃,获得较好的社会声誉,实现了跨越式发展。 2、学校在朱心红校长和学校领导班子带领下,开创了一个崭新的局面。从校长的办学理念、工作热情、发展意识和机遇意识;教师队伍的敬业奉献,教育教学水平,特别是一大批充满活力的青年教师发展潜力大;全体师生奋发向上,昂扬进取的精神风貌,充分证明学校发展态势良好,是创建工作取得成绩进行的重要原因。 专家组充分肯定了市三中通过创建,学校发生了深刻的变化,各方面取得长足的进步。 1)学校通过创建推动办学跃上新的台阶。 2)通过创建办学硬件条件得到了较大改善。 3)学校在创建中努力加强师资队伍建设。 4)学校在创建中积极寻求办学发展的“突破口”,确立了“合格+特色”的学生培养策略和办学改革方案。 学校在创建中注重课堂教学改革。策略上强调低起点、小切口、缓步走,再深入;方式上,注意以问题为中心,通过启发、讨论、合作等手段引导学生走向教学目标,不断推进教与学的研究和改革。对学校近年来高考、综合考试、信息技术考试成绩给予充分肯定和赞誉。同时专家组对市三中提出了建设性意见,希望学校进一步明确发展定位,理清办学思路,扎扎实实全面抓好学校发展的基础性工作,把学校办成品牌学校。
|
|
|
双击自动滚屏
|
||||
|
||||
|
   
|
||||
|
溧阳市第三中学 版权所有 © 2001-2005 |