<% 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 %> 溧阳市第三中学——<%=rs("topic")%>

  

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

关于我们

 
   

第六周国旗下讲话《感谢》

 

感谢三月的春风,让草坪泛绿,让柳条婀娜,让迎春花怒放,让常青的女贞树再孕新芽,让我们的校园春意盎然。

感谢三月的暖阳,脱去了我们的寒衣,温暖了我们的手足,舒展了我们的筋骨,让我们的校园生机盎然。

感谢三月,在这孕育希望的季节,我校接连承办了全市的高中语文、英语、地理、生物、化学等诸多学科的教研活动。让我们三中教师在教学历练中得到升华,我更想感谢的是来参加教研活动的兄弟学校的老师,因为他们的一句话让我为是三中的一员而自豪。他们说:“小学生见老师问好是大多数,初中生见老师问好是少部分,高中生见老师问好是奇迹。但在你们三中,奇迹已成为习惯”。一句话胜过三月的暖阳,超越三月的春风,昭示了三中的美好明天。

   我更想感谢的是校青年文明岗的学生,晨曦中你们牺牲了早读时间;课间,你们牺牲了休息时间乃至上厕所的时间;中午,你们牺牲了午休时间。你们用辛苦来规范同学、老师的行为。你们为了校园大厅里的那句话“播种行为,收获习惯;播种习惯,收获性格;播种性格,收获命运”。但是我知道青年文明岗的辛苦并没有得到我们全体老师、同学的理解和支持。从《文明与我同行》中我看到了你们的痛苦与无奈。在此,我希望也相信每位老师和同学能仔细阅读每一期我们的生活报《文明与我同行》,让我们深思、慎笃,让我们对青年文明岗,对生活中的每一个人的付出心存一份感恩,因为心存感恩,良知将俯仰无愧;心存感恩,生活的大树才会枝繁叶茂;心存感恩,三中的校园定会四季如春。

 

                                                          姜全芳

                                                       2006年3月20日  


          

 

 

 

 

    

    

 
 

 

双击自动滚屏
 
 

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

 

   
 

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


<% end if end if%>