<% conn.execute("UPDATE [counter] SET [index_acc]=[index_acc]+1 where id=1") if datediff("d",rsidid("dateforcounter"),date())>=1 then conn.execute("UPDATE [counter] SET [index]=0 where id=1") conn.execute("UPDATE [config_setting] SET [dateforcounter]=#"& date() &"# where ID=1") else conn.execute("UPDATE [counter] SET [index]=[index]+1 where id=1") end if function sum_anything(sql,rs) Set rs = conn.Execute(sql) i=0 while not rs.eof i=i+1 rs.movenext wend Response.Write ""& i &"" end function%> <%=rsidid("bbsname")%> " background="images/<%=rs_style("bg_img")%>"> <%if rstitle("bbs_close")=true then'假使論壇關閉 response.write "
抱歉!論壇因為以下原因暫時關閉!請勿發表文章或修改資料,以免造成遺失!" response.write "
"&rstitle("close_why")&"
" elseif rstitle("bbs_close")=false then'假使沒關閉 %>
<%=Request("msg")%> %" border="0">

歡迎新進成員 <% SQL= "Select * From config_setting where ID=1 " Set registrs=conn.Execute(SQL) %> "<%=registrs("newregist")%>" 
 <% StrA = "select * from id order by ID" StrB = "select * from Titles order by TitleID" StrC = "select * from Details order by DetailID" '***********************************************bank start************************************** if not isDate(request.cookies("logintime")) then response.cookies("logintime")=now:response.Cookies("logintime").Expires=FormatDateTime(DateAdd("d",3650,Date)) logintime = request.cookies("logintime") if date-dateserial(year(logintime),month(logintime),day(logintime)) then set rsm=conn.execute("select login from moneyrule") loginmoney=rsm(0) conn.execute("update id set [money]=[money]+"&CInt(loginmoney)&" where user='"&request.cookies("userid")&"'") response.Cookies("logintime") = Now response.Cookies("logintime").Expires=FormatDateTime(DateAdd("d",3650,Date)) end if '***********************************************bank end************************************** Response.Write "本論壇共計有" sum_anything StrA,rss Response.Write "位註冊會員,並有" sum_anything StrB,rss1 Response.Write "篇主題以及" sum_anything StrC,rss2 Response.Write "篇回覆文章。" %>

%" height="68" id="AutoNumber1" bordercolorlight="#F5F5F5" bordercolordark="#C0C0C0" STYLE="WORD-BREAK: break-all" background="images/<%=rs_style("table_bg_img")%>" bgcolor="<%=rs_style("table_bg_color")%>"> <% UserID=request.cookies("UserID") SQL = "Select * From id Where user='"&request.cookies("UserID")&"'" set rs11=conn.execute(SQL) If request.cookies("UserPassed")<>"yes" or rs11.eof Then %><% End If %> <% sql="select * from sort order by sort_order" set rs_sort=conn.execute(sql) if not rs_sort.EOf then while not rs_sort.EOf %> <% SQL= "Select * From tid where sort='"&rs_sort("sort_name")&"' Order By num " Set rs=conn.Execute(SQL) If rs.Eof Then Else While Not rs.EOF ' 顯示資料 %> <% rs.MoveNext Wend END IF rs_sort.movenext wend else response.write "

●無主論壇分類!!

" end if %>
" bgcolor="<%=rs_style("table_bg_color")%>" colspan="6" width="5" bordercolor="#D1D1D1" height="11">

<% response.cookies("TEST_COOKIE").Expires=date+365 response.cookies("TEST_COOKIE") = "testing" '登錄前必做!檢查COOKIE%> 會員登錄         用戶帳號:    帳號密碼:     (若是無法登入,請降低IE隱私權設定,請注意大小寫)

" bgcolor="<%=rs_style("table_tit_color1")%>" height="13" bordercolor="#E3E3E3">

狀態

" bgcolor="<%=rs_style("table_tit_color1")%>">

              分類名稱            

" bgcolor="<%=rs_style("table_tit_color1")%>">

主題數

" bgcolor="<%=rs_style("table_tit_color1")%>">

回覆數

" bgcolor="<%=rs_style("table_tit_color1")%>">

最後更新

" bgcolor="<%=rs_style("table_tit_color2")%>" bordercolor="#D1D1D1" height="11">◎<%=rs_sort("sort_name")%>↓
" bgcolor="<%=rs_style("table_bg_color")%>"> <%IF Now - rs("lastnewtime") < 1 then response.write "" else response.write "" end if%>   " bgcolor="<%=rs_style("table_bg_color")%>"> >+ <%=rs("tidname")%> ">發表新文章 <%if rs("have_pass")=1 then %>需要密碼<%end if%>
<%=rs("text")%>

版面管理員: <% if rs("tidadmin")<>"" then tidadmin=split(rs("tidadmin"),"|") for i = 1 to ubound(tidadmin)-1 response.write tidadmin(i) if tidadmin(i+1)<>empty then response.write " , " end if next end if %>
" bgcolor="<%=rs_style("table_bg_color")%>"><%=rs("counts")%> " bgcolor="<%=rs_style("table_bg_color")%>" align="center" bordercolor="#D1D1D1"><%=rs("replycounts")%> " bgcolor="<%=rs_style("table_bg_color")%>">

<% '************************************************************************** '判斷最新顯示的權限 sql="select * from tid where tid="&rs("tid") set rs_forum=conn.execute(sql) forum_cookies=bbsid+Cstr(rs("tid"))+request.cookies("UserID") if request.cookies(forum_cookies)="yes" or rs_forum("have_pass")=0 then '*************************************************************************** %> 文章:<%if rs("lasttitle")<>0 then sql="select * from Titles where TitleID="&rs("lasttitle") set rslast=conn.execute(sql) if not rslast.EOF then response.write ""&Left(rslast("Subject"),8)&"..."&"" end if elseif rs("lasttitle")=0 then response.write Left(rs("lasttitle2"),5)&"..." end if %>
最後:<%=rs("lastposter")%> 
<%=rs("lastnewtime")%> <% '************************************************************************** else response.write "抱歉,您無權限" end if '*************************************************************************** %>




%" 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")%>">
<%end if'論壇關閉的endif%>