Sub Session_OnStart
username= Session("username") //就差获得登陆用户的帐户名了。
CountTextPath=Server.MapPath("online_count.txt")
set LogFileObject =server.CreateObject("Scripting.FileSystemObject")
Set MyCountFile= LogFileObject.OpenTextFile(CountTextPath,8,true)
MyCountFile.WriteLine(username)
MyCountFile.Close
Set MyCountFile= LogFileObject.OpenTextFile(CountTextPath)
WHILE NOT MyCountFile.AtEndOfStream
online_workmates=online_workmates & MyCountFile.ReadLine & ","
WEND
MyCountFile.Close