改写即时消息的发送，包含同时给多人发送信息！
点击次数：18 次 发布日期：2008-11-26 15:33:16 作者：源代码网
|
源代码网推荐 "/////////////////////转到发送即时消息页面 源代码网推荐 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 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 这里发送信息的页面由于修改的比较多，所以把全部代码全都抓来了，呵呵：） 源代码网推荐 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. 源代码网推荐 <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() 源代码网推荐 源代码网推荐 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() 源代码网推荐 dr = comm.ExecuteReader 源代码网推荐 While dr.Read 源代码网推荐 Label3.Text = dr.Item("nick") 源代码网推荐 Label4.Text = dr.Item("tim") 源代码网推荐 Label5.Text = " " & dr.Item("content") 源代码网推荐 TextBox1.Text = dr.Item("nick") 源代码网推荐 TextBox3.Text = dr.Item("fromstu_id") 源代码网推荐 TextBox1.Enabled = False 源代码网推荐 Label8.Visible = False 源代码网推荐 Label11.Visible = False 源代码网推荐 End While 源代码网推荐 dr.Close() 源代码网推荐 comm.Cancel() 源代码网推荐 "//////////////////////更新留言使留言属性为已阅读过 源代码网推荐 Dim sql_1 As String = "update info set term=0 where tostu_id="" & Session("stu_id") & "" and term=1 and tim="" & Label4.Text & """ 源代码网推荐 comm = New SqlCommand(sql_1, conn) 源代码网推荐 comm.ExecuteNonQuery() 源代码网推荐 Else 源代码网推荐 "////////////////////当发送留言时 源代码网推荐 "/////////////////读取参数 源代码网推荐 Dim i As Integer 源代码网推荐 For i = 0 To UBound(splitname) - 1 源代码网推荐 Dim mysql As String = "select nick from pwd where stu_id="" & splitname(i) & """ 源代码网推荐 Dim comm As SqlCommand = New SqlCommand(mysql, conn) 源代码网推荐 Dim dr As SqlDataReader 源代码网推荐 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了：） 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
