|
<%
'***************************************************************************************************************************************
' 通用列表模块
'
' 将指定数据表中的标题、链接文件按时间倒序列出
' 将本模块插入到用户网页中，定义相关全局变量
' 所有专栏使用系统的数据库，表名、目录名均为一致，称为专栏名
'***************************************************************************************************************************************
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月12日第30个植树节。本周三下午，西校区各班志愿者在团委副书记王志刚的带领下，参加学校的“植树、
绿化、 环保”活动。为把校园建设得更加秀美，为建设绿色和谐校园，校团委专门组织了各班团支部志愿者参加植树节活动。
在校区南院绿化带，韩子德主任从北校区请来两名老师来为冬青剪枝。07级高护三班的同学在班级花园里种下了花苗；其他班的同学也纷纷为自己的花园翻土浇水。参加活动的同学纷纷行动起来，有的拎水桶、提水浇灌，有的挥锹培土，整个活动大家乐此不疲，同学门纷纷表示“植树节是我们国家法定的节日，植树造林，人人有责，我们每个同学都要为绿化祖国、美化校园环境多做贡献。”
在这个美好的春天里，在这特定的日子里，同学们用双手栽下这一株株绿色生命，更显得非常有意义。同学们栽下的不仅仅是树，浇下的不仅仅是水，更是来年的期盼，伴随着我们同学成长的不仅是栽下树木，更有我们的成长和感悟。
08年3月12日 |