web实验二 简易聊天室.docVIP

web系统开发 实验报告 实验二 实验题目：内建对象的使用——简易聊天室 实验类型: 设计型 指导老师：潘凤 专业班级: 姓 名: 学 号： 2014年 04月 02日 实验题目 内建对象的使用——简易聊天室 实验目的和要求 1.利用第四、五章所学知识进行页面开发，运用web服务器控件完成页面的界面设计，用内建对象实现所需功能。 2．要求页面友好，交互性强。 3. 上机前预习实验，同学们相互间可以讨论；上机过程中要求独立完成；设计出具有各自风格的页面。 三、实验内容 1.创建登录页面 用户输入昵称即可进入聊天室。 2.实现简单的聊天室 用户登录进去后即可聊天，要能显示发言人的登录姓名、发言内容和发言时间。在左侧或者右侧显示出所有进入聊天室的用户的姓名列表。 3.利用Mail对象实现在线邮件的发送。 实验代码 登录界面代码： Partial Class login Inherits System.Web.UI.Page Protected Sub btnLogin_Click(ByVal sender As Object, 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) 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 = mailFrom.Text objMail.Subject = Subject.Text objMail.Body = Body.Text objMail.BodyFormat = MailFormat.Text Dim filename, filepath As String filename = 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.Message End Try message.Text = font color = red + 发ぁ?送í成é功|！? + /font End Sub Protected Sub btnReturn_Click(ByVal sender As Objec