affiche.asp

教师评估系统

<!-- #include file="Cls.asp" -->
<%top "论坛公告",true%>
<div class="nav dt"><img alt="" src="Images/Forum_nav.gif" />&nbsp; <%=ClubTree%> → <a href="Affiche.asp">论坛公告</a></div>
<%
ID=ChkNumeric(Request.QueryString("id"))
if ID=0 then
sql=" order by DateCreated Desc"
TotalCount=Conn.Execute("select count(ID) from [WxAffiche]")(0)
else
sql=" where id="&ID&""
TotalCount=1
end if

PageSetup=10 '设定每页的显示数量

TotalPage=Abs(Int(TotalCount/PageSetup*(-1))) '总页数
PageCount = cint(Request.QueryString("PageIndex")) '获取当前页

sql="select Username,Title,Content,DateCreated from [WxAffiche]"&sql
if PageCount<11 then
Set Rs=Conn.Execute(sql)
else
rs.Open sql,Conn,1
end if

if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage

if Not Rs.Eof Then
if TotalPage>1 then RS.Move (PageCount-1) * pagesetup
AfficheGetRows=Rs.GetRows(pagesetup)
end if
Rs.close

if IsArray(AfficheGetRows) then
For i=0 To UBound(AfficheGetRows,2)
Username=AfficheGetRows(0,i)
title=AfficheGetRows(1,i)
Content=AfficheGetRows(2,i)
DateCreated=AfficheGetRows(3,i)
%><div class="tb dt">
<div id="tt"><%=title%></div>
<div class="tc"><%=Content%></div>
<div class="tc cb">
<span class="fl">发布人：<%=UserName%></span>
<span class="fr">时间：<%=DateCreated%></span>
</div>
</div>
<%Next
end if%>
<div class="cb dt"><%ShowPage()%></div>
<%HtmlEnd%>