% 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
%>
|
|
| 第一周国旗下讲话《抢抓机遇、真抓实干、因势而上》 朱心红校长 |
|
|
老师们、同学们,新年早上好! 今天我讲话的题目是:抢抓机遇、真抓实干、因势而上,把市三中建设成具有一流办学条件、鲜明办学特色、享有良好办学声誉的江苏省品牌高中。 2005年,是三中历史上不平凡的一年,是三中事业取得辉煌进步的一年。中考、高考取得历史性突破,本科上线206人,本科完成率高居全市榜首,实现了弱基础向好成绩的大跨越。几个月后,三中又被省教育厅确认为江苏省三星级高中,继而又被评为常州市德育工作先进学校、常州市艺术教育特色学校,倾注三中人汗水和心血的梦想终于成真。我们创造并见证了这一历史性的辉煌,我们也正享受着这一辉煌带来的荣耀和尊严,因而我们有责任让三中站在新的起点去展望更美好的未来。 2006年一开局,学校在十一·五规划引领下,下决心从最基础工作抓起,着眼于学生的健康成长和未来发展,着手于培养提高学生的基本素养,全面稳健地推进各项管理举措:在德育方面,立足做一个“有教养的人”来展开教育工作;在教学方面,下苦功实现“每一个学生都有进步”,扎扎实实做大“优秀学生群体”;在常规管理方面,坚持做好“小事”、做细“过程”。为此,学校号召全校师生要珍惜来之不易的良好局面,用真诚的努力来实现自身的进步,从而实现学校的新跨越。 在当前,我们尤其要强化通过成绩进步为班级、为学校争光添彩的意识,树正气、办实事,打造脚踏实地、负重奋进、荣辱与共的学校精神。学校要求每一位同学要以三中为豪,自觉佩带胸卡、上课认真守纪、课间文明有序、谈吐举止温文尔雅、待人接物谦恭、真挚地怀有一颗孝心爱心善心;每一期青年文明岗要以身作则,负责到底;每一个教职工要率先垂范、争创业绩。大家行动起来了,我们的学校就充满活力;大家严格起来了,我们的校园就洋溢正气;大家争先抢位了,我们的学校就有不竭的发展动力和无限美好的发展前景。一切的一切、关键的关键就在于我们是不是真抓实干?我们是不是不遗余力地干?我们是不是持之以恒地干?
|
|
|
双击自动滚屏
|
||||
|
||||
|
   
|
||||
|
溧阳市第三中学 版权所有 © 2001-2006 |