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