<%@ CODEPAGE = "936" %> <% Option Explicit '这一句是非常重要的, 它可以确保所看到的数据不是缓存在客户端的数据, '而是服务器端随时更新过的最新数据 Response.Expires = 0%> <% ip =request("REMOTE_ADDR") logtime=year(date)&fmonth&fday&fhour&fminute set forum=server.createobject("adodb.recordset") forum.open("select*from forum "),conn,1,1 conn.execute("delete from online where logtime<'"&logtime&"'-10") if uname<>"" then set online=server.createobject("adodb.recordset") online.open("select*from online where uname like '"&uname&"'"),conn,1,1 if online.eof then conn.execute("insert into online (uname,logtime,ip) values('"&uname&"','"&logtime&"','"&ip&"')") end if else set online=server.createobject("adodb.recordset") online.open("select*from online where ip like '"&ip&"'"),conn,1,1 if online.eof then conn.execute("insert into online (uname,logtime,ip) values('访客','"&logtime&"','"&ip&"')") end if end if dim newuser set newuser=server.createobject("adodb.recordset") newuser.open("select uname from user order by id desc"),conn,1,1 %> <% =bbsname%>
<%if uname="admin" then%> 发表公告 <%end if%>
热烈欢迎新会员[<%=newuser("uname")%>]的加入!
<% if forum.eof then response.write"
论坛名称
主题数
发帖数
最后更新
版主
暂时没有论坛分类,请添加
" else do while not forum.eof %> <% forumid=forum("forum_id")%> <% =forum("forum_name")%> <% set rs=server.createobject("adodb.recordset") rs.open("select*from default where forumid like '"& forumid &"'"),conn,1,1 %> <% while not rs.eof %> <% dim ts set ts=server.createobject("adodb.recordset") ts.open("select*from view where forumid like '"& rs("id") &"' and reply=0 order by writetime desc"),conn,1,1 %> <% if not ts.eof then dim js set js=server.createobject("adodb.recordset") js.open("select*from view where forumid like '"& ts("forumid") &"' and topic like '"& ts("topic")&"' order by writetime desc"),conn,1,1 end if %>
<% if rs("lock")=true then response.write"" else if ts.eof then response.write"" else if js("writetime")>date() then response.write"" else response.write"" end if end if end if %>
<% if rs("lock")<>true then response.write"
" else response.write "" end if response.write rs("title") response.write "
—" response.write rs("help") response.write "
" %>
<% =ts.recordcount%>
<% set ls=server.createobject("adodb.recordset") ls.open("select*from view where forumid like '"& rs("id") &"'"),conn,1,1 %>
<% =ls.recordcount%>
<% end if %>
<% if not ts.eof then %> 最后发表: <% =js("putname")%>
<%=format(js("writetime"))%>
<% dim ms set ms=server.createobject("adodb.recordset") ms.open("select*from master where forum_id like '"& rs("id") &"'"),conn,1,1 %> <% do while not ms.eof %>
<% =ms("master_name") %>
<% ms.movenext loop %>
<% rs.movenext %> <% wend %> <% forum.movenext %> <% loop %> <% rs.close set rs=nothing ts.close set ts=nothing ms.close set ms=nothing ls.close set ls=nothing forum.close set forum=nothing online.close set online=nothing%>
<% set online=server.createobject("adodb.recordset") online.open("select uname from online"),conn,1,1 %>
当前在线 <% =online.recordcount %> 人
<% do while not online.eof %> <% if online("uname")="访客" then %> <% else %> <% end if %> <% =online("uname")%>   <% online.movenext%> <%loop%>

您的个人状态
<% if uname<>"" then response.write"欢迎 " response.write uname response.write" 您的光临!" else response.write"您现在的身份是游客!" end if %>
<% if uname="" then %> 你必须注册并登陆后才能查看你的悄悄话。
<% end if %> 您的 IP 是: <% =request("REMOTE_ADDR")%>  操作系统: <% =strTempUserInfo2 %> ,浏览器: <% =strTempUserInfo1 %>
<% if uname<>"" then %> <% dim gs set gs=server.createobject("adodb.recordset") gs.open("select*from guestbook where uname like '"& uname &"' order by id desc"),conn,1,1 %> <% =uname%> - 你有 <% =gs.recordcount %> 条悄悄话! <% if gs.recordcount<>0 then %> 最后一条是由"> <% =gs("putname")%> 发送的!阅读悄悄话 <% gs.close set gs=nothing %> <% end if %> <% end if %>
<% end if %>
有新帖 无新帖 已锁定