<% @ LANGUAGE=VBScript CODEPAGE=950 %>

加入我的最愛 窈窕有來頭 窈窕百寶箱 窈窕夢成真 窈窕纖活事 窈窕答客問 窈窕會員區 窈窕私房話 窈窕討論區 奇摩討論區 食物熱量表 廣告與合作 回首頁 請選擇您要瀏覽的專欄類別： <% SQL = "Select * From topClass order by entertime desc" Call DSN_Connection_Begin(Oc,"../Database/topic.mdb") Call ADO_Recordset_Begin(Oc,Rs,SQL) If Rs.eof Then %> 目前尚無資料 <% Else %> 不分類別 <% Do While Not Rs.eof %> "><%=trim(rs("cla_name"))%> <% rs.movenext Loop End If Call ADO_Recordset_End(Rs) Call DSN_Connection_End(Oc) %> <% If Session("contentList") = empty Then Session("contentList") = "Select * From topContent order by entertime desc" Session("contentListTitle") = "不分類別" End If Call DSN_Connection_Begin(Oc,"../Database/topic.mdb") Call ADO_Recordset_Begin(Oc,Rs,Session("contentList")) If Rs.eof Then %> 目前並無任何資料！！ <% Else %> ===<%=Session("contentListTitle")%>===  <% everyPage = 5 '目前設定5筆一頁 Call Page_Form_Panel(everyPage,Rs) %> <% line = 1 do until (rs.eof or line > everyPage) line = line + 1 %> <% rs.movenext Loop %> 主題："><%=trim(rs("con_title"))%>  發表時間：<%=trim(rs("con_year"))%>年<%=trim(rs("con_month"))%>月<%=trim(rs("con_day"))%>日 作者："><%=trim(rs("con_writer"))%> 閱讀次數： <%=trim(rs("con_count"))%> <%=trim(rs("con_frontDescription"))%> ">......詳全文 <% End If %> 診所地址：台北市復興南路二段8號2樓(木柵線大安捷運站旁)地圖參考　預約電話：(02)2709-6458 服務時間：周一 ~ 周六(上午九點 ~ 下午一點、下午四點 ~ 晚上九點三十)

<% Call ADO_Recordset_End(Rs) Call DSN_Connection_End(Oc) %>