<% 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 %> 溧阳市第三中学

  

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

关于我们

 
   

我参与我快乐 我运动我健康

 

 

   

老师们,同学们:

    在这金风送爽、硕果累累的秋天,我们迎来了全校师生的体育盛会。我首先代表学校行政对运动会的胜利召开表示热烈祝贺,向为筹备本次运动会而付出辛勤劳动的老师和同学们表示衷心感谢。预祝全体运动员在比赛中赛出风格,赛出水平,赛出成绩,更要赛出快乐。

一年一度的秋季运动会即将拉开帷幕,这是我校全面实施素质教育的具体体现,是我校教育教学工作的重要组成部分,也是广大师生展示体育风采、促进交流的舞台。在历届运动会上,运动员奋力拼搏,裁判员公正执法,观众同学热情鼓舞,工作人员辛勤工作,保证了运动会的圆满成功,给我们留下了深刻的印象。今年运动会的主题是“我参与我快乐,我运动我健康”。此次盛会旨在丰富校园文化生活,给学生提供一个展示自我、表现自我的平台,使学生的鲜明个性得以张扬、身体素质优势得以发挥、积极进取的优良品质得以培养、班集体的凝聚力得以增强。同时,这也是我校校风校貌的一次大检阅,也是各班精神风貌和思想素质的一次展示。

同学们,体育源于生活而又高于生活。体育有其丰富的内涵,与我们有着难以割舍的情结,它给我们的不仅仅是一种运动。体育是一种精神,它赋予我们勇敢、果断、激情;体育是一种财富,它带给我们品质、健康、快乐;体育是一种艺术,它使我们协调、大方、优美。当我们与体育结伴时,我们的人生才更丰富,当我们体验体育时,我们才懂得了什么是胜利后的欣喜若狂,什么是失利后的痛哭流涕,才懂得了人生旅途的艰辛,才知道成功的背后就是付出。运动会只是一种形式,但真正的意义远远超出了它的本身,它不光是四肢力量的比拼,而是让我们用智慧、用技能、用知识来征服困难,越过一个又一个前进中的障碍。一次运动会就是一场竞争意识的演练,让我们在运动中学会协作、在运动中学会助人、在运动中学会拼搏、在运动中学会承受。

最后我希望我们的运动员能够充分展示运动风采;我要求我们的裁判员忠于职守,公正裁判;我预祝我们的运动会圆满成功!

    


          

 

 

 

 

    

    

 
 

 

双击自动滚屏
 
 

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

 

   
 

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


<% end if end if%>