Web系统开发
实验报告
实验二
实验题目：内建对象的使用
指导老师：马浩
专业班级：计算机科学与技术系1106班姓名：李***（2011100***）
2014年3月30日
一、实验名称：内建对象的使用
二、实验目的：
熟练掌握的常用属性与方法，包括Application，Session，Request，Response，和Sever对象。

学会在程序中应用创建对象。

三、实验内容：
1、使用Application对象实现在线用户数的统计。

1）、新建一个网站WebSiteT5，在此网站中添加一个全局应用程序类，命名为“Global.asax”。

2）、添加一个Web窗体页，并以T-1.aspx为文件名保存该文件。

在页面中添加一个ID设置为“counter”的TextBox控件，Page的Load事件处理.
2、设计简单的用户登录程序，用户输入非空的用户名即可登录，登录后该用户名即被存储于Session对象中，页面将转向T5-3.aspx。

1）、添加2个Web窗体页，分别命名为“T5-2.aspx”和“T5-3.aspx”。

2）、在T5-2.aspx页面中添加1个TextBox控件、1个Button控件和1个Lable 控件，ID分别为“usrname”、“Login”、和“LblDesc”，Button控件的Text属性设置为“登录”。

3）、添加登录按钮的Click事件
4)、设计“在线讨论区”的讨论信息的输入和显示程序，使用户登录后进入讨论区。

讨论区分为消息显示和消息输入两个部分，用户输入的讨论信息保存于Application对象中。

5）、在T5-3.aspx页面中添加2个TextBox控件和1个Button控件，ID分别为“cont”、“cont1”和“talk”，其中Button控件的Text属性设置为“发言”。

6）、添加Button控件的Click及Page的Load事件处理代码，代码如下：
四、实验代码（部分）
1.Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
Application.Lock()
Application("cnt") = Application("cnt") + 1
Application.UnLock()
End Sub
Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
Application.Lock()
Application("cnt") = Application("cnt") - 1
Application.UnLock()
End Sub
2.Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If Session("username") = ""Then
Response.Redirect("login.aspx")
Else
Dim name, content, ip, show As String
Dim i, n As Integer
name = Session("username")
content = Request("TextBox3")
ip = Request.ServerVariables("remote_addr")
Application.Lock()
Application("message") = Now() + " " + "ip:" + ":" + ip + ":" + vbCrLf + name + ":" + content + "<para>" + Application("message")
Application.UnLock()
show = Application("message")
i = 1
For n = 1 To 20
i = InStr(i, show, "<para>") + 6
If i = 6 Then
Exit For
End If
Next
If i <> 6 Then
Application.Lock()
Application("message") = Left(show, i - 5)
Application.UnLock()
End If
TextBox2.Text = Replace(Application("message"), "<para>", vbCrLf) End If
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Session("username") = ""Then
Response.Redirect("login.aspx")
Else
TextBox2.Text = Replace(Application("message"), "<para>", vbCrLf) End If
End Sub
五、实验总结：
通过本次实验，设计一个简单的在线讨论区应用。

学会了的内建对象pplication，Session，Request，Response，和Sever的使用。

这些对象能处理很多页面请求，完成特定功能。

在实验遇到的问题，在课下需要更多的练习，熟练使用内建对象。