优秀的软件开发团队:深圳升蓝软件 数据库开发 .Net技术  |  ASP技术 PHP技术 JSP技术 应用技术类     
热门推荐
升蓝OA办公自动化系统
基于.Net技术的网络
协同办公环境
 
ASP基础
数据库相关
安全加密
全文检索
ASP应用
打印相关
客户端相关
XML相关
系统相关
正则表达式
ASP技巧
组件开发
脚本编码
FSO专题
邮件相关
远程脚本
性能优化
 
相关链接
深圳升蓝软件:系统集成、办公自动化平台、电子商务、电子政务、Web数据库、企业网站、游戏、手机应用程序、CDMA软件、电子出版物等,为客户提供优秀的解决方案
 
升蓝(www.hi-blue.com)为企业管理、政府办公提供成熟的、易于实施的IT技术服务,我们的解决方案包括OA办公自动化系统CRM客户关系管理系统ERP企业生产管理和订单管理系统电子政务系统、知识管理系统、企业门户、商业智能、工程项目管理等等...
 
电子政务解决方案
塑料/橡胶管理系统
知识管理系统简介
多媒体光盘方案
ERP企业资源管理
订单计划管理系统
PM工程项目管理系统
会员管理系统
相关资料下载
OA办公自动化系统
CRM客户关系管理系统
在线试用版本说明
OA 系统的用户手册
 
 
 
 
升蓝开发团队 > 技术资料 > ASP技术 > 打印相关 : 用asp显示当前在线用户信息,不是简单只显示人数那种?/td>

用asp显示当前在线用户信息,不是简单只显示人数那种?/H1>
March 25,2004

东子 于 00-9-3 上午 02:52:23 发表在:ASP地带

这里是show_users.asp的原程序
<%
If rstActiveUsers.RecordCount > 0 Then
    rstActiveUsers.MoveFirst

    Response.Write "<table border=""1"">" & vbCrLf

    Response.Write " <thead>" & vbCrLf
    Response.Write "  <th>Session Id</td>" & vbCrLf
    Response.Write "  <th>IP Address</th>" & vbCrLf
    Response.Write "  <th>User Agent</th>" & vbCrLf
    Response.Write "  <th>Session Start Time</th>" & vbCrLf
    Response.Write " </thead>" & vbCrLf

    Do While Not rstActiveUsers.EOF

        Response.Write " <tr>" & vbCrLf
        Response.Write "  <td>" & rstActiveUsers.Fields("id").Value & "</td>" & vbCrLf
        Response.Write "  <td>" & rstActiveUsers.Fields("ip").Value & "</td>" & vbCrLf
        Response.Write "  <td>" & rstActiveUsers.Fields("browser").Value & "</td>" & vbCrLf
        Response.Write "  <td>" & rstActiveUsers.Fields("started").Value & "</td>" & vbCrLf
        Response.Write " </tr>" & vbCrLf
        
        rstActiveUsers.MoveNext
    Loop
    Response.Write "</table>" & vbCrLf

End If
%>

这里是show_count.asp的原程序
<b><font color="#CC0000"><%= rstActiveUsers.RecordCount %></font> 在线用户</b>

数据库开发 | .Net技术 | ASP技术 | PHP技术 | JSP技术 | 应用技术类 | 升蓝开发小组
Copyright ? 2001-2004 Shenzhen Hi-blue Software Team 升蓝开发小组 All rights reserved