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

If i = 0 Then
   conn.Open()
   dr = comm.ExecuteReader
   If dr.Read Then
   TextBox1.Text = Trim(dr.item("nick")) & ";"
   End If
   control()
   dr.close()
   Else
   dr = comm.ExecuteReader
   If dr.Read Then
   TextBox1.Text = TextBox1.Text & Trim(dr.item("nick")) & ";"
   End If
   control()
   dr.close()
   End If
   Next i
   End If
   End If
   End Sub
   '/////////////////control事件，没有什么实际意义，使代码简单罢了。
   Sub control()
   TextBox1.Enabled = False : Label3.Text = "" : Label4.Text = "" : Label5.Visible = False
   Label8.Visible = True : Label6.Visible = False : Label7.Visible = False : Label9.Visible = False
   Button3.Visible = False : Label11.Visible = True
   Label11.Text = "<a href=board.aspx><<<返回学友录</a>"
   End Sub
  
   '/////////////////书写提交消息事件
   Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   Dim tostu_id As String = Request.QueryString("tostu_id")
   Dim splitname() As String
   splitname = Split(tostu_id, "@")
   If tostu_id = "" Then
   '/////////////////////////当回复留言时
   If TextBox2.Text = "" Or TextBox2.Text = " " Then
   Label10.Visible = True
   Label10.Text = "消息不能为空！"
   Return
   Else
   Label10.Visible = False
   conn.Open()
   Dim sql As String = "insert into info(fromstu_id,tostu_id,content,term,tim) values(@fromstu_id,@tostu_id,@content,@term,@tim)"
   Dim comm As SqlCommand = New SqlCommand(sql, conn)
   comm.Parameters.Add(New SqlParameter("@fromstu_id", SqlDbType.Int, 4))
   comm.Parameters("@fromstu_id").Value = Session("stu_id")
  
   comm.Parameters.Add(New SqlParameter("@tostu_id", SqlDbType.Int, 4))
   comm.Parameters("@tostu_id").Value = TextBox3.Text
  
   comm.Parameters.Add(New SqlParameter("@content", SqlDbType.VarChar, 200))
   comm.Parameters("@content").Value = TextBox2.Text
  
   comm.Parameters.Add(New SqlParameter("@term", SqlDbType.Int, 4))
   comm.Parameters("@term").Value = "1"
  
   comm.Parameters.Add(New SqlParameter("@tim", SqlDbType.Char, 20))
   comm.Parameters("@tim").Value = Date.Now
   comm.ExecuteNonQuery()
   'TextBox2.Text = ""
   End If
   Else
   '/////////////////////////当发送留言时
   If TextBox2.Text = "" Or TextBox2.Text = " " Then
   Label10.Visible = True
   Label10.Text = "消息不能为空！"
   Return
   Else
   '////////////////插入i条数据
   Dim i As Integer
   For i = 0 To UBound(splitname) - 1
   Label10.Visible = False
   If i = 0 Then
   conn.Open()
   Else
   End If
   Dim sql As String = "insert into info(fromstu_id,tostu_id,content,term,tim) values(@fromstu_id,@tostu_id,@content,@term,@tim)"
   Dim comm As SqlCommand = New SqlCommand(sql, conn)
   comm.Parameters.Add(New SqlParameter("@fromstu_id", SqlDbType.Int, 4))
   comm.Parameters("@fromstu_id").Value = Session("stu_id")
  
   comm.Parameters.Add(New SqlParameter("@tostu_id", SqlDbType.Int, 4))
   comm.Parameters("@tostu_id").Value = splitname(i)
  
   comm.Parameters.Add(New SqlParameter("@content", SqlDbType.VarChar, 200))
   comm.Parameters("@content").Value = TextBox2.Text
  
   comm.Parameters.Add(New SqlParameter("@term", SqlDbType.Int, 4))
   comm.Parameters("@term").Value = "1"
  
   comm.Parameters.Add(New SqlParameter("@tim", SqlDbType.Char, 20))
   comm.Parameters("@tim").Value = Date.Now
   comm.ExecuteNonQuery()
   'TextBox2.Text = ""
   Next i
   End If
   End If
   Response.Write("<script language=javascript>alert('发送成功！')</script>")
   End Sub
  
   '////////////////////返回继续发送
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
   Response.Redirect("boaman.aspx")
   End Sub
  
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
   Response.Write("<script language=javascript>window.close()</script>")
   End Sub
  End Class
  
  
  感谢laodeng了：）  做人要厚道，请注明转自chinazhan中国站长(www.ChinaZhan.com)。