(完整word版)web实验二简易聊天室

1、web 系统开发实验报告实验二实验题目 ：内建对象的使用简易聊天室实验类型 :设计型指导老师： 潘凤专业班级 :姓名:学号：2014年04 月 02 日一、实验题目内建对象的使用简易聊天室二、 实验目的和要求1. 利用第四、五章所学知识进行页面开发，运用 web 服务器控件完成页面的界面设计，用内建对象实现所需功能。2 要求页面友好，交互性强。3. 上机前预习实验， 同学们相互间可以讨论； 上机过程中要求独立完成； 设计出具有各自风格的页面。三、实验内容1. 创建登录页面用户输入昵称即可进入聊天室。2. 实现简单的聊天室用户登录进去后即可聊天， 要能显示发言人的登录姓名、 发言内容和发言时间。

2、 在左侧或者右侧显示出所有进入聊天室的用户的姓名列表。3. 利用 Mail 对象实现在线邮件的发送。四、实验代码登录界面代码：Partial Class loginProtected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.ClickMsgBox("请输入用户名")ElseDim str As String = "name" + Application("count").ToStringApplic

3、ation("count") = Application("count") + 1Response.Redirect("index.aspx")End IfEnd SubEnd Class邮件界面代码：Imports System.IOPartial Class emailProtectedSubbtnSubmit_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs) Handles btnSubmit.ClickDim objMail As New MailMessageobjMai

4、l.From = mailFrom.TextobjMail.To = mailFrom.TextobjMail.Subject = Subject.TextobjMail.Body = Body.TextobjMail.BodyFormat = MailFormat.TextDim filename, filepath As Stringfilepath = "d:" & filenameDim objAttach As New MailAttachment(filepath)SmtpMail.SmtpServer = ""TrySmtpMail

5、.Send(objMail)Catch ex As ExceptionDim str As Stringstr = ex.MessageEnd Trymessage.Text = "<font color = red>" + "发 ?送í成é功|！ ?" + "</font>"End SubProtectedSubbtnReturn_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs) Handles btnReturn.ClickRespo

6、nse.Redirect("xiaoxi.aspx")End SubEnd Class消息代码：Partial Class submitProtectedSub enter_Click(ByValsender As Object,ByVal e As System.EventArgs)Handles enter.ClickDim str As StringApplication.Lock()str = "show" + Application("number").ToStringApplication(str) = "<

7、;font color=blue>" + Session("name") + ":</font>" +Application("number") = Application("number") + 1Application.UnLock()End SubProtected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)Handles Me.LoadEnd SubProtectedSubenterEmai

8、l_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs) Handles enterEmail.ClickResponse.Redirect("email.aspx")End SubEnd Class在线人数代码：Partial Class showProtected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)Handles Me.LoadDim str As StringDim i As IntegerFor i = 0 To App

9、lication("count") - 1str = "name" + i.ToStringNextEnd SubEnd ClassWelcome代码：Partial Class welcomeProtected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)Handles Me.LoadEnd SubEnd ClassLiaotianshi代码：Partial Class chatProtected Sub Page_Load(ByVal sender As Obje

10、ct, ByVal e As System.EventArgs)Handles Me.LoadDim str As StringDim str2 As StringDim i As IntegerDim j As IntegerIf Application("number") > 30 ThenFor i = 1 To Application("number") - 1j = i - 1str = "show" + i.ToStringstr2 = "show" + j.ToStringApplication(str2) = Application(str)NextApplication("number") = Application("number") - 1End IfFor i = 0 To Application("number") - 1str = "show" + i.ToStringmessage.Text &= Application(str)NextEnd SubEnd Class五、运行结果进入登登