<% IF request("review") = "exit" THEN
Session("password") = false
END IF%>
<% PAGE = Request("PAGE") ' 接收所要瀏覽的頁次
Review = Request("Review") ' 接收快速瀏覽的模式
IF PAGE = "" THEN
PAGE = 1
ELSE
PAGE = PAGE
END IF
IF Review = "" THEN
Review = "all"
END IF
' 快速瀏覽模式
SELECT CASE Review
CASE "exit"
viewmode = "全部"
Message = "抱歉！目前尚無任何公告......"
Sql = "ID <> 0"
CASE "all"
viewmode = "全部"
Message = "抱歉！目前尚張貼無任何公告......"
Sql = "ID <> 0"
CASE "today"
viewmode = "今日"
Message = "抱歉！今天尚無張貼任何公告......"
Sql = "postdate = cstr(date())"
End Select
' 開啟資料檔
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("news.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
SortSql = "Select *From news Where " & Sql & " order by postdate Desc,posttime Desc"
rs.Open SortSql, conn, 1,3
RS.PageSize =1 ' 設定每頁顯示 5 筆，可修改
If Not rs.eof Then ' 有資料才執行
RS.AbsolutePage = PAGE ' 將資料錄移至 PAGE 頁
End if
%>
最新消息
Add •
<% IF session("password") = true then %>
Exit • Change PW Admin • Change PW
每頁 1 筆 / 目前在第 <%=page%> 頁 / 共 <%=rs.pagecount%> 頁 / 目前公告共 <%=rs.recordcount%> 筆
最新一則
<%FOR J=1 to rs.pagecount%>
<%IF J <> cint(page) then %>
<%IF J < 10 then
J = "0" & J
End IF%>
跳到第 <%=J%> 則
<%END IF
NEXT %>
目前瀏覽 <%=viewmode%>
的消息
選擇瀏覽方式
<%If Review <> "all" Then%>顯示全部公告<%End If%>
<%If Review <> "today" Then%> 今日的公告<%End If%>
<% IF rs.eof then ' 如果沒資料 %>
<%=Message%>
<%Else ' 如果有資料 %>
<%FOR SH=1 to rs.pageSize ' 顯示資料
IF rs("id") = "急件" Then ' 判斷急件,來設定字型顏色
fontcolor = "#ffffff" ' 白色
Else
fontcolor = "#ffffff" ' 白色
End If
%>
<% rs.movenext
if rs.eof then exit for
next
end if
rs.close
%>