完整版web試驗二簡易聊天室

web系統(tǒng)開實驗報告實驗二實驗題目：內建對象的使用一一簡易聊天室實驗類型：設而指導老師：k專業(yè)班級：一姓名：學 號：2014年04月02日一、實驗題目內建對象的使用一一簡易聊天室二、實驗目的和要求.利用第四、五章所學知識進行頁面開發(fā)，運用web服務器控件完成頁面的界面設計，用內建對象實現(xiàn)所需功能。.要求頁面友好，交互性強。.上機前預習實驗，同學們相互間可以討論；上機過程中要求獨立完成；設計出具有各自風格的頁面。三、實驗內容.創(chuàng)建登錄頁面用戶輸入昵稱即可進入聊天室。.實現(xiàn)簡單的聊天室用戶登錄進去后即可聊天，要能顯示發(fā)言人的登錄姓名、發(fā)言內容和發(fā)言時間。在左側或者右側顯示出所有進入聊天室的用戶的姓名列表。.利用Mail對象實現(xiàn)在線郵件的發(fā)送。四、實驗代碼登錄界面代碼：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>"+"發(fā)方？送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在線人數(shù)代碼：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