|
<%
'***************************************************************************************************************************************
' 通用列表模块
'
' 将指定数据表中的标题、链接文件按时间倒序列出
' 将本模块插入到用户网页中，定义相关全局变量
' 所有专栏使用系统的数据库，表名、目录名均为一致，称为专栏名
'***************************************************************************************************************************************
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
%>
强素质、迎奥运 校园蓝球比赛
新学期伊始，强素质、迎奥运
校园蓝球比赛拉开了序幕。首先06高护三以班为单位，宿舍为个体。进行了蓝球PK。比赛场上，同学们个个你追我赶、生龙活虎的场面，展现了同学们积极向上精神风采。通过此次活动同学们提高了对体育锻炼的认识，并响应加强体质锻炼的号召天天锻炼一小时以上,
培养同学们终身体育的意识和习惯。为创建健康文明和谐的校园做出贡献。
2008年3月11号 |