图13 “退出”提示网页 任务分析：
在论坛网站中，经常需要处理和显示的数据有论坛中研友的人数、研友的昵称列表和聊天信息列表，每个研友都需使用这些数据，因此需把它们存储在Application对象中。本任务使用变量Chater_Num记录研友的人数，使用变量Chater_List记录研友的昵称列表，使用变量Chater_Talk记录研友聊天信息，这三个变量均是应用程序级变量。
本任务实现的论坛按照功能来分，可分成8个部分，每一部分用一个文件来实现，共8个文件，这些文件的文件名及其名称如表9所示。
（1）用记事本打开Global.asa文件，在相应事件过程中添加如下代码并保存。
（2）再次启动记事本，在记事本中输入如下代码。并把该网页代码保存为“登陆网页.ASP”。
<%@Language=VBScript%>
（3）再次启动记事本，在其中输入下述代码。并把该网页代码保存为Login_Check.ASP。 <%Option Explicit Response.Buffer=True %>
<% Dim User_NickName '存放用户昵称 Dim strNickOption,strInMsg '中间变量
User_NickName=Request.Form(\ '获取用户昵称
If InStr(Application(\ '该昵称已被使用 Response.Write \华文新魏>\
Response.Write \很抱歉，该昵称已被使用，请换一昵称再登录！\ '输出提示信息 Response.Write \
Response.Write \重新登录
\返回登录界面Response.End End if
Session(\ '会话级变量Chater_Name用来存放您的昵称
形成本用户在列表框中的选项
strNickOption=\
Application.Lock '锁定应用程序级变量 把当前用户加载到研友列表中
Application(\研友人数加1
Application(\'形成研友进入论坛的提示文字
strInMsg=\进入论坛...
\'把提示文字添加到聊天记录中Application(\Application.Unlock '解锁应用程序级变量 Response.Redirect \ '进入论坛主页面 %>
（4）再次启动记事本，在其中输入下述代码。并把该网页代码保存为Chat_Room.ASP。
（5）再次启动记事本，在其中输入下述代码。并把该网页代码保存为Chater_Input.ASP <%Response.Expires=0%>
dim MyNickName '存放当前研友名 MyNickName=session(\%>