onlineuser.asp

来自「此聊天室程序可运行在任何支持ASP的Web服务器中」· ASP 代码 · 共 59 行

ASP
59 行
字号 
<!--#INCLUDE FILE="inc_config.asp"-->
<% response.expires=0 %>
<html>
<head>
<title>在线人员列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv=refresh content='18;url=onlineuser.asp'>
<style>
<!--
body      { font-size: 9pt; background-color: <%=m_bg2%> }
td        { font-size: 9pt }
A:link    { text-decoration: none;color: #000000 }
A:visited { text-decoration: none;color: #666666 }
A:active  { text-decoration: none;color: #FFFFFF }
A:hover   { text-decoration: none;color: #FFFFFF }
-->
</style>
<script language="JavaScript">
<!--
 function selectwho(list)
  { parent.frm_input.document.forms[0].towho.text=list;
    parent.frm_input.document.forms[0].towho.value=list;
    parent.frm_input.document.forms[0].saystemp.focus();
    parent.overselectenable=false; }
-->
</script>
</head>

<body>
<div align="center">站长<font color="#FF00CC">Q</font><font color="#FF00FF"><font color="#0033FF">Q</font></font>:2166559 
</div>
<table bgcolor="<%=m_bg3%>" cellpadding="5" cellspacing="1" width="100%" align="right">
  <tr bgcolor="<%=m_bg1%>"> 
    <td align="center" style="color:<%=m_text1%>"><b>在线名单</b></td>
  </tr>
  <tr bgcolor="<%=m_bg2%>"> 
    <td style="color:<%=m_text2%>"><% if session("user")="" then %> 
           <hr><p align="center">你已离开<br>请<a href="index.asp" target="_top">重新进入</a></p><hr>
           <%
           response.end
		   end if %>
           <a href="javascript:selectwho('大家');" title="选取大家作为谈话对象">大家</a><br>
           <% men=0
              for i=1 to 100
		      if application("user"&i)<>"" then %>
                 <a href="javascript:selectwho('<%=application("user"&i)%>');" title="选取 <%=application("user"&i)%> 作为谈话对象">
                 <%=application("sex"&i)%> <%=application("user"&i)%>
<%if session("userlevel")>2 then%>[<%=application("userlevel"&i)%>]
<%end if%></a><br>
                 <% men=men+1 
              end if
			  next %> 
              <center>共 <% =men %> 人</center> 
     </td>
    </tr>
  </table>
</body>
</html>

onlineuser.asp - 源码说明

本页面展示了「此聊天室程序可运行在任何支持ASP的Web服务器中」中的 onlineuser.asp 源码文件，采用 ASP 编程语言编写，共 59 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?