<% if request("del")="y" then set objDBConn = Server.CreateObject("ADODB.Connection") objDBConn.Provider = ConnectionProvider objDBConn.Open ConnectionString objDBConn.execute("delete from Forum_REPLY where fd_sn = "&request("sn")&"") objDBConn.execute("delete from Forum_DISCUSSION where fd_sn = "&request("sn")&"") objDBConn.close set objDBConn = nothing end if %> ★台北爵士大樂團★TJO討論區 <% set objDBConn = Server.CreateObject("ADODB.Connection") objDBConn.Provider = ConnectionProvider objDBConn.Open ConnectionString if request.form("fc_sn")<>"" then fc_sn = cint(request.form("fc_sn")) else fc_sn = request.querystring("fc_sn") end if if fc_sn<>"" then fc_sn=cint(fc_sn) else fc_sn=1 end if keystr = keystr&"fc_sn="&fc_sn&"&" sqlstr = sqlstr&" and fc_sn="&fc_sn&" " if request.form("daynum")<>"" then daynum = cint(request.form("daynum")) else daynum = request.querystring("daynum") end if if daynum<>"" then daynum = cint(daynum) keystr = keystr&"daynum="&daynum&"&" date1 = dateadd("d",(cint(daynum)*(-1)),date()) sqlstr = sqlstr&" and (adddate>='"&date1&"') " end if set rs = objDBConn.execute("select * from Forum_CATEGORY where fc_sn="&fc_sn) if rs.eof=false then fc_name = Outputstr(rs("fc_name")) end if rs.Close set rs = nothing %>
<% set rs = Server.Createobject("ADODB.Recordset") '頁數設定1 page = 0 + request.querystring("page") if page = 0 then page = 1 index = page-1 end if strsql = "select * from Forum_DISCUSSION where fd_sn>0 "&sqlstr&" order by year(fd_adddate) desc ,month(fd_adddate) desc,day(fd_adddate) desc,hour(fd_adddate) desc,minute(fd_adddate) desc,second(fd_adddate) desc " rs.open strsql, objDBConn, 3 rs.pagesize = 10 count = rs.RecordCount pagenum = Fix(count/10) if count mod 10<>0 then pagenum=pagenum+1 end if %> <%if session("usersn")="1" then%> <%end if%> <% dim bg(1) bg(1)="#F1DDFF" bg(0)="#E9BBFF" if rs.eof=false then rs.absolutepage = page index = (page-1) * 10 + 1 for i=1 to rs.pagesize if rs.EOF = false then k = i mod 2 if index=0 then index=1 end if adddate = rs("fd_adddate") replydate = rs("fd_replydate") if replydate<>"" then adddate=replydate end if links = "forum3.asp?sn="&rs("fd_sn")&"&fc_sn="&fc_sn set rs2 = objDBConn.execute("select count(*) from Forum_REPLY where fr_sn>0 and fd_sn="&rs("fd_sn")&" ") fr_num=rs2(0) %> <%if session("usersn")="1" then%> <%end if%> <% index = index + 1 else exit for end if rs.movenext next else %> <% end if set rs = nothing %>
<%if session("nickname")<>"" then%>歡迎您，<%=session("nickname")%>！<%end if%><%if session("usersn")="" then%> <%else%> <%end if%>
討論主題
留言人數
最新張貼時間
管理
<%=fr_num%>
<%=adddate%>
目前無資料

<% url = request.servervariables("SCRIPT_NAME") & "?"&keystr listnum = request.querystring("listnum") if listnum="" then listnum=0 end if if pagenum>1 then %> <% maxpage = (listnum+1)*10 for j=listnum*10+1 to maxpage if j>pagenum then exit for end if if j=page then %><% else %><% end if %><% next %>
<% if listnum>0 and pagenum>10 then thispage = ((listnum-1)*10)+1 %><% end if %> <%=j%><%=j%><% if maxpage < pagenum and pagenum>10 then thispage = ((listnum+1)*10)+1 %> <% end if%>
<%end if%>
<% objDBConn.close set objDBConn = nothing %>

website by chia-chi charlie chang