<% 'dim in_count,str_rnd conn.execute("UPDATE [counter] SET [forum_acc]=[forum_acc]+1 where id=1") if datediff("d",rsidid("dateforcounter"),date())>=1 then conn.execute("UPDATE [counter] SET [forum]=0 where id=1") conn.execute("UPDATE [config_setting] SET [dateforcounter]=#"& date() &"# where ID=1") else conn.execute("UPDATE [counter] SET [forum]=[forum]+1 where id=1") end if randomize timer str_rnd="" Rstring="abcdefghijklmnopqrstuvwxyz0123456789" while in_count<>25 str_rnd=str_rnd&mid(Rstring,int(rnd(1)*36)+1,1) in_count=in_count+1 wend Dim Fo Set Fo = CreateObject("Scripting.FileSystemObject") Set FSO = CreateObject("Scripting.FileSystemObject") set money_info = conn.execute("select moneyname from moneyrule") moneyname = money_info(0) response.write "" sql="select * from config_setting" set rstitle=conn.execute(sql) %> <!--#include file="pow.asp"--> <% page_num=rstitle("reply_counts") response.write rsidid("bbsname") response.write "" response.write ""%> <%tid=request("tid") UserID=request.cookies("UserID") response.cookies("tid")=tid Set rs=Server.CreateObject("ADODB.Recordset") SQL = "Select * From id Where user='"&request.cookies("UserID")&"'" set rs11=conn.execute(SQL) '密碼確定 '******************************************************* Set rs_forum=Server.CreateObject("ADODB.Recordset") rs_forum.Open "Select * From tid Where tid="&request("tid"),conn,1,3 forum_cookies=bbsid+Cstr(tid)+request.cookies("UserID") if request.cookies(forum_cookies)="yes" or rs_forum("have_pass")=0 then '*********************刪除文章程序**************** if rsidid("en_save")=true then Set rs_delforum=Server.CreateObject("ADODB.Recordset") SQL="Select * From Titles where tid="&tid&" and best<>1 and top_lock<>1" rs_delforum.Open SQL,conn,1,3 While not rs_delforum.eof if rs_delforum("save_date")<>empty then if Datevalue(Dateadd("d",rs_delforum("save_date"),rs_delforum("CreateDate")))<=date then Set rs_del= Server.CreateObject("ADODB.Recordset") sql="select * from Details where TitleID="&rs_delforum("TitleID") rs_del.Open sql, conn,1,3 while not rs_del.EOF if rs_del("file")<>empty then master123=split(rs_del("file"),",") for i = 0 to ubound(master123) Set FSO = CreateObject("Scripting.FileSystemObject") if Fo.FileExists(Server.MapPath("./upload/"&master123(i))) then FileName = "upload/" & Trim(master123(i))'刪除回覆文章附件 FSO.DeleteFile Server.MapPath(Trim(FileName)),True end if next end if rs_forum("replycounts")=rs_forum("replycounts")-1 rs_forum.update rs_del.delete rs_del.movenext wend if rs_delforum("file")<>empty then master123=split(rs_delforum("file"),",") for i = 0 to ubound(master123) Set FSO = CreateObject("Scripting.FileSystemObject") if Fo.FileExists(Server.MapPath("./upload/"&master123(i))) then FileName = "upload/" & Trim(master123(i))'刪除文章附件 FSO.DeleteFile Server.MapPath(Trim(FileName)),True end if next end if rs_forum("counts")=rs_forum("counts")-1 rs_forum.update rs_delforum.delete end if end if rs_delforum.MoveNext Wend end if '*********************************************end** if request("mod")="best" then SQL="Select * From Titles where tid="&tid&" and best=1 and top_lock=0 order By LastNewsDate Desc" else SQL="Select * From Titles where tid="&tid&" and top_lock=0 order By LastNewsDate Desc" end if rs.Open SQL,conn,1,1 '*******************************************************%> " background="images/<%=rs_style("bg_img")%>"> <%response.write "
"&Request("msg")&"
" response.write "
" Page = cint(Request("Page")) myself=request.serverVariables("PATH_INFO") rs.PageSize =15 ' 設定每頁顯示 15 筆 If Page<1 Then Page=1 ELSEIF Page>rs.PageCount Then Page=rs.PageCount END IF response.write "
" %> <%response.cookies("tid")=tid%>
%"> <%response.write "

"%>

&mod=best>精華文章   

