完整版web试验二简易聊天室

web系统开实验报告实验二实验题目：内建对象的使用一一简易聊天室实验类型：设而指导老师：k专业班级：一姓名：学 号：2014年04月02日一、实验题目内建对象的使用一一简易聊天室二、实验目的和要求.利用第四、五章所学知识进行页面开发，运用web服务器控件完成页面的界面设计，用内建对象实现所需功能。.要求页面友好，交互性强。.上机前预习实验，同学们相互间可以讨论；上机过程中要求独立完成；设计出具有各自风格的页面。三、实验内容.创建登录页面用户输入昵称即可进入聊天室。.实现简单的聊天室用户登录进去后即可聊天，要能显示发言人的登录姓名、发言内容和发言时间。在左侧或者右侧显示出所有进入聊天室的用户的姓名列表。.利用Mail对象实现在线邮件的发送。四、实验代码登录界面代码：PartialClassloginInheritsSystem.Web.UI.PageProtectedSubbtnLogin_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesbtnLogin.ClickIfMe.txtName.Text=""ThenMsgBox(〃请输入用户名〃)ElseDimstrAsString="name"+Application("count").ToStringApplication(str)=Me.txtName.TextApplication("count")=Application("count")+1Session.Add("name",Me.txtName.Text)Response.Redirect("index.aspx")EndIfEndSubEndClass邮件界面代码：ImportsSystem.IOImportsSystem.Web.MailPartialClassemailInheritsSystem.Web.UI.PageProtectedSubbtnSubmit_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesbtnSubmit.ClickDimobjMailAsNewMailMessageobjMail.From=mailFrom.TextobjMail.To=mailFrom.TextobjMail.Subject=Subject.TextobjMail.Body=Body.TextobjMail.BodyFormat=MailFormat.TextDimfilename,filepathAsStringfilename=Path.GetFileName(uploadfile.PostedFile.FileName)filepath="d:\"&filenameuploadfile.PostedFile.SaveAs(filepath)DimobjAttachAsNewMailAttachment(filepath)objMail.Attachments.Add(objAttach)SmtpMail.SmtpServer="”TrySmtpMail.Send(objMail)CatchexAsExceptionDimstrAsStringstr=ex.MessageEndTrymessage.Text="〈fontcolor=red>"+"发方？送i成存功|!?”+”</font>"EndSubProtectedSubbtnReturn_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesbtnReturn.ClickResponse.Redirect("xiaoxi.aspx")EndSubEndClass消息代码:PartialClasssubmitInheritsSystem.Web.UI.PageProtectedSubenter_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)Handlesenter.ClickDimstrAsStringApplication.Lock()str="show"+Application("number").ToStringApplication(str)="<fontcolor=blue>"+Session("name")+":</font>"+Me.txtSpeak.Text+""+""+""+""+""+"time:"+Now()+"</br>Application("number")=Application("number")+1Application.UnLock()Me.txtSpeak.Text=""EndSubProtectedSubPage_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.LoadM.Text=Session("name")EndSubProtectedSubenterEmail_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesenterEmail.ClickResponse.Redirect("email.aspx")EndSubEndClass在线人数代码：PartialClassshowInheritsSystem.Web.UI.PageProtectedSubPage_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.LoadMe.count.Text=Application("count")DimstrAsStringDimiAsIntegerFori=0ToApplication("count")-1str="name"+i.ToStringMs.Text&=Application(str)+"</br>"NextEndSubEndClassWelcome代码：PartialClasswelcomeInheritsSystem.Web.UI.PageProtectedSubPage_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.LoadMs.Text=Session("name")EndSubEndClassLiaotianshi代码：PartialClasschatInheritsSystem.Web.UI.PageProtectedSubPage_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.LoadDimstrAsStringDimstr2AsStringDimiAsIntegerDimjAsIntegerIfApplication("number")>30ThenFori=1ToApplication("number")-1j=i-1str="show"+i.ToStringstr2="show"+j.ToStringApplication(str2)=Application(str)NextApplication("number")=Application("number")-1EndIfFori=0ToApplication("number")-1str="show"+i.ToStringmessage.Text&=Application(str)

NextEndSubEndClass五、运行结果进入登登录界面如下:王Q▼忠CX营王Q▼忠CX营Iocalhost当未输入用户名时:给当未输入用户名时:给http://Iocalhostl069