无法显示在线人数？就是用Application("onlinecount")

Imports System
Imports System.ComponentModel.Design
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.HttpApplicationState
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports Microsoft.VisualBasic
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码        If UserName = "" Or IsDBNull(UserName) Then
            Response.Write("<script language='javascript'>")
            Response.Write("top.location.href='../EIMS/Login.aspx';")
            Response.Write("</script>")
            Return
        End If
        Me.EIMS_USER.Text = "您好〖" & UserRealName & "〗"
        Me.EIMS_ONLINE.Text = "在线" + Application("onlinecount") + "人"    End SubEnd Class请问：怎么无法显示在线人数？就是用Application("onlinecount")