怎样建立私人聊天室

[visual]

请问：当我用asp构建一个聊天室时，怎样实现建立私人聊天室？他是什么原理？，如方便，请给段源代码。谢谢!

[visual]

收到!谢谢斑竹.

[蝈蝈俊]

用session 判断。
我给您发了一个聊天室的代码。注意接受。

我是asp的斑竹，欢迎来到csdn

[mxp]

能否也给我一份！谢谢 [e-mail]

[mxp]

能否也给我一份！谢谢

[蝈蝈俊]

to: mxp
[e-mail] 没法收信，我发给您的又退回来了。

[mxp]

非常感谢您，能否再试一次，[e-mail] 如果不行的话，试试[e-mail]

[mxp]

致ghj1976十二分的谢意！。

[wweijie]

我也想要，能给我一份吗？E_mail:[e-mail]

[toll]

能不能给我一份，我想学学。[e-mail]

[weity]

i want get it!代码
thank you very much!

[e-mail]

[visual]

ghj1976 :
代码我已收到，并且看过，但其中好像没有创建私人聊天室那部分。
关于session,我没有想到如何进行之。
我本来是想用一个application(m)(n)的二维数组，但如此一来，那个m的取值无法确定（n当然还可以取40),而且也浪费了服务器的大量资源。您有什么好的想法是否可以再指点一二。(尤其是session)
再次感谢!

[xzou]

能否也给我一份！谢谢 [e-mail]

[蝈蝈俊]

1、那个m的取值无法确定：您可以用ReDim，
该示例使用 ReDim 语句为动态数组变量分配和重分配存储空间。假设 Option Base 是 1。

Dim MyArray() As Integer '声明动态数组。
Redim MyArray(5) '分配 5 个元素。
For I = 1 To 5 '循环 5 次。
MyArray(I) = I '初始化数组。
Next I

下一条语句重定义该数组的大小，并清除其中的元素。

Redim MyArray(10) '大小重定为 10 个元素。
For I = 1 To 10 '循环 10 次。
MyArray(I) = I '初始化数组。
Next I

下面的语句重定义该数组的大小，但没有清除其中的元素。

Redim Preserve MyArray(15) '大小重定为 15 个元素。

[stellaxyq]

能否也给我一份！我有急用
[e-mail]