两个问题

Question

DateTime dt=DateTime.Now();
label.Text=dt.Hour.Tostring()+dt.Minute.ToString()+dt.Second.ToString();

Answer 1

1.用户登陆写入库
用户离开
OnSessenEnd()
{
//从库中删除
}

Answer 2

1--->先设一个application()变量，如
global文件
   dim allusers(50,1) as string=""'全局变量sub server_start()
 application("Allusers")=allusers
 application("usercount")=0
end sub
在登录页面中，协商
   dim tmpNow as string=now.tostring
   dim i as integer
   for i=0 to application("usercount")
         if application("allusers")(1) then'具体时间比较，忘了，自己想吧，
             dim j as integer‘然后提出用户
             for j=i to 49
                  application("allusers")(j,0)=application("allusers")(j+1,0)
                  application("allusers")(j,1)=application("allusers")(j+1,1)
             next
             exit sub
         end if
   next
   if (OK) then'判断
         application("Allusers")(application("usercount"),0)=allusers
         application("Allusers")(application("usercount"),1)=now().tostring
         application("usercount")+=1
    end if

Answer 3

用Application变量，可以很好的解决这个问题！

Answer 4

Application 不支持多线程，记录在数据库里（或存为xml文件）是精当写法。