BVB Source Codes

V2.0 flowers chat rooms Show onlineuser.asp Source code

Return Download V2.0 flowers chat rooms: download onlineuser.asp Source code - Download V2.0 flowers chat rooms Source code - Type:.asp
  1. <!--#INCLUDE FILE="inc_config.asp"-->
  2. <% response.expires=0 %>
  3. <html>
  4. <head>
  5. <title>在线人员列表</title>
  6. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  7. <meta http-equiv=refresh content='18;url=onlineuser.asp'>
  8. <style>
  9. <!--
  10. body      { font-size: 9pt; background-color: <%=m_bg2%> }
  11. td        { font-size: 9pt }
  12. A:link    { text-decoration: none;color: #000000 }
  13. A:visited { text-decoration: none;color: #FFFFFF }
  14. A:active  { text-decoration: none;color: #FFFFFF }
  15. A:hover   { text-decoration: none;color: #FFFFFF }
  16. -->
  17. </style>
  18. <script language="JavaScript">
  19. <!--
  20.  function selectwho(list)
  21.   { parent.frm_input.document.forms[0].towho.text=list;
  22.     parent.frm_input.document.forms[0].towho.value=list;
  23.     parent.frm_input.document.forms[0].saystemp.focus();
  24.     parent.overselectenable=false; }
  25. -->
  26. </script>
  27. </head>
  28.  
  29. <body>
  30.  
  31. <table bgcolor="<%=m_bg3%>" cellpadding="5" cellspacing="1" width="100%" align="right">
  32.   <tr bgcolor="<%=m_bg1%>">
  33.     <td align="center" style="color:<%=m_text1%>"><b>在线名单</b></td>
  34.   </tr>
  35.   <tr bgcolor="<%=m_bg2%>">
  36.     <td style="color:<%=m_text2%>"><% if session("user")="" then %>
  37.            <hr><p align="center">你已离开<br>请<a href="index.asp" target="_top">重新进入</a></p><hr>
  38.            <%
  39.            response.end
  40.                    end if %>
  41.            <a href="javascript:selectwho('大家');" title="选取大家作为谈话对象">大家</a><br>
  42.            <% men=0
  43.               for i=1 to 100
  44.                       if application("user"&i)<>"" then %>
  45.                  <a href="javascript:selectwho('<%=application("user"&i)%>');" title="选取 <%=application("user"&i)%> 作为谈话对象">
  46.                  <%=application("sex"&i)%> <%=application("user"&i)%>
  47. <%if session("userlevel")>2 then%>[<%=application("userlevel"&i)%>]
  48. <%end if%></a><br>
  49.                  <% men=men+1
  50.               end if
  51.                           next %>
  52.               <center>共 <% =men %> 人</center>
  53.      </td>
  54.     </tr>
  55.   </table>
  56. </body>
  57. </html>
  58.  
downloadonlineuser.asp Source code - Download V2.0 flowers chat rooms Source code
Related Source Codes/Software:
WebSMS online chat system - A web-based chat tool, it does not need to install... 2016-09-16
Non-mainstream chat rooms (support virtual space) - This chat room mainly conveniently in the virtual ... 2016-09-16
Dream chatroom v1.2 Build 0523 - Based on "love strings if chat rooms" program modi... 2016-09-16
One hundred million people chat v3.0 - Classification of support chat, public and private... 2016-09-16
X-chat System v1.5 - Adopted more advanced technology of XMLHTTP + XML ... 2016-09-16
Red dragonfly chat rooms v4.00 dongdong beautify the version to be error-free - 1, the application to modify the program online, i... 2016-09-16
Ichat2.5 formal version of the video chat program - Ichat2.5 formal version of the video chat program 2016-09-16
Draw two alumni source code - This source code is free release, free communicati... 2016-09-16
Sega school green version of the site management system - Sega school green version 2016-09-16
Free and unfettered access statistics system - A set of simple, rapid access statistics program, ... 2016-09-16
envoy - Python Subprocesses for Humans ™. 2017-05-08
wide - 2017-05-08
vincent - A Python to Vega translator 2017-05-08
debugging-stories - A collection of debugging stories. PRs welcome :-)... 2017-05-08
cms.js - The Javascript Site Generator ... 2017-05-08
flannel - flannel is a network fabric for containers, design... 2017-05-08
nu - Nu is an interpreted Lisp that builds on the Objec... 2017-05-07
gobyexample - Go by Example https://gobye... 2017-05-07
nova - OpenStack Compute (Nova) ht... 2017-05-07
mio - Metal IO library for Rust 2017-05-07

 Back to top