改写即时消息的发送，包含同时给多人发送信息！

改写即时消息的发送，包含同时给多人发送信息！2010-12-20以前的的发送消息按钮事件改写如下：

"/////////////////////转到发送即时消息页面
Private Sub Button3_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles Button3.Click
Dim i, j As Integer
j = 0
Dim tostu_id As String = ""
For i = 0 To mycheck.Items.Count - 1
If mycheck.Items（i）.Selected Then
"////////////////////////限制发送条数
j = j + 1
If j < 6 Then
"/////////////////////参数构造
tostu_id = tostu_id & CheckBoxList1.Items（i）.Text & "@"
Else
Label2.Visible = True
Label2.Text = "一次最多能给五个用户发送信息！"
Return
"Response.Write（"<script language=JavaScript>window.open（"info.aspx？tostu_id=" & CheckBoxList1.Items（i）.Text,"","height=330,width=560,status=no,location=no,toolbar=no,directories=no,menubar=no"）</script>"）
End If
End If
Next i
Response.Redirect（"info.aspx？tostu_id=" & tostu_id）
End Sub

这里发送信息的页面由于修改的比较多，所以把全部代码全都抓来了，呵呵：）