为了发送一条即时消息到页面。
私有子button3_click（ByVal sender系统。对象，ByVal E系统。EventArgs）处理
暗i，j为整数
J = 0
昏暗的tostu_id =字符串
我mycheck.items.count = 0 - 1
如果mycheck。（我）然后选择项目。
对一些传输的限制
j = j + 1
如果J，则为结构参数。
tostu_id = tostu_id checkboxlist1。项目（我）。文字@
其他的
label2。可见=真
label2。文本=一次最大可发送五个用户！
返回
response.write（）
最后如果
最后如果
下一个我
响应。重定向（的信息。aspxtostu_id =tostu_id）
端子
在这里发送信息的页面被修改得更多，所以所有的代码都被捕获了。
codebebind部分：
导入系统。
进口system.data.sqlclient
信息公开课
继承system.web.ui.page
为保护system.web.ui.webcontrols.label WithEvents label1
作为system.web.ui.webcontrols.label WithEvents Label2的保护
为保护system.web.ui.webcontrols.textbox WithEvents textBox2
保护WithEvents Button1为system.web.ui.webcontrols.button
保护WithEvents button2为system.web.ui.webcontrols.button
保护中的代码块为label3作为system.web.ui.webcontrols.label WithEvents
保护label4作为system.web.ui.webcontrols.label WithEvents
保护label5作为system.web.ui.webcontrols.label WithEvents
保护label6作为system.web.ui.webcontrols.label WithEvents
保护textbox3作为system.web.ui.webcontrols.textbox WithEvents
图3为保护system.web.ui.webcontrols.image WithEvents
保护label8作为system.web.ui.webcontrols.label WithEvents
保护label7作为system.web.ui.webcontrols.label WithEvents
保护label9作为system.web.ui.webcontrols.label WithEvents
保护label10作为system.web.ui.webcontrols.label WithEvents
为保护system.web.ui.webcontrols.button WithEvents按钮
保护label11作为system.web.ui.webcontrols.label WithEvents
为保护system.web.ui.webcontrols.textbox WithEvents textBox1
#区Web窗体设计器生成的代码
这个调用是Web表单设计器所要求的。
Sub InitializeComponent（私人）
端子
私有子page_init（ByVal sender系统。对象，ByVal E系统。EventArgs）处理
'CODEGEN:此方法调用Web窗体设计器所必需的
不要使用代码编辑器修改它。
initializecomponent（）
端子
#端区域
昏暗的Conn SqlConnection =新的SqlConnection（服务器= lixinri；UID = SA；pwd=；数据库= 99re1 ）
公共子page_load（ByVal sender系统。对象，ByVal E系统。EventArgs）处理
如果Not IsPostBack再
昏暗的tostu_id是字符串request.querystring（tostu_id ）
昏暗的splitname（）为字符串
在这里使用拆分函数参数
splitname =分裂（tostu_id，@）
如果tostu_id =
当响应消息为
sql字符串=选择A *，从信息b.nick，PWD B）。
昏暗的通讯为SqlCommand =新SqlCommand（SQL，Conn）
昏暗的As SqlDataReader博士
康涅狄格州开放（）
DR = comm.executereader
在读博士
中的代码块为label3。文本=博士项目（尼克）
label4。文本=博士项目（提姆）
label5。文本= 博士项目（内容）
实例。文本=博士项目（尼克）
textbox3。文本=博士项目（fromstu_id ）
启用=错误的实例。
label8可视=假。
label11可视=假。
结束的时候
Close博士（）
通信取消（）
已将消息作为属性读取。
昏暗的sql_1是字符串更新信息集词= 0，tostu_id =会议（stu_id ）
通讯=新SqlCommand（sql_1，Conn）
comm.executenonquery（）
其他的
当发送消息时，请输入
模糊i为整数
我= 0，UBound（splitname）- 1
昏暗的MySQL是字符串选择尼克从PWD在stu_id =splitname（我）
昏暗的通讯为SqlCommand =新SqlCommand（MySQL，Conn）
昏暗的As SqlDataReader博士
如果我= 0然后
康涅狄格州开放（）
DR = comm.executereader
如果博士读的话
实例。文本=装饰（dr.item（尼克））；
最后如果
控制（）
Dr.close（）
其他的
DR = comm.executereader
如果博士读的话
文本=文本实例。实例。修剪（dr.item（尼克））；
最后如果
控制（）
Dr.close（）
最后如果
下一个我
最后如果
最后如果
端子
不重要的实际事件，使代码简单。
子控件（）
实例。启用=假：中的代码块为label3。文本=：label4。文本= ：label5可视=假。
label8。可见=真实：标签6.可见=假：label7。可视=假：label9可视=假。
按钮。可见=假：label11可视=真。
= label11文本。
端子
公共子button1_click（ByVal sender系统。对象，ByVal E系统。EventArgs）处理
昏暗的tostu_id是字符串request.querystring（tostu_id ）
昏暗的splitname（）为字符串
splitname =分裂（tostu_id，@）
如果tostu_id =
当响应消息为
如果textBox2。文本= 或textBox2。文本=然后
label10可视=真。
label10。文本=信息不能为空！
返回
其他的
label10可视=假。
康涅狄格州开放（）
sql字符串=插入信息（fromstu_id，tostu_id、内容、期限、提姆）
昏暗的通讯为SqlCommand =新SqlCommand（SQL，Conn）
comm.parameters.add（新SqlParameter（@ fromstu_id
通信参数（@ fromstu_id）。值=会议（stu_id ）
comm.parameters.add（新SqlParameter（@ tostu_id
通信参数（@ tostu_id ）。textbox3文本价值=。
comm.parameters.add（新SqlParameter（@内容
通信参数（内容）。值= textBox2。文本
（新comm.parameters.add SqlParameter（@学期
通信参数（长期）。值=1
（新comm.parameters.add SqlParameter（@提姆
通信参数（提姆）。值=日期。现在
comm.executenonquery（）
= 'textbox2文本。
最后如果
其他的
当发送消息时，会发生的时候发生的时候发生了。
如果textBox2。文本= 或textBox2。文本=然后
label10可视=真。
label10。文本=信息不能为空！
返回
其他的
模糊i为整数
我= 0，UBound（splitname）- 1
label10可视=假。
如果我= 0然后
康涅狄格州开放（）
其他的
最后如果
sql字符串=插入信息（fromstu_id，tostu_id、内容、期限、提姆）
昏暗的通讯为SqlCommand =新SqlCommand（SQL，Conn）
comm.parameters.add（新SqlParameter（@ fromstu_id
通信参数（@ fromstu_id）。值=会议（stu_id ）
comm.parameters.add（新SqlParameter（@ tostu_id
通信参数（@ tostu_id）。值= splitname（我）
comm.parameters.add（新SqlParameter（@内容
通信参数（内容）。值= textBox2。文本
（新comm.parameters.add SqlParameter（@学期
通信参数（长期）。值=1
（新comm.parameters.add SqlParameter（@提姆
通信参数（提姆）。值=日期。现在
comm.executenonquery（）
= 'textbox2文本。
下一个我
最后如果
最后如果
响应。写入（）
端子
已恢复为继续发送。
私有子button2_click（ByVal sender系统。对象，ByVal E系统。EventArgs）处理
响应。重定向（boaman .aspx）
端子
私有子button3_click（ByVal sender系统。对象，ByVal E系统。EventArgs）处理
响应。写入（）
端子
类的结束
谢谢你，老邓：）
