<% Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("english.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From Sentence", conn, 3 %> <% ' 取所要瀏覽的頁次 Page = cint(Request("Page")) PageSize = cint(Request("PageSize")) If Page = 0 Then Page = 1 End If If PageSize = 0 Then rs.PageSize = 3 ' 設定每頁顯示 3 筆 End If If Not rs.eof Then ' 有資料才執行 rs.AbsolutePage = Page ' 將資料錄移至 Page 頁 End if %> 網路英語教學中心

隨機播放
管理選單
句子:共 <%=rs.recordcount%> 句 [第一頁] [上一頁] <%If Page<>rs.PageCount Then%> [下一頁] [最後一頁] <%End If%> 頁數:第 <%=CINT(page)%> 頁/共 <%=rs.PageCount%>
<%For sh=1 to rs.PageSize%> <%If rs.EOF Then Exit For%> <% Select Case rs("People") Case "student-boy.gif" People="男學生" Case "student-girl.gif" People="女學生" Case "raincoat-boy.gif" People="男學生穿雨衣" Case "raincoat-girl.gif" People="女學生穿雨衣" Case "teacher-male.gif" People="男老師" Case "teacher-female.gif" People="女老師" Case "father.gif" People="爸爸" Case "mother.gif" People="媽媽" Case "uncle.gif" People="叔叔" Case "aunt.gif" People="阿姨" Case "brother-big.gif" People="哥哥" Case "sister-big.gif" People="姊姊" Case "brother-small.gif" People="弟弟" Case "sister-small.gif" People="妹妹" Case "baby-boy.gif" People="男寶寶" Case "baby-girl.gif" People="女寶寶" Case "doctor.gif" People="醫生叔叔" Case "nurse.gif" People="護士阿姨" End Select %> <%rs.MoveNext%> <%Next%>
人物類別
內容
" alt=我是<%=People%>,按我一下就為您介紹人物 onClick="ShowFace()">
<%=rs("Sentence")%>
<%=rs("Chinese")%>
句子:共 <%=rs.recordcount%> 句 [第一頁] [上一頁] <%If Page<>rs.PageCount Then%> [下一頁] [最後一頁] <%End If%> 頁數:第 <%=CINT(page)%> 頁/共 <%=rs.PageCount%>
程式提供:台北市文山區萬芳國民小學