<%
password = Request("password")
page = Request("page")
IF PAGE = "" THEN
PAGE = 1
END IF
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("4711588.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SET rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From news ORDER BY ID desc",conn,1,1
' Rs("站務內容")
' Rs("新增日期")
' 每頁顯示五筆
rs.pagesize=10
rs.absolutepage=page
%>
玩家走廊作品秀
-----﹝回首頁﹞--﹝關於我們﹞--﹝技術講座﹞--﹝技術討論版﹞--﹝玩家走廊﹞--------
