% 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%>
歡迎新進成員
<%
SQL= "Select * From config_setting where ID=1 "
Set registrs=conn.Execute(SQL)
%>
"<%=registrs("newregist")%>" 加入
|
" bgcolor="<%=rs_style("table_bg_color")%>" colspan="6" width="5"
bordercolor="#D1D1D1" height="11">
| |||||
" 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 " |
" bgcolor="<%=rs_style("table_bg_color")%>">
>+ <%=rs("tidname")%>
">![]() ![]() <%=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
%> |