|
<%
'***************************************************************************************************************************************
' 通用列表模块
'
' 将指定数据表中的标题、链接文件按时间倒序列出
' 将本模块插入到用户网页中，定义相关全局变量
' 所有专栏使用系统的数据库，表名、目录名均为一致，称为专栏名
'***************************************************************************************************************************************
dim mdb,ssql,page,pages,datas,size,path,col
page=request("p") '取页号
col=request("c") '取专栏名称
mdb="/fpdb/目录.mdb" '表位置及文件名
ssql="select 标题,时间,目录,文件 from 讨论专栏 where 专栏='"&col&"' order by 时间 desc,文件 asc" '定义检索条件
size=30 '每页记录
if page="" or page<1 then page=1
pages=get_pages(page,ssql,size,surl)
datas=get_datas(page,ssql,size,surl)
Response.write pages
Response.write "
"
Response.write datas
Response.write "
"
Response.write pages
'**********************************************************'
'
'取数据字符串，每记录一行，格式依据要求
'
function get_datas(page,ssql,size,surl)
dim i,d
set conn=server.createobject("adodb.Connection")
CS="Provider=Microsoft.jet.OLEDB.4.0;Data Source="
conn.ConnectionString=CS & Server.MapPath(mdb)
conn.Open
set rs=server.createobject("adodb.recordset")
rs.open ssql,conn,1,1,1
if not rs.eof then
i=(page-1)*size
rs.move i,1
for i=1 to size
if rs.eof then exit for
path=rs("目录") '目标文件所在的目录
get_datas=get_datas&""
get_datas=get_datas&" · "
get_datas=get_datas&""&rs("标题")&""
d=rs("时间")
d=year(d)&"-"&month(d)&"-"&day(d)
get_datas=get_datas&"("&d&") "
rs.movenext
next
end if
RS.close
set RS=nothing
conn.close
set conn=nothing
end function
'***********************************************************
'
'取页码字符串，设单行两列表格，列1位总页数和当前页号，列2是10个页序列号
'
function get_pages(page,ssql,size,surl)
dim i,j
set conn=server.createobject("adodb.Connection")
CS="Provider=Microsoft.jet.OLEDB.4.0;Data Source="
conn.ConnectionString=CS & Server.MapPath(mdb)
conn.Open
set rs=server.createobject("adodb.recordset")
rs.open ssql,conn,1,1,1
rs.pagesize=size
get_pages=""
get_pages=get_pages&"| "
get_pages=get_pages&"共有"&rs.recordcount&"条记录，"&rs.pagecount&"页，当前第"&page&"页 | "
get_pages=get_pages&""
if rs.pagecount>0 then
if page>10 then
get_pages=get_pages&"<<"
else
get_pages=get_pages&"<<"
end if
if page>1 then
get_pages=get_pages&" <"
else
get_pages=get_pages&" <"
end if
j=int((page-1)/10)*10+1
for i=j to j+9
if i-rs.pagecount>0 then Exit For
if i-page=0 then
get_pages=get_pages&" "&i
else
get_pages=get_pages&" "&""&i&""
end if
next
if page-rs.pagecount<0 then
get_pages=get_pages&" >"
else
get_pages=get_pages&" >"
end if
if int((page-1)/10)-int(rs.pagecount/10)<0 then
get_pages=get_pages&" >>"
else
get_pages=get_pages&" >>"
end if
end if
get_pages=get_pages&" |
"
RS.close
set RS=nothing
conn.close
set conn=nothing
end function
%>
学习感动中国十佳人物
学会用情感谢用心感恩
3月10日下午，各支部利用团课时间，以“感恩”为主题上了一堂主题团课，本次团课以07年感动中国十佳人物为学习对象，各支部通过假期收集及整理的材料列举了大量事例：有愿为他人生命付出自己生命的勇者孟祥斌；有把生命的天平向人民倾斜的飞行员李剑英；有身患重病，以顽强的毅力与病魔抗争并带病坚持授课的方永刚等等。同学们通过学习了这些感人的事迹，积极发表自己的感想，有的班级还展开了积极的讨论，团课的气氛异常活跃，掌声频频响起。有的同学说“我们要感谢父母养育我们；感谢老师们教育了我们。。。。。。”，还有的同学说“在我们感恩的同时，我们要珍惜现在的生活学习的机会。”
这次团课在同学们之间反响颇大，感恩教育让大家学会了感谢，感恩教育让同学们学会了珍惜，感恩教育在同学们心中渐渐培养起了责任感和爱心，大家表示要关注他人、关注社会，从身边做起、从小事做起。
2008．3．10 |