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

以前的的发送消息按钮事件改写如下：
'/////////////////////转到发送即时消息页面
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

[下一页]