<%response.write "
"%>
%" height="46" id="AutoNumber1" bordercolorlight="#000000" bordercolordark="#000000"> <%'置頂**************************************************************************** IF Page=1 then sql="select * from Titles where tid=" & tid & " and top_lock=1 order by top_lock_order desc,LastNewsDate desc" set rs_lock=conn.execute(sql) if not rs_lock.EOf then while not rs_lock.eof%> <%Else%> &tid=<%=tid%>&postname=<%=rs_lock("Name")%>#<%=sortlast("DetailID")%>> <%End IF%> <%rs_lock.movenext wend end if end if '假使第一頁的end if '置頂結束****************************************************************************%> <%If rs.EOF Then response.write "
Sorry!!目前尚無留言...
" Else rs.AbsolutePage = Page ' 將資料錄移至 PAGE 頁 FOR SH=1 to rs.PageSize ' 顯示資料%> <%Else%> &tid=<%=tid%>&postname=<%=rs("Name")%>#<%=sortlast("DetailID")%>> <%End IF%> <%rs.MoveNext IF rs.EOF THEN EXIT FOR Next End If%>
" bgcolor="<%=rs_style("table_tit_color1")%>" height="27"> 狀態 " bgcolor="<%=rs_style("table_tit_color1")%>" height="27" width="50%"> 主題 " bgcolor="<%=rs_style("table_tit_color1")%>" height="27"> 作者 " bgcolor="<%=rs_style("table_tit_color1")%>" height="27"> 點閱數 " bgcolor="<%=rs_style("table_tit_color1")%>" height="27"> 回覆數 " bgcolor="<%=rs_style("table_tit_color1")%>" bgcolor="#000000" height="27"> 最後更新 " bgcolor="<%=rs_style("table_tit_color1")%>" bgcolor="#EFF4FE" height="28"> 關注
" bgcolor="<%=rs_style("table_bg_color")%>" bordercolor="#000000" align="center"> <%if rs_lock("reply_lock")=1 then response.write "" elseif rs_lock("count")>50 then response.write "" elseIF Now - rs_lock("LastNewsDate") < 1 then response.write "" else response.write "" end if%> " bgcolor="<%=rs_style("table_bg_color")%>">

<%if rs_lock("top_lock_order")=3 then response.write "【置頂III】" elseif rs_lock("top_lock_order")=2 then response.write "【置頂II】" elseif rs_lock("top_lock_order")=1 then response.write "【置頂I】" end if%> .gif" width=13 height=13 border=0> <%if rs_lock("best")=1 then%> <%end if%> &tid=<%=Request("tid")%>&postname=<%=rs_lock("Name")%>&noc=<%=str_rnd%>><%=rs_lock("subc")%><%=rs_lock("Subject")%><%if rs_lock("salemoney")<>0 or rs_lock("salemoney")<>null then response.write "   ﹝需要"&rs_lock("salemoney")&""&moneyname&"﹞"%><%if rs_lock("poll")=1 then%><%end if%> <%IF (Now - rs_lock("LastNewsDate"))<0.5 then response.write "" end if mxPages = rs_lock("replycount")/page_num if mxPages<>CInt(mxPages) then mxpages=Int(mxPages)+1 end if if (mxPages>1 and mxPages<=12) then Response.Write("
　　第") for counter = 1 to mxPages ref = " " & counter & "" response.write ref next Response.Write(" 頁。") elseif mxPages>12 then Response.Write("
　　第") for counter = 1 to 12 ref = " " & counter & "" response.write ref next response.write "......." las = " " & mxPages & "" response.write las Response.Write(" 頁。") end if '特殊選項 response.write "" Set passed3rs = Server.CreateObject("ADODB.Recordset") SQL = "Select * From tid where tid="&request("tid") passed3rs.Open SQL, conn,1,1 if passed3rs("tidadmin")<>"" then tidadmin=split(passed3rs("tidadmin"),"|") for i = 1 to ubound(tidadmin)-1 '檢驗版主 if tidadmin(i)=UserID and request.cookies("admin_pass")<>bbsid and rs_lock("Name")<>UserID then Response.Write "
         " & "刪除" Response.Write "" & "| 編輯" end if next end if If request.cookies("admin_pass")=bbsid Or rs_lock("Name")= UserID Then Response.Write "
         " & "刪除" Response.Write "" & "| 編輯" End If %>

 " bgcolor="<%=rs_style("table_bg_color")%>" align="center" bordercolor="#000000"> "><%=rs_lock("Name")%> " bgcolor="<%=rs_style("table_bg_color")%>"> 　<%=rs_lock("count")%> " bgcolor="<%=rs_style("table_bg_color")%>" align="center" bordercolor="#000000"> 　<%=rs_lock("replycount")%> " bgcolor="<%=rs_style("table_bg_color")%>">

<%if rs11 Is Nothing Or rs11.EOF Then%> <%=DateAdd("h",rstitle("servertimezone"),rs_lock("LastNewsDate"))%> <%else%> <%=DateAdd("h",rstitle("servertimezone")+rs11("timezone"),rs_lock("LastNewsDate"))%> <%end if%> <%sql="select * from Details where TitleID="&rs_lock("TitleID")&" order by DetailID Desc" set sortlast=conn.execute(sql)%>
by "><%=rs_lock("lastposter")%> <%If sortlast Is Nothing Or sortlast.EOF Then%> &tid=<%=tid%>&postname=<%=rs_lock("Name")%>>

