|东莞产品包装设计|东莞海报设计|东莞PHP主机|东莞动态空间|东莞动态网页|网站建设东莞|网页设计东莞|东莞国际域名注册|东莞国内域名|网页空间申请东莞|东莞软件公司|东莞电脑外包服务|--用asp显示当前在线用户信息，不是简单只显示人数那种！[2](转)

建站必读

网站建设知识

网站推广研究

当前位置：首页 -> 建站必读 -> ASP技术

用asp显示当前在线用户信息，不是简单只显示人数那种！[2](转)

原作者：东子

在你要再线人数显示的地方的页首添加

<%@ Language=VBScript %>

<% Option Explicit %>

在你要再线人数显示的地方



详细列表



这里是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>

本站关键词：

|东莞产品包装设计|东莞海报设计|东莞PHP主机|东莞动态空间|东莞动态网页|网站建设东莞|网页设计东莞|东莞国际域名注册|东莞国内域名|网页空间申请东莞|东莞软件公司|东莞电脑外包服务||东莞产品包装设计|东莞海报设计|东莞PHP主机|东莞动态空间|东莞动态网页|网站建设东莞|网页设计东莞|东莞国际域名注册|东莞国内域名|网页空间申请东莞|东莞软件公司|东莞电脑外包服务||东莞产品包装设计|东莞海报设计|东莞PHP主机|东莞动态空间|东莞动态网页|网站建设东莞|网页设计东莞|东莞国际域名注册|东莞国内域名|网页空间申请东莞|东莞软件公司|东莞电脑外包服务||东莞产品包装设计|东莞海报设计|东莞PHP主机|东莞动态空间|东莞动态网页|网站建设东莞|网页设计东莞|东莞国际域名注册|东莞国内域名|网页空间申请东莞|东莞软件公司|东莞电脑外包服务||东莞产品包装设计|东莞海报设计|东莞PHP主机|东莞动态空间|东莞动态网页|网站建设东莞|网页设计东莞|东莞国际域名注册|东莞国内域名|网页空间申请东莞|东莞软件公司|东莞电脑外包服务||东莞产品包装设计|东莞海报设计|东莞PHP主机|东莞动态空间|东莞动态网页|网站建设东莞|网页设计东莞|东莞国际域名注册|东莞国内域名|网页空间申请东莞|东莞软件公司|东莞电脑外包服务||东莞产品包装设计|东莞海报设计|东莞PHP主机|东莞动态空间|东莞动态网页|网站建设东莞|网页设计东莞|东莞国际域名注册|东莞国内域名|网页空间申请东莞|东莞软件公司|东莞电脑外包服务||东莞产品包装设计|东莞海报设计|东莞PHP主机|东莞动态空间|东莞动态网页|网站建设东莞|网页设计东莞|东莞国际域名注册|东莞国内域名|网页空间申请东莞|东莞软件公司|东莞电脑外包服务||东莞产品包装设计|东莞海报设计|东莞PHP主机|东莞动态空间|东莞动态网页|网站建设东莞|网页设计东莞|东莞国际域名注册|东莞国内域名|网页空间申请东莞|东莞软件公司|东莞电脑外包服务|