web实验二 简易聊天室

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 = "" + "发ぁ?送í成é功|！?" + "" 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 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.txtSpeak.Text = ""

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

.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")