三月 29, 2006 位於 星期三, 三月 29, 2006 張貼者： joehwang
<br /><!--#include file="../include/ConnectDB1.asp"--><br /><br /><html xmlns="http://www.w3.org/1999/xhtml"><br /><head><br /><script Language="JavaScript"><br /><!--<br />function JumpGo(x)<br />{ var a=document.frm;<br /> a.page.value=x;<br /> //page裡的值為JumpGo(上一頁、下一頁)傳來的參數<br /> a.submit();<br />}<br /><br />function jump_page()<br />{ var a=document.frm;<br /> a.submit();<br />}<br />--><br /></script><br /><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><br /><title>日記</title><br /></head><br /><br /><body><br /><br /> <% <br /> set rs = Server.CreateObject("ADODB.Recordset")<br /> sql = "SELECT diary.diary_id, diary.diary_date, code_mood.mood, code_weather.weather, diary.diary_content, diary.voc_file ,diary.content_chi "<br /> sql=sql&"FROM "<br /> sql=sql&"diary INNER JOIN code_mood ON code_mood.id = diary.mood"<br /> sql=sql&" INNER JOIN code_weather ON diary.weather = code_weather.id "<br /><br /> <br /> rs.Open sql,conn ,3,1<br /> <br /> <br /> ' 設定分頁<br /> rs.PageSize=20<br /> TotalPage=rs.pagecount<br /> page = clng(request("page"))'把page的值由文字轉型轉為數字型態(從清單物件傳來的值為字串)<br /> if page < 1 then page = 1<br /> if page > totalpage then page = totalpage<br /> rs.AbsolutePage = page<br /> '讓資料錄的指標指向第X頁(只要設好pagesize，asp就會自動把redordcount-資料總數，除以pagesize便會得到pagecount-頁面總數，再用AbsolutPage來指向要到第幾頁<br /><br /> %><br /> <table width="86%" border="1"><br /> <tr><br /> <td>id</td><br /> <td>content</td><br /> <td>tate</td><br /> <td>mood</td><br /> <td>weather</td><br /> <td>chinese</td><br /> <br /> <td>voice</td><br /> </tr><br /> <%<br /> <br /> if rs.eof then<br /> response.Write "沒有資料"<br /> else<br /> for i = 1 to rs.pagesize <br /> %><br /> <tr><br /> <td><%=rs.fields("diary_id")%></td><br /> <td><%=rs.fields("diary_date")%></td><br /> <td><%=rs.fields("mood")%></td><br /> <td><%=rs.fields("weather")%></td><br /> <td><%=rs.fields("diary_content")%></td><br /> <td><%=rs.fields("content_chi")%></td><br /> <td><%=rs.fields("voc_file")%></td><br /> </tr><br /> <% <br /> rs.movenext<br /> if rs.eof then exit for<br /> <br /> next<br /> rs.close<br /> end if<br /> %><br /> </table><br /> <p> </p><br /> <p> </p><br /> <form name="frm" method="post" action="diary.asp"><br /> <table width="86%" border="0"><br /> <tr><br /> <!--分頁--><br /> <td><a href="#" onClick="javascript:JumpGo('1')">第一頁</a></td><br /> <td><a href="#" onClick="javascript:JumpGo('<%response.Write page+1%>')">下一頁</a></td><br /> <td><a href="#" onClick="javascript:JumpGo('<%response.write page-1%>')">上一頁</a></td><br /> <td>第<br /> <br /> <label><br /> <select name="page" id="page"onChange="javascript:jump_page()"><br /> <%for x = 1 to TotalPage<br /> g =g+1<br /> <br /> %><option value=<%=g%> <% if x=page then %> selected <% end if %> ><%=g%></option><br /> <%next%><br /> </select><br /> </label><br /> <br /> 頁</td><br /> <td>頁次<%=page%>/<%=TotalPage%></td><br /> </tr><br /> </table><br /> </form><br /> <!--分頁--><br /><p> </p><br /></body><br /></html><br /><br /><br /><br />
