<%
page=request("page")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("nesw/mlsh.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=guest;dbq=" & DBPath
SET rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From talk order by time Desc" , conn,1,3 '按照時間(time)排序,可將之改成按點擊率(view)排序
rs.PageSize = 10 '設定一頁顯示幾個公告(預設為10)
Page = CLng(Request("Page"))
If Page < 01 Then Page = 01
If Page > rs.PageCount Then Page = rs.PageCount
If Not rs.eof Then
RS.AbsolutePage = PAGE
End if
USERNAME=Session("username")
%>
耕莘健康管理專科學校-總務處
