aspnetnet中即时消息发送的实现(编辑修改稿)

aspnetnet中即时消息发送的实现(编辑修改稿)内容摘要：

///////////////////当发送留言时 () Dim sql As String = insert into info(fromstu_id,tostu_id,content,term,tim) values(@fromstu_id,@tostu_id,@content,@term,@tim) Dim m As SqlCommand = New SqlCommand(sql, conn) (New SqlParameter(@fromstu_id, , 4)) (@fromstu_id).Value = Session(stu_id) (New SqlParameter(@tostu_id, , 4)) (@tostu_id).Value = tostu_id (New SqlParameter(@content, , 200)) (@content).Value = (New SqlParameter(@term, , 4)) (@term).Value = 1 (New SqlParameter(@tim, , 20)) (@tim).Value = () = End If ( script language=javascript alert(39。 发送成功。 39。 ) /script ) End Sub 39。 ////////////////////返回继续发送 Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () End Sub End Class 页面部分： %@ Page Language=vb AutoEventWireup=false Codebehind= Inherits=% !DOCTYPE HTML PUBLIC //W3C//DTD HTML Transitional//EN HTML HEAD title /title meta content=Microsoft Visual name=GENERATOR meta content=Visual Basic name=CODE_LANGUAGE meta content=JavaScript name=vs_defaultClientScript meta content= name=vs_targetSchema /HEAD body background=image/ MS_POSITIONING=GridLayout form id=Form1 method=post runat=server FONT face=宋体 asp:image id=Image3 style=ZINDEX: 111。 LEFT: 141px。 POSITION: absolute。 TOP:。