帮忙看看哪里错了

[renbin5566]

Partial Class 主页
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim i, j As Integer
Dim arr在线会员 As New ArrayList

'重新设置会员登录次数
If Application(Session("用户名") & "登陆次数") Is Nothing Then
i = 1
Else
i = Application(Session("用户名") & "登陆次数") + 1
End If

'把自己的名字加入到在线会员列表中去
If Not Application("在线会员") Is Nothing Then
arr在线会员 = Application("在线会员")
End If
arr在线会员.Add(Session("用户名"))

Application.Lock()
Application(Session("用户名") & "登陆次数") = i
Application("在线会员") = arr在线会员
For j = 0 To arr在线会员.Count - 1
Application(arr在线会员(j)) = Session("用户名") & "上线了！<br/>" & Application(arr在线会员(j))
Next


Label1.Text = Session("用户名") & "欢迎您<BR/>现在是" & Year(Now()) & "年" & Month(Now()) & "月" & Day(Now()) & "日" & Date.Now.DayOfWeek & "<br/>" & _
"您是第" & i.ToString & "次来到本聊天室,聊天室中有" & arr在线会员.Count & "人"

End Sub
End Class
重载决策失败，因为没有最适合这些参数的 Public“Item”:
'Public ReadOnly Property Item(index As Integer) As System.Object':
不是最特定的。
'Public Property Item(name As String) As System.Object':
不是最特定的。
行 26: Application(arr在线会员(j)) = Session("用户名") & "上线了！<br/>" & Application(arr在线会员(j))

[renbin5566]

我顶。。。。

[Teng_s2000]

Session("用户名") & "登陆次数

这是什么用法 啊没看明白

[wuyq11]

变量不要使用中文
arr在线会员 = TryCast(Application("在线会员"), ArrayList)
单独单步看看值是否为nothing

[renbin5566]

怎么不行啊

[wwfgu00ing]

怎么用中文做参数？
断点调试一下啊

[germ007]

learn