<% sid = Request("sid") 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 ", conn,1,3 RS.PageSize = 5000 ' 設定每頁顯示 20 筆 If Not rs.eof Then ' 有資料才執行 RS.AbsolutePage = PAGE ' 將資料錄移至 PAGE 頁 End if %> <%Else ' 如果有資料 %> <%FOR SH=1 to rs.pageSize ' 全部顯示 IF (page - 1) * rs.pagesize + sh/2 = (page - 1) * rs.pagesize + sh\2 Then ' 判斷編號是雙,則設定背景顏色為 backcolor = "#FFFFEC" '淡黃 Else backcolor = "#EEF7F7" '淡藍 End If%> <%if rs("S1")="生活篇" then%> <%if rs("ide")=1 then%> 生活篇：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=149 then%>


<%end if%> <%elseif rs("S1")="情愛篇" then%> <%if rs("ide")=150 then%>
情愛篇：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=188 then%>


<%end if%> <%elseif rs("S1")="文化篇" then%> <%if rs("ide")=189 then%>
文化篇：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=211 then%>


<%end if%> <%elseif rs("S1")="身體篇" then%> <%if rs("ide")=212 then%>
身體篇：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=234 then%>


<%end if%> <%elseif rs("S1")="神鬼篇" then%> <%if rs("ide")=235 then%>
神鬼篇：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=258 then%>


<%end if%> <%elseif rs("S1")="動物篇" then%> <%if rs("ide")=259 then%>
動物篇：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=361 then%>


<%end if%> <%elseif rs("S1")="植物篇" then%> <%if rs("ide")=362 then%>
植物篇：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=420 then%>


<%end if%> <%elseif rs("S1")="建築篇" then%> <%if rs("ide")=421 then%>
建築篇：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=462 then%>


<%end if%> <%elseif rs("S1")="器物篇" then%> <%if rs("ide")=463 then%>
器物篇：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=518 then%>


<%end if%> <%elseif rs("S1")="山地篇" then%> <%if rs("ide")=519 then%>
山地篇：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=531 then%>


<%end if%> <%elseif rs("S1")="天象篇" then%> <%if rs("ide")=532 then%>
天象篇：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=551 then%>


<%end if%> <%elseif rs("S1")="其它篇" then%> <%if rs("ide")=552 then%>
其它篇：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=594 then%>


<%end if%> <%elseif rs("S1")="自然篇" then%> <%if rs("ide")=613 then%>
自然篇：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=664 then%>


<%end if%> <%elseif rs("S1")="人際篇" then%> <%if rs("ide")=665 then%>
人際篇：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=735 then%>


<%end if%> <%elseif rs("S1")="建築篇二" then%> <%if rs("ide")=736 then%>
建築篇二：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=816 then%>


<%end if%> <%elseif rs("S1")="人物篇" then%> <%if rs("ide")=817 then%>
人物篇：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=914 then%>


<%end if%> <%elseif rs("S1")="情愛篇二" then%> <%if rs("ide")=915 then%>
情愛篇二：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=948 then%>


<%end if%> <%elseif rs("S1")="生活篇二" then%> <%if rs("ide")=949 then%>
生活篇二：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=1192 then%>


<%end if%> <%elseif rs("S1")="物品篇" then%> <%if rs("ide")=1193 then%>
物品篇：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=1492 then%>


<%end if%> <%elseif rs("S1")="身體篇二" then%> <%if rs("ide")=1493 then%>
身體篇二：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=1577 then%>


<%end if%> <%elseif rs("S1")="動物篇二" then%> <%if rs("ide")=1578 then%>
動物篇二：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=1695 then%>


<%end if%> <%elseif rs("S1")="植物篇二" then%> <%if rs("ide")=1744 then%>
植物篇二：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=1831 then%>


<%end if%> <%elseif rs("S1")="鬼神篇" then%> <%if rs("ide")=1832 then%>
鬼神篇：

<%end if%> 【" Target="external" title="進入解夢視窗" onclick="window.open('Dream_V.asp', 'external', 'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,copyhistory=0,width=500,height=500');"><%=rs("S2")%>】, <%if rs("ide")=1881 then%>


<%end if%> <%end if%> <% rs.MoveNext IF RS.EOF THEN EXIT FOR Next End If %>
　

【解夢吉凶】

　

周公解夢：

~~~解夢吉凶共有 <%=rs.recordcount%> 筆~~~
<%if sid<>empty then%> <% Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("/database/fate.mdb") conn.Open "driver={Driver do Microsoft Access (*.mdb)};dbq=" & DBPath Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.Open "select * from dream where s2 like '%" & sid & "%' ", conn,1,3 %> <%if rs2.recordcount=1 then%> 搜尋結果：<%=rs2("S2")%>

<%=rs2("S3")%> <%elseif rs2.recordcount>=2 then%> <%do until rs2.EOF%> 搜尋結果：<%=rs2("S2")%>
<%=rs2("S3")%>


<%rs2.MoveNext loop %> <%elseif rs2.recordcount=0 then%>
很抱歉，目前搜尋不到你要的解夢名稱!!
<%end if%> <%end if%>
<%IF rs.eof then ' 如果沒資料 %>
目前尚無任何資料