<%
ide = Request("ide")
%>
<%
PAGE = Request("PAGE")
PAGE2 = Request.form("PAGE2") + 1
' 接收所要瀏覽的頁次
IF PAGE = "" THEN
PAGE = 1
END IF
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("/database/fate.mdb")
conn.Open "driver={Driver do Microsoft Access (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from dream where ide="&ide&"", conn,1,3
RS.PageSize = 20 ' 設定每頁顯示 20 筆
If Not rs.eof Then ' 有資料才執行
RS.AbsolutePage = PAGE ' 將資料錄移至 PAGE 頁
End if
%>
五術高手命理開運網--周公解夢-<%=rs("S2")%>