Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       If Not Page.IsPostBack Then
            Application("webform1_online") += 1
        End If
    End Sub
    Private Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Unload
        Application("webform1_online") -= 1
    End Sub

解决方案 »

  1.   

    谢谢 mynewpc(水中日月),还有请问:是注册用户要能显示出他的在线状态和个人信息,怎么来实现?谢谢大家帮忙!!!
      

  2.   

    我的办法是自己写为两个类,usercollenction,user,其中usercollection 是user的集合,把这些信息保存在数据库或是applicationVariables中。
      

  3.   

    把注册用户的在线状态和个人信息保存在session里.
      

  4.   

    如果你的站流量很大,同时在线用户很多,建议保存在数据库表里,若是用户较少,存到application或者static变量里就得了
      

  5.   

    补充一句:你们领导有毛病,要这功能干吗?有什么价值?http协议本身决定了即便你实现了,结果也不会绝对准确,而且要实现这个功能需要对你的现有系统做不少改动,且比较占用服务器资源,值吗?
      

  6.   

    谢谢大家热心帮助,呵呵, flyspider(飞天蜘蛛),现在的老板大都这样,他们也不懂,哎,苦了我们这些人啊!