<% 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")%>

　　

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

关于我们

　
   

热烈庆祝第二十一个教师节

    

            一首小诗，真心祝贺，老师们节日快乐：

一

这是九月，阳光明媚的九月

我们在诗情画意的季节里

迎来了一个神圣的日子

——教师节

在这美好的节日里

我们手捧美丽的鲜花

连同一份美好的祝福

一起献给您

——亲爱的老师

 

二

老师，这个亲切又温馨的名字

从小就在心田里扎根萌芽

是您，手握着手

教会我们打开知识的大门

是您，手拉着手

教会我们迈出理想的步伐

老师，这个简单又丰富的名字

从小就在心灵中茁壮成长

是您，无微不至

拨开我们求学路上的阴霾

是您，不辞劳苦

帮助我们扬起生命的桅帆

                               

                              三                               

老师，您是否记得

当我们解开一个又一个难题时

您的脸上就会绽开灿烂的笑容

老师，您是否记得

当我们捧回一个又一个奖牌时

您的眼睛就会盈满欣慰的泪花

老师，我们都记得

记得您那一身已经褪色的连衣裙

那是校园最纯朴的风景

老师，我们都记得

记得您一笔一划修改过的作业本

那是人生最隽永的批注

 

四

您在我们的心灵中播下知识的种子

在季节的轮回里浇灌载培

您在我们的世界里树立理想的旗帜

在生命的旅途上保驾护航

是啊——最啊！

是您，教会我们构思最壮丽的诗行

是您，教会我们谱写最雄壮的赞歌

您为人类灵魂的大厦添砖加瓦

您为人类灵魂的事业呕心沥血

老师，我亲爱的老师

您用热血培育祖国的花朵

您用忠诚铸就生命的春天

啊，我亲爱的老师

您崇高的精神是我生命的明灯

您无私的品格是我心灵的航标

 

五

有多少聚首，就有多少离别

有多少期待，就有多少嘱托

您把我们送上人生的站台

您把我们交给祖国的未来

有多少欢乐，就有多少忧愁

有多少迷恋，就有多少苦涩

风里雨里，我们不曾惧怕

梦里梦外。我们不曾迷路

今夜，今夜是一个节日的盛会

每一双眼睛都饱含感激的泪花

每一行诗句都流泻感恩的真情

缕缕清辉是深深祝福

朵朵礼花是串串祈祷

我们的思潮像海浪一样磅礴

我们的心情像诗句一样美丽

我们要用最美丽的花朵为您唱支赞歌

我们要用最美好的祝福为您唱支颂歌

老师，亲爱的老师

节——日——快——乐！


          

    

    
 
 

　

双击自动滚屏
 
 

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

 

   
  

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


<% end if end if%>