<% select_type=request("select_type") sort_type=request("sort_type") if select_type <> "" then 'program triggered by submit page = 1 prev_type = "" else 'program triggered by skip page page = request("page") select_type = request("prev_type") end if Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("post/mlsh.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=guest;dbq=" & DBPath SET rs = Server.CreateObject("ADODB.Recordset") if select_type ="" then select_type = "全部" end if if select_type = "全部" then sql="Select * From talk " else sql="Select * From talk where category = '" & select_type & "' " end if if sort_type = "活動日期" then sql= sql&"order by act_date desc" else sql= sql&"order by time Desc" end if rs.Open sql, conn,1,3 ' rs.Open "Select * From talk order by time Desc" , conn,1,3 '按照時間(time)排序,可將之改成按點擊率(view)排序 rs.PageSize = 15 '設定一頁顯示幾個公告(預設為10) Page = CLng(Request("Page")) If Page < 01 Then Page = 01 If Page > rs.PageCount Then Page = rs.PageCount If Not rs.eof Then RS.AbsolutePage = PAGE End if USERNAME=Session("username") %> 台中市攝影學會

Click for 台中市, Taiwan Forecast

【數位影像處理 進階班】開始報名,將於97年8月23日開課,如有興趣歡迎各位同好踴躍報名參加。  ★第64期【攝影基礎班】開始招生,將於97年11月1日正式開課,欲報名者請從速,以免向隅。  
<%if rs.eof then Response.Write "" else id=1 for i=1 to rs.pagesize%> <% id=id+1 rs.MoveNext if rs.eof then exit for next %>
訊息種類 新聞主題 發佈日期
查無相關訊息
<%=rs("category")%> >> <%=rs("txttop")%> <%if session("admin")="dkisgood" then%> <%else%> <%end if%> <%=FormatDateTime(rs("time"), 2)%>
<% end if rs.close conn.Close Set rs = Nothing Set conn = Nothing %>
 

★中區科技工程(股)公司
★中偉照相器材
   04-22264456
★利徠有限公司
   04-22931566
★金霏林像業沖放會社
   04-24728001
★欣興出版事業
   04-7247074
太陽廣播電台FM89.1
★富元策略行銷
★波菲爾 髮型美容公司
★柯達行
★新立渥國際
   模特兒經紀公司

★漢口國中

★慕璇舞蹈藝術中心