online.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config_other.asp" -->
<!-- #include file="include/conn.asp" -->
<!-- #include file="include/conn_ip.asp" -->
<%
dim ip_cx,wt:wt=int(mid(web_setup,3,1))
tit="与我在线"

call web_head(0,0,0,0,0)
'------------------------------------left----------------------------------
call format_login()
response.write left_action("jt13",4)
'----------------------------------left end--------------------------------
call web_center(0)
'-----------------------------------center---------------------------------
response.write ukong
%>
<table border=0 width='98%'>
<tr><td align=center height=30><% call online_main() %></td></tr>
<tr><td align=center height=30><%response.write user_power_type(0)%></td></tr>
<tr><td align=center class=htd><%
select case wt
case 1
  response.write "<font class=red>本站现在已开启 <font class=blue>"&web_var(web_stamp,wt+1)&"</font> 模式！所有登陆和浏览本站的人被并记录在线列表。</font>"
case 2
  response.write "<font class=red>本站现在已开启 <font class=blue>"&web_var(web_stamp,wt+1)&"</font> 模式！本站的注册用户可以登陆，并记录用户在线列表。</font>"
case else
  response.write "<font class=red>本站现在已开启 <font class=blue>"&web_var(web_stamp,wt+1)&"</font> 模式！本站的注册用户可以登陆，不记录在线列表。</font>"
end select

response.write "<br>有关 <a href='help.asp?action=web'>网站模式</a> 的详细说明，请进入 <a href='help.asp?action=web'>网站帮助</a> 查看相关信息。"
%></td></tr>
<tr><td align=center height=5></td></tr>
</table>
<%
'---------------------------------center end-------------------------------
call web_end(0)

sub online_main()
  dim rssum,l_username
  if var_null(login_username)="" then
    response.write "<font class=blue>"
    if wt=1 then
      response.write request.cookies("joekoe_online")("guest_name")
    else
      response.write "游客"
    end if
    response.write "</font>，您好！"&web_var(web_error,2)
  else
    response.write "<font class=blue>"&login_username&"</font>，您好！欢迎您注册并登陆本站！您现在可以点击浏览其它栏目的详细内容。"
  end if

  if wt=0 then
    response.write "<tr><td></td></tr><tr><td height=200>"
    exit sub
  end if

  set rs=server.createobject("adodb.recordset")
  
  if wt=1 or wt=2 then
    sql="select user_login.*,user_data.power from user_data inner join user_login on user_login.l_username=user_data.username where user_login.l_type=0 order by user_login.l_id"
    rs.open sql,conn,1,1
    if rs.eof and rs.bof then
      rssum=0
    else
      rssum=rs.recordcount
    end if
%>
</td></tr>
<tr><td height=5></td></tr>
<tr><td><% response.write img_small("jt1") %><font class=red_3><b>在线会员</b></font>&nbsp;（<font class=red><% response.write rssum %></font>&nbsp;人）</td></tr>
<tr><td align=center height=150 valign=top>
  <table border=0 width='100%'>
  <tr><td width='20%'></td><td width='20%'></td><td width='20%'></td><td width='20%'></td><td width='20%'></td></tr>
<%
    do while not rs.eof
      response.write "<tr>"
      for i=1 to 5
        if rs.eof then exit for
        l_username=rs("l_username")
		if format_power(login_mode,2)=1 then
		ip_cx="<a href=ip_address.asp?ip="&ip_ip(rs("l_ip"))&">"&img_small("icon_"&rs("power"))&"</a>"
		else
		ip_cx=img_small("icon_"&rs("power"))
		end if
        response.write "<td>"&ip_cx&"<a href='user_view.asp?username="&server.urlencode(l_username)&"' title='目前位置："&rs("l_where")&"<br>来访时间："&rs("l_tim_login")&"<br>活动时间："&rs("l_tim_end")&"<br>真实IP："&ip_types(rs("l_ip"),l_username,0)&"<br>"&view_sys(rs("l_sys"))&"' target=_blank>"&l_username&"</a></td>"
        rs.movenext
      next
      response.write "</tr>"
    loop
    rs.close
    response.write "</table>"
  end if
  
  if wt=1 then
    sql="select * from user_login where l_type=1 order by l_id"
    rs.open sql,conn,1,1
    if rs.eof and rs.bof then
      rssum=0
    else
      rssum=rs.recordcount
    end if
%>
</td></tr>
<tr><td><% response.write img_small("jt12") %><font class=red_3><b>在线游客</b></font>&nbsp;（<font class=red><% response.write rssum %></font>&nbsp;人）</td></tr>
<tr><td align=center height=150 valign=top>
  <table border=0 width='98%'>
  <tr><td width='25%'></td><td width='25%'></td><td width='25%'></td><td width='25%'></td></tr>
<%  dim abc
    do while not rs.eof
      response.write "<tr>"
      for i=1 to 4
        if rs.eof then exit for
        l_username=rs("l_username")
		if l_username=request.cookies("joekoe_online")("guest_name") then
		abc="class=blue"
		else
		abc=""
		end if
		if format_power(login_mode,2)=1 then
		ip_cx="<a href=ip_address.asp?ip="&ip_ip(rs("l_ip"))&">"&img_small("icon_other")&"</a>"
		else
		ip_cx=img_small("icon_other")
		end if
        response.write "<td>"&ip_cx&"<font "&abc&" title='目前位置："&rs("l_where")&"<br>来访时间："&rs("l_tim_login")&"<br>活动时间："&rs("l_tim_end")&"<br>"&ip_types(rs("l_ip"),l_username,0)&"<br>"&view_sys(rs("l_sys"))&"' target=_blank>"&l_username&"</font></td>"
        rs.movenext
      next
      response.write "</tr>"
    loop
    rs.close
    response.write "</table>"
  end if
  set rs=nothing
end sub
%>