完整版web试验二简易聊天室VIP专享VIP免费

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 =...