2022年web实验二简易聊天室

1、 web 系统开发实验报告实验二实验题目：内建对象的使用简易聊天室实验类型 :设计型指导老师：潘凤专业班级 :姓名:学号：2014 年 04 月 02 日精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 1 页，共 7 页 - - - - - - - - -精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 1 页，共 7 页 - - - - - - - - -一、实验题目内建对象的使用简易聊天室二、 实验目的和要求 1.利用第四、五章所学知识进行页面开发，运用web服务器控件完成页面的界面设计，用内建对象实现所

2、需功能。 2要求页面友好，交互性强。 3. 上机前预习实验，同学们相互间可以讨论；上机过程中要求独立完成；设计出具有各自风格的页面。三、实验内容 1.创建登录页面用户输入昵称即可进入聊天室。 2.实现简单的聊天室用户登录进去后即可聊天，要能显示发言人的登录姓名、发言内容和发言时间。在左侧或者右侧显示出所有进入聊天室的用户的姓名列表。 3.利用 mail 对象实现在线邮件的发送。四、实验代码登录界面代码：partial class login inherits system.web.ui.page protected sub btnlogin_click(byval sender as obje

3、ct, byval e as system.eventargs) handles btnlogin.click if me.txtname.text = then msgbox(请输入用户名) else dim str as string = name + application(count).tostring application(str) = me.txtname.text application(count) = application(count) + 1 session.add(name, me.txtname.text) response.redirect(index.aspx)

4、 end if end sub end class 邮件界面代码：imports system.io imports system.web.mail partial class email inherits system.web.ui.page protected sub btnsubmit_click(byval sender as object, byval e as system.eventargs) handles btnsubmit.click dim objmail as new mailmessage objmail.from = mailfrom.text objmail.to

5、 = mailfrom.text objmail.subject = subject.text objmail.body = body.text objmail.bodyformat = mailformat.text dim filename, filepath as string 精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 2 页，共 7 页 - - - - - - - - -精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 2 页，共 7 页 - - - - - - - - - filename =

6、 path.getfilename(uploadfile.postedfile.filename) filepath = d: & filename uploadfile.postedfile.saveas(filepath) dim objattach as new mailattachment(filepath) objmail.attachments.add(objattach) smtpmail.smtpserver = try smtpmail.send(objmail) catch ex as exception dim str as string str = ex.mes

7、sage end try message.text = + 发 ?送成功 | ！? + end sub protected sub btnreturn_click(byval sender as object, byval e as system.eventargs) handles btnreturn.click response.redirect(xiaoxi.aspx) end sub end class 消息代码：partial class submit inherits system.web.ui.page protected sub enter_click(byval sender

8、 as object, byval e as system.eventargs) handles enter.click dim str as string application.lock() str = show + application(number).tostring application(str) = + session(name) + : + me.txtspeak.text + + + + + + time: + now() + application(number) = application(number) + 1 application.unlock() me.txts

9、peak.text = end sub protected sub page_load(byval sender as object, byval e as system.eventargs) handles me.load m.text = session(name) end sub protected sub enteremail_click(byval sender as object, byval e as system.eventargs) handles enteremail.click response.redirect(email.aspx) end sub 精品学

10、习资料 可选择p d f - - - - - - - - - - - - - - 第 3 页，共 7 页 - - - - - - - - -精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 3 页，共 7 页 - - - - - - - - -end class 在线人数代码：partial class show inherits system.web.ui.page protected sub page_load(byval sender as object, byval e as system.eventargs) handles me.load

11、me.count.text = application(count) dim str as string dim i as integer for i = 0 to application(count) - 1 str = name + i.tostring ms.text &= application(str) + next end sub end class welcome 代码：partial class welcome inherits system.web.ui.page protected sub page_load(byval sender as object

12、, byval e as system.eventargs) handles me.load ms.text = session(name) end sub end class liaotianshi代码：partial class chat inherits system.web.ui.page protected sub page_load(byval sender as object, byval e as system.eventargs) handles me.load dim str as string dim str2 as string dim i as integ

13、er dim j as integer if application(number) 30 then for i = 1 to application(number) - 1 j = i - 1 str = show + i.tostring str2 = show + j.tostring application(str2) = application(str) next application(number) = application(number) - 1 end if for i = 0 to application(number) - 1 str = show + i.tostri

14、ng message.text &= application(str) 精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 4 页，共 7 页 - - - - - - - - -精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 4 页，共 7 页 - - - - - - - - - next end sub end class 五、运行结果进入登登录界面如下：当未输入用户名时：以用户名为333 进入聊天室，如下：精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 5 页，共 7 页 - - - - - - - - -精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 5 页，共 7 页 - - - - - - - - -进行发言：点击发送邮件：精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 6 页，共 7 页 - - - - - - - - -精品学习资料 可选择p d f - - - - - - - - - - - - - - 第 6 页，共 7 页 - - - - - - - - -六、实验总结这次的实验是使用内建对象，实现一个简易的聊天室，本次实验