<%If Session("user") <> "" then%> 您是<%=session("user")%> 登出 <%else%> 您尚未登入 <%End if%>	祭典活動   <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath("/database/SingingBusDB.mdb") set rs=Server.CreateObject("ADODB.recordset") strSQL="SELECT *, (SELECT count(*) FROM photos WHERE photos.album = album.id) as photos FROM album order by adate desc" rs.Open strSQL,conn Do While Not rs.Eof Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" rs.movenext Loop rs.close conn.close Set conn = Nothing Set rs = nothing %> 活動日期 活動名稱 照片數 刪除 " & rs("adate") & " " & rs("name") & " " & rs("photos") & "

地 址：台中市十甲路13巷2號　電 話：04-22114652　聯絡信箱：liangjun168@yahoo.com.tw
Copyright © 2011 財團法人台灣省台中市晉封威靈公都城隍廟 版權所有