<%@ codepage=65001%> <%Session.CodePage=65001%> <% Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("Work_of_Art/photo.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=guest;dbq=" & DBPath SET rs = Server.CreateObject("ADODB.Recordset") sqltxt= "SELECT * from photo where phoids=1 order by phoid" rs.Open sqltxt, conn, 3 %> 普羅旺斯藝術坊

About Provence

<% Page = CLng(Request("Page")) ' CLng 不可省略 PageSize = cint(Request("PageSize")) If Page < 1 Then Page = 1 If PageSize = 0 Then rs.PageSize = 12 End If If Page > rs.PageCount Then Page = rs.PageCount rsi=1 ShowOnePage rs, Page %>

<% If Page <> 1 Then Response.Write "第一頁 / " Response.Write "上一頁 / " End If If Page <> rs.PageCount Then Response.Write "下一頁 / " Response.Write "最後一頁" End If %> 　頁次：第<%=Page%>頁／共<%=rs.PageCount%>頁

<% Sub ShowOnePage( rs, Page ) rs.AbsolutePage = Page For iPage = 1 To rs.PageSize If rs.EOF Then Exit For end if %>
" rel="portfolio" > " alt="your alt tag here" /> 法國普羅旺斯
<% rs.MoveNext Next rs.movefirst End Sub %>