% pw=Request("pw") if pw="互億" Then ' 密碼 session("pw")="ok" end if if request("exit")="ok" then session("pw")= "" end if PAGE = Request("PAGE") IF PAGE = "" THEN PAGE = 1 ELSE PAGE = PAGE END IF Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("driver.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath SET rs = Server.CreateObject("ADODB.Recordset") SortSql = "Select *From download order by fileid Desc" rs.Open SortSql, conn, 1,1 RS.PageSize = 100 If Not rs.eof Then ' 有資料才執行 RS.AbsolutePage = PAGE ' 將資料錄移至 PAGE 頁 End if %>
| Support . |
[Driver Download] [Contacts] [FAQs] |
|
||
|
Home | About Us | Products | Support | News | Contacts | Factory Outlet |
|
Copyright©
2000-2001 Billionton Systems Inc. All Rights Reserved. |