online.asp

一个美化的论坛程序

<!--#include file="top.asp"-->
<img src="" width="1" height="3">
<table width="680" border="0" cellspacing="1" cellpadding="1" bgcolor="<%=tablebackcolor%>" align=center>
  <tr> 
    <td bgcolor="<%=tabletitlecolor%>" height="20"> 
      <table width="100%" border="0" cellpadding="0" cellspacing="0" height="20">
        <tr> 
          <td width="73%"><font color=#ffffff><b> 在线用户名单</b></font></td>
          <td align="right"><font color="#FFFFFF">[<a href="USERLIST.ASP"><font color="#FFFFFF">所有用户</font></a>]</font>&nbsp;&nbsp;</td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td bgcolor="<%=tablebodycolor%>" height="25"> 
<%
stat="在线用户列表"
if Request.Cookies("bookbaby")("username")<>"" then
    set rs1=conn.execute("select username from online where username='"&Request.Cookies("bookbaby")("username")&"'")
    if not rs1.eof then
	conn.execute("update online set stat='"&stat&"',lasttime='"&now()&"' where username='"&Request.Cookies("bookbaby")("username")&"'")
    else
	conn.execute "insert into online(username,sex,stat,lasttime) values ('"&Request.Cookies("bookbaby")("username")&"',"&Request.Cookies("bookbaby")("usersex")&",'"&stat&"','"&now()&"')"
    end if
    set rs1=nothing
else
	conn.execute("delete * from online where datediff('n',lasttime,now())>20")
end if
sql="select * from online"
set rs=conn.execute (sql)
do while not rs.eof
i=i+1
	response.write "<img align=absmiddle src=images/"
if not rs("sex") then response.write "fe"
response.write "male.gif height=16 width=16>&nbsp;<a href=userinf.asp?name="&rs("username")&" target=_top title=当前位置:"&rs("stat")&">"
if rs("username")=Request.Cookies("bookbaby")("username") then
	response.write "<font color=f00000>"&rs("username")&"</font>"
else
	response.write rs("username")
end if
response.write "</a>&nbsp;&nbsp;"
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
    </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->