">
" bgcolor="<%=rs_style("table_bg_color")%>" bordercolor="#000000" align="center"> <%if rs("reply_lock")=1 then response.write "" elseif rs("poll")=1 then response.write "" elseif rs("count")>50 then response.write "" elseIF Now - rs("LastNewsDate") < 1 then response.write "" else response.write "" end if%> " bgcolor="<%=rs_style("table_bg_color")%>">

.gif" width=13 height=13 border=0> <%if rs("best")=1 then%> <%end if%> &tid=<%=Request("tid")%>&postname=<%=rs("Name")%>&noc=<%=str_rnd%>> <%=rs("subc")%><%=rs("Subject")%><%if rs("salemoney")<>0 or rs("salemoney")<>null then response.write "   ﹝需要"&rs("salemoney")&""&moneyname&"﹞"%> <%if rs11 Is Nothing Or rs11.EOF Then%> (<%=Datevalue(DateAdd("h",rstitle("servertimezone"),rs("CreateDate")))%>) <%else%> (<%=Datevalue(DateAdd("h",rstitle("servertimezone")+rs11("timezone"),rs("CreateDate")))%>) <%end if%><%if rs("poll")=1 then%><%end if%> <%IF (Now - rs("LastNewsDate"))<0.5 then response.write "" end if mxPages = rs("replycount")/page_num if mxPages<>CInt(mxPages) then mxpages=Int(mxPages)+1 end if if (mxPages>1 and mxPages<=12) then Response.Write("
　　第") for counter = 1 to mxPages ref = " " & counter & "" response.write ref next Response.Write(" 頁。") elseif mxPages>12 then Response.Write("
　　第") for counter = 1 to 12 ref = " " & counter & "" response.write ref next response.write "......." las = " " & mxPages & "" response.write las Response.Write(" 頁。") end if '特殊選項 response.write "" Set passed2rs = Server.CreateObject("ADODB.Recordset") SQL = "Select * From tid where tid="&request("tid") passed2rs.Open SQL, conn,1,1 if passed2rs("tidadmin")<>"" then tidadmin=split(passed2rs("tidadmin"),"|") for i = 1 to ubound(tidadmin)-1 '檢驗版主 if tidadmin(i)=UserID and request.cookies("admin_pass")<>bbsid and rs("Name")<>UserID then Response.Write "
         " & "刪除" Response.Write "" & "| 編輯" end if next end if If request.cookies("admin_pass")=bbsid Or rs("Name")= UserID Then Response.Write "
         " & "刪除" Response.Write "" & "| 編輯" End If%>

 " bgcolor="<%=rs_style("table_bg_color")%>" align="center" bordercolor="#000000"> "><%=rs("Name")%> " bgcolor="<%=rs_style("table_bg_color")%>"> 　<%=rs("count")%> " bgcolor="<%=rs_style("table_bg_color")%>" align="center" bordercolor="#000000"> 　<%=rs("replycount")%> " bgcolor="<%=rs_style("table_bg_color")%>">

<%if rs11 Is Nothing Or rs11.EOF Then%> <%=DateAdd("h",rstitle("servertimezone"),rs("LastNewsDate"))%> <%else%> <%=DateAdd("h",rstitle("servertimezone")+rs11("timezone"),rs("LastNewsDate"))%> <%end if%> <%sql="select * from Details where TitleID="&rs("TitleID")&" order by DetailID Desc" set sortlast=conn.execute(sql)%>
by "><%=rs("lastposter")%> <%If sortlast Is Nothing Or sortlast.EOF Then%> &tid=<%=tid%>&postname=<%=rs("Name")%>>

">
%" height="10">
" bgcolor="<%=rs_style("table_tit_color1")%>" bordercolor="#000000">    <%SQL= "Select * From config_setting" Set bbsnamers=conn.Execute(SQL) %><%=bbsnamers("bbsname")%>論壇 論壇圖例        近期的文章    舊的文章    已鎖定的文章    熱門的文章  投票
<%If rs.PageCount=0 Then response.write "

頁次1/1

" Else response.write "
" response.write "

共"&rs.PageCount&"頁    " response.write "目前頁次"&Page&"    " If Page<>1 Then response.write "[1]" response.write "........." response.write "上一頁" End If If Page<>rs.PageCount Then response.write "下一頁" response.write "........." response.write "["&rs.PageCount-1&"]" response.write "["&rs.PageCount&"]" End If response.write "    輸入頁次:

" End If%> %" border="0">



%" height="22">
" bgcolor="<%=rs_style("table_bg_color")%>"><%sql="select * from config_setting" set rstitle=conn.execute(sql) response.write rstitle("bbsname") %>論壇 " bgcolor="<%=rs_style("table_bg_color")%>"> 回頂端
<%'******************************************************* else response.redirect "forum_check.asp?tid="&tid end if '********************************************************%>