|
|||||||||||||||||
| 改写即时消息的发送，包含同时给多人发送信息！ |
|
|
'/////////////////////转到发送即时消息页面 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("") End If End If Next i Response.Redirect("info.aspx?tostu_id=" & tostu_id) End Sub 这里发送信息的页面由于修改的比较多，所以把全部代码全都抓来了，呵呵：） codebebind部分： Imports System.Data Imports System.Data.SqlClient Public Class info Inherits System.Web.UI.Page Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents Label2 As System.Web.UI.WebControls.Label Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox Protected WithEvents Button1 As System.Web.UI.WebControls.Button Protected WithEvents Button2 As System.Web.UI.WebControls.Button Protected WithEvents Label3 As System.Web.UI.WebControls.Label Protected WithEvents Label4 As System.Web.UI.WebControls.Label Protected WithEvents Label5 As System.Web.UI.WebControls.Label Protected WithEvents Label6 As System.Web.UI.WebControls.Label Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox Protected WithEvents Image3 As System.Web.UI.WebControls.Image Protected WithEvents Label8 As System.Web.UI.WebControls.Label Protected WithEvents Label7 As System.Web.UI.WebControls.Label Protected WithEvents Label9 As System.Web.UI.WebControls.Label Protected WithEvents Label10 As System.Web.UI.WebControls.Label Protected WithEvents Button3 As System.Web.UI.WebControls.Button Protected WithEvents Label11 As System.Web.UI.WebControls.Label Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: This method call is required by the Web Form Designer 'Do not modify it using the code editor. InitializeComponent() End Sub #End Region Dim conn As SqlConnection = New SqlConnection("server=lixinri;uid=sa;pwd=;database=99re1") Public Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not IsPostBack Then Dim tostu_id As String = Request.QueryString("tostu_id") Dim splitname() As String '///////////这里用了Split函数将传过来的参数取出 splitname = Split(tostu_id, "@") If tostu_id = "" Then '//////////////////当回复留言时 Dim sql As String = "select a.*,b.nick from info a,pwd b where a.fromstu_id=b.stu_id and a.tostu_id='" & Session("stu_id") & "' and a.term=1" Dim comm As SqlCommand = New SqlCommand(sql, conn) Dim dr As SqlDataReader conn.Open() & |
|
| 上一篇:.net中即时消息发送的实现…… 下一篇:ASP.NET中WebForm组件CheckBoxList编程(1) |
| 大部分文章摘自网上，如有侵犯您的权益请与我们联系，我们会第一时间进行处理，谢谢! | [ 打印文章 ] [ 关闭窗口 ] |