%@ 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 %>
<%if uname="admin" then%> 发表公告 <%end if%> |
热烈欢迎新会员[<%=newuser("uname")%>]的加入!
|
论坛名称
|
主题数
|
发帖数
|
最后更新
|
版主
|
暂时没有论坛分类,请添加 |
<% if not ts.eof then %>
主题:" href="show.asp?forumid=<% =ts("forumid")%>&topic=<% =ts("topic")%>">
<% =left(ts("title"),15)%>
<% if len(ts("title"))>15 then %>
...
<%end if %>
<% end if %>
|
<% if not ts.eof then %>
最后发表:
<% =js("putname")%>
<%=format(js("writetime"))%> |
<% end if %>
当前在线 <% =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 %> |