2.8w+
社区成员
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
ChinaOk 2002-05-18
http://www.chinaok.net/Examples
vbs的中文手册。
rnd随机数
你可以招到一些文章看看。
搜索。
http://www.dev-club.com
vbs的中文手册。
rnd随机数
你可以招到一些文章看看。
搜索。
http://www.dev-club.com
possible_Y 2002-05-18
split(string,x)将字符串string以字符x分割开后存入数组
micher_yan 2002-05-18
用户离开的时候，因为无法准确的知道他是正常/非正常推出，所以推荐的方法是使用Session_onend解决。不过可以用另外一个办法，就是每个人在刷新名单的时候，首先刷新自己名字对应的时间，然后检查所有人的对应时间，发现超时（如2分钟）则把他从Application中cut,
liuxk 2002-05-18
为什么用户离开时的统计会那么复杂？SPLIT是什么函数？
liuxk 2002-05-18
rnd*3 做何解
ChinaOk 2002-05-18
上面的计数器显示的时有点假的人数。就是那个rnd部分。
ChinaOk 2002-05-18
计数器
<SCRIPT LANGUAGE="VBSCRIPT" RUNAT="SERVER">
Sub Application_onStart
'当网站服务器启动时会执行这个过程
Application("c_onLine")="" '在线用户列表
Application("c_Num")=0 '人数
End sub
Sub Application_onEnd
End sub
Sub Session_onStart
'当有人访问时会触发这个过程。
Session.Timeout=10
sID=cstr(Session.SessionID) & "|" '用户标识
Application.Lock
Application("c_onLine")=Application("c_onLine") & sID
Application("c_Num")=Application("c_Num")+int(rnd*3)
Application.UnLock
End sub
Sub Session_onEnd
'用户离开时触发。
'Session.SessionID是系统分配的 ，可以唯一的标识一个用户的 id标识符
dim NewList(),onLineAry,NewUserStr,i,onLineNum,user
user=cstr(Session.SessionID)
onLineNum=0
Application.Lock
onLine=Application("c_onLine")
onLineAry=split(onLine,"|")
for i=0 to ubound(onLineAry)
if (onLineAry(i)<>user) and (onLineAry(i)<>"") then
redim preserve NewList(i)
NewList(i)=onLineAry(i)
onLineNum=onLineNum+1
end if
next
if onLineNum<=3 then onLineNum=onLineNum+int(rnd*8)
Application("c_Num")=onLineNum
if onLineNum=0 then
Application("c_onLine")=""
else
Application("c_onLine")=join(NewList,"|")
end if
Application.UnLock
End sub
</Script>
<SCRIPT LANGUAGE="VBSCRIPT" RUNAT="SERVER">
Sub Application_onStart
'当网站服务器启动时会执行这个过程
Application("c_onLine")="" '在线用户列表
Application("c_Num")=0 '人数
End sub
Sub Application_onEnd
End sub
Sub Session_onStart
'当有人访问时会触发这个过程。
Session.Timeout=10
sID=cstr(Session.SessionID) & "|" '用户标识
Application.Lock
Application("c_onLine")=Application("c_onLine") & sID
Application("c_Num")=Application("c_Num")+int(rnd*3)
Application.UnLock
End sub
Sub Session_onEnd
'用户离开时触发。
'Session.SessionID是系统分配的 ，可以唯一的标识一个用户的 id标识符
dim NewList(),onLineAry,NewUserStr,i,onLineNum,user
user=cstr(Session.SessionID)
onLineNum=0
Application.Lock
onLine=Application("c_onLine")
onLineAry=split(onLine,"|")
for i=0 to ubound(onLineAry)
if (onLineAry(i)<>user) and (onLineAry(i)<>"") then
redim preserve NewList(i)
NewList(i)=onLineAry(i)
onLineNum=onLineNum+1
end if
next
if onLineNum<=3 then onLineNum=onLineNum+int(rnd*8)
Application("c_Num")=onLineNum
if onLineNum=0 then
Application("c_onLine")=""
else
Application("c_onLine")=join(NewList,"|")
end if
Application.UnLock
End sub
</Script>
简易聊天室 简易聊天室本次实验的目的是通过以下题目掌握JSP内置对象，包括：request，response，session，application等。 (1)制作简易聊天室，能够实现简单的页面聊天功能。 (2)制作网页计数器，要求相同的窗口内刷新页面访问...
C#基础教程-c#实例教程，适合初学者 版本支持：系统中的组件或动态联接库可能要升级，由于这些组件或动态联接库都要在注册表中注册，由此可能带来一系列问题，例如，安装新程序时自动安装新组件替换旧组件，有可能使某些必须使用旧组件才可以运行的...
Application对象 简单的聊天室 使用Application对象可以使得多个用户在访问同一个asp.net应用程序时，能够共享信息，在多个用户同时访问asp.net时，都会产生一个Application对象。通常可以把共享的数据变量存储在Application对象的集合中，这些...
初识 Asp.Net内置对象之Application对象 Applocation对象用于共享应用程序级信息，即多个用户可以共享一个Applocation对象。 用户在请求Asp.Net文件时，将启动应用程序并且创建Application对象。一旦Application对象被创建，就可以共享和管理整个应用...
Application对象 简单的聊天室（16） 使用Application对象可以使得多个用户在访问同一个asp.net应用程序时，能够共享信息，在多个用户同时访问asp.net时，都会产生一个Application对象。通常可以把共享的数据变量存储在Application对象的集合中，这些...
网页聊天室制作步骤分享 结合网页与Asp来实现一个简单的网页聊天室制作案例，有在线聊天、在线人员名单、在线时间等功能。在这篇教程的最后，还比较详细地介绍了Flash与Asp结合使用的平台环境和常用的调试手段。 一、原理 主要的流程是先...
简谈application与session的区别 简谈application与session的区别 初学ASP的朋友,可能会对application与session这两个ASP对象感觉有一些疑惑。其实要了解这个对象的区别和功能的关键在于他们的作用域。application是一个公共的对象，当网站服务器...
多线程和聊天室 对于多核cpu或多cpu的电脑来说，才是真正意义上的单位时间内运行多个线程 说明：如果采用向导创建的Win32 Console程序选择的是空项目时，则以下使用方式是正确的，如果选择是”hello world”的简单应用程序时，则...
孙鑫MFC笔记(15)--多线程和聊天室的创建 孙鑫MFC笔记(15)--多线程和聊天室的创建 代码1分析： 说明：对于单核cpu的电脑来说，线程都在自己的时间片中运行，单位时间内，系统只能运行一个线程，交替运行；对于多核cpu或多cpu的电脑来说，才是真正意义上...
第五章Session和Application对象----学习笔记 利用session对象记载单个用户信息 什么是session？ Session信息保存在服务器端的一块内存区域中，当每一个用户开始访问时（也叫开始一个会话），服务器端就会给该用户建立一个session对象，在服务器端内存中给他...
孙鑫：第十五讲 多线程聊天室程序创建 孙鑫15课：多线程与聊天室程序的创建 程序，进程（32位进程，分配2的32次方，4GB，2GB内核分区，2GB用户分区。），线程 进程是线程容器。真正完成代码执行的是线程。主线程：main(),winmain（） 下面创建一个多...
用ASP建立一个简单的聊天室 经过一个阶段的asp学习,下面我们结合所学过的内容建立一个最简单的聊天室,虽然很简单,但是大家可以通过他来掌握一个聊天室建立的基本过程,并且可以不断的完善其功能. 下面介绍其主要步骤: 1,添加Global.asa文件里面...
jsp开发聊天室 本文简要介绍如何用jsp实现聊天室程序。聊天室的设计思路1. 功能、结构描述 用户注册登录，支持非注册访问。 用户登录时，输入用户名和密码，如果是第一次使用，会提示创建新用户。若为非注册用户提示注册，也可...
Application对象 1.定义：Application对象用于共享应用程序级信息，即多个用户共享一个Application对象。 2.常用集合 Application对象的常用集合 集合 说明 Contents 用于访问应用程序状态集合中的对象名 Static...
用asp建造自己的聊天室 聊天室想必你一定去过吧，但想不想建立自己的聊天室呢？其实这一点都不难，Active Server Script提供了Application对象和Session对象，Application对象代表了一个Active Server应用程序，也就是一个Web网页，Session...
cookie,session会话对象，application扫扫盲之你的信息怎么泄露的 小甜饼cookie是干什么的呢，首先它是由网络服务器生成，并发送给浏览器，小cookie可以记录用户名和密码，跟踪重复的用户，就像你吃下的小甜饼中有元素标记一样，会一直跟踪你，这时候你的信息会以key/value形式存在...
用ASP建造自己的聊天室 聊天室想必你一定去过吧，但想不想建立自己的聊天室呢？其实这一点都不难，Active Server Script提供了Application对象和Session对象，Application对象代表了一个Active Server应用程序，也就是一个Web网页，Session...
