1、web 系統開發實驗報告實驗二實驗題目 ：內建對象的使用簡易聊天室實驗類型 :設計型指導老師： 潘鳳專業班級 :姓名:學號：2014年04 月 02 日一、實驗題目內建對象的使用簡易聊天室二、 實驗目的和要求1. 利用第四、五章所學知識進行頁面開發，運用 web 服務器控件完成頁面的界面設計，用內建對象實現所需功能。2 要求頁面友好，交互性強。3. 上機前預習實驗， 同學們相互間可以討論； 上機過程中要求獨立完成； 設計出具有各自風格的頁面。三、實驗內容1. 創建登錄頁面用戶輸入昵稱即可進入聊天室。2. 實現簡單的聊天室用戶登錄進去后即可聊天， 要能顯示發言人的登錄姓名、 發言內容和發言時間。

2、 在左側或者右側顯示出所有進入聊天室的用戶的姓名列表。3. 利用 Mail 對象實現在線郵件的發送。四、實驗代碼登錄界面代碼：Partial Class loginProtected Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.ClickMsgBox("請輸入用戶名")ElseDim str As String = "name" + Application("count").ToStringApplic

3、ation("count") = Application("count") + 1Response.Redirect("index.aspx")End IfEnd SubEnd Class郵件界面代碼：Imports System.IOPartial Class emailProtectedSubbtnSubmit_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs) Handles btnSubmit.ClickDim objMail As New MailMessageobjMai

4、l.From = mailFrom.TextobjMail.To = mailFrom.TextobjMail.Subject = Subject.TextobjMail.Body = Body.TextobjMail.BodyFormat = MailFormat.TextDim filename, filepath As Stringfilepath = "d:" & filenameDim objAttach As New MailAttachment(filepath)SmtpMail.SmtpServer = ""TrySmtpMail

5、.Send(objMail)Catch ex As ExceptionDim str As Stringstr = ex.MessageEnd Trymessage.Text = "<font color = red>" + "發 ?送í成é功|！ ?" + "</font>"End SubProtectedSubbtnReturn_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs) Handles btnReturn.ClickRespo

6、nse.Redirect("xiaoxi.aspx")End SubEnd Class消息代碼：Partial Class submitProtectedSub enter_Click(ByValsender As Object,ByVal e As System.EventArgs)Handles enter.ClickDim str As StringApplication.Lock()str = "show" + Application("number").ToStringApplication(str) = "<

7、;font color=blue>" + Session("name") + ":</font>" +Application("number") = Application("number") + 1Application.UnLock()End SubProtected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)Handles Me.LoadEnd SubProtectedSubenterEmai

8、l_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs) Handles enterEmail.ClickResponse.Redirect("email.aspx")End SubEnd Class在線人數代碼：Partial Class showProtected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)Handles Me.LoadDim str As StringDim i As IntegerFor i = 0 To App

9、lication("count") - 1str = "name" + i.ToStringNextEnd SubEnd ClassWelcome代碼：Partial Class welcomeProtected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)Handles Me.LoadEnd SubEnd ClassLiaotianshi代碼：Partial Class chatProtected Sub Page_Load(ByVal sender As Obje

10、ct, ByVal e As System.EventArgs)Handles Me.LoadDim str As StringDim str2 As StringDim i As IntegerDim j As IntegerIf Application("number") > 30 ThenFor i = 1 To Application("number") - 1j = i - 1str = "show" + i.ToStringstr2 = "show" + j.ToStringApplication(str2) = Application(str)NextApplication("number") = Application("number") - 1End IfFor i = 0 To Application("number") - 1str = "show" + i.ToStringmessage.Text &= Application(str)NextEnd SubEnd Class五、運行結果進入登登