% 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学年第一学期开学典礼
|
|||||||
|
2007年9月6日下午,在激扬的国歌声中,我校举行了2007学年第一学期开学典礼。 大会由刘德忠副校长主持,许建平校长以“勤奋刻苦 迎接挑战 再创辉煌”为题作了热情洋溢的讲话,在肯定成绩,认识不足的同时,激励广大师生,同心协力,共谋发展。 会上教师代表和学生代表也分别作了发言,他们一致表示要以自己的实际行动,带动全体教师、学生努力工作、刻苦学习,为三中的发展增光添彩。 会上狄建忠副校长代表学校对过去一学期广大教师、学生所取得的荣誉进行了隆重的表彰,许建平校长、刘德忠副校长、狄建忠副校长、马锡保主任为三好学生标兵、优秀三好学生颁发了荣誉证书。
勤奋刻苦
迎接挑战 再创辉煌 —在07-08学年第一学期开学典礼上的讲话 二00七年九月 老师们、同学们: 金秋十月,丹桂飘香,在第二十三个教师节到来之际,我谨代表学校党支部、行政向辛勤耕耘过的所有教职员工表示最诚挚的感谢和最衷心的祝愿,感谢他们为三中的发展所作的贡献,祝愿你们在新的学年中身体健康,工作顺利,生活幸福。同时,很高兴又迎来了市三中新一届的870多名高一新生和140多名初一新生,我们相聚在绿茵如画的校园,一起分享新学期即将开始的喜悦和兴奋。 老师们、同学们,一个既漫长而又短暂的学年已然过去,经过一个暑假的休养,我们共同打开了新学期的扉页,新的挑战又将开始,但挑战和机遇并存,机遇永远给予那些勤奋刻苦,勇于挑战的人们。 在暑假,学校已召开了各级会议,统一思想、明确目标、充电加油,全体教职员工精神饱满、信心百倍。学校将尽全力为师生创造更好的条件,营造一个人和气顺的工作、学习环境,进一步加强校长与师生,教师与学生,学校与家长、社会的沟通、交流,进一步提高工作质量和效益,全心全意为师生服务,努力把三中推向一个更加辉煌的新高度。 为了学校目标的实现,在此我向同学们提几点希望和要求。 第二,崇尚文明,增强责任意识,共同创造良好的校园环境。 老师们、同学们,
“机遇总是垂青那些有准备的人”,新的学期,新的起点,让我们乘着上学年的强劲东风,勤奋刻苦、敢于挑战,我们的目标一定能实现,三中的明天将更加辉煌。最后,祝全校师生工作顺利、学习进步!
2007年9月10日
|
|||||||
|
双击自动滚屏
|
||||
|
||||
|
   
|
||||
|
溧阳市第三中学 版权所有 © 2001-2007 |