web实验二-简易聊天室.doc

web系统开发
实验报告

实验二

实验题目：内建对象的使用——简易聊天室
实验类型:设计型
指导老师：潘凤
专业班级:
姓名:
学号：

2014年04月02日

实验题目
内建对象的使用——简易聊天室
实验目的和要求
1.利用第四、五章所学知识进行页面开发，运用web服务器控件完成页面的界面设计，用内建对象实现所需功能。
2．要求页面友好，交互性强。
3.上机前预习实验，同学们相互间可以讨论；上机过程中要求独立完成；设计出具有各自风格的页面。
三、实验内容
1.创建登录页面
用户输入昵称即可进入聊天室。
2.实现简单的聊天室
用户登录进去后即可聊天，要能显示发言人的登录姓名、发言内容和发言时间。在左侧或者右侧显示出所有进入聊天室的用户的姓名列表。
3.利用Mail对象实现在线邮件的发送。
实验代码
登录界面代码：
PartialClasslogin
InheritsSystem.Web.UI.Page
ProtectedSubbtnLogin_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesbtnLogin.Click
IfMe.txtName.Text=""Then
MsgBox("请输入用户名")
Else
DimstrAsString="name"+Application("count").ToString
Application(str)=Me.txtName.Text
Application("count")=Application("count")+1
Session.Add("name",Me.txtName.Text)
Response.Redirect("index.aspx")
EndIf
EndSub
EndClass
邮件界面代码：
ImportsSystem.IO
ImportsSystem.Web.Mail
PartialClassemail
InheritsSystem.Web.UI.Page
ProtectedSubbtnSubmit_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesbtnSubmit.Click
DimobjMailAsNewMailMessage
objMail.From=mailFrom.Text
objMail.To=mailFrom.Text
objMail.Subject=Subject.Text
objMail.Body=Body.Text
objMail.BodyFormat=MailFormat.Text
Dimfilename,filepathAsString
filename=Path.GetFileName(uploadfile.PostedFile.FileName)
filepath="d:\"&filename
uploadfile.PostedFile.SaveAs(filepath)
DimobjAttachAsNewMailAttachment(filepath)
objMail.Attachments.Add(objAttach)
SmtpMail.SmtpServer=""
Try
SmtpMail.Send(objMail)
CatchexAsException
DimstrAsString
str=ex.Message
EndTry
message.Text="<fontcolor=red>"+"发ぁ?送í成é功|！?"+"</font>"
EndSub
ProtectedSubbtnReturn_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesbtnReturn.Click
Response.Redirect("xiaoxi.aspx")
EndSub
EndClass
消息代码：
PartialClasssubmit
InheritsSystem.Web.UI.Page

ProtectedSubenter_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handlesenter.Click
DimstrAsString
Application.Lock()
str="show"+Application("number").ToString
Application(str)="<fontcolor=blue>"+Session("name")+":</font>"+Me.txtSpeak.Text+""+""+""+""+""+"time:"+Now()+