<% dim leowebbbs,rs,count,page,i,j,m,msg,a
Set leowebbbs = Server.CreateObject("ADODB.Connection")
leowebbbs.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data/tourism.mdb")
set rs = Server.CreateObject("ADODB.Recordset")
rs.cursortype = 3
rs.Open "SELECT top 100 * FROM news order by -1*id",leowebbbs
rs.PageSize = 20
count=rs.PageCount
If request.querystring("link")="" then page="1" else page=request.querystring("link") %>
觀光與旅館學系
