% 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 %>
|
|
|
1. 軍 用 類 a.航 空 器 類 : b.車 輛 類 : c.船 艦 類 :
2. 民 用
類
b.車輛類: c.船艦類:
3. 博 物 館 類
|