实验二 制作聊天室程序
- 格式:doc
- 大小:171.00 KB
- 文档页数:10
动态网页制作实验报告
计算机科学与技术系1105班
2013.05.13
实验二 制作聊天室程序
一、实验目的和要求
1. 掌握ASP内置对象的基本语法知识
2. 掌握使用Request对象获取客户请求信息
3. 掌握使用Response对象实现服务器向客户端的响应
4. 掌握使用Application对象实现用户共享信息的存储
5. 掌握使用Session对象临时保存用户相关信息。
二、实验内容
利用ASP内置对象实现聊天室。要求:
(1)当前在线人数,和当前在线人员名单。
(2)用户登录。
(3)用户聊天内容的显示。
(4)用户聊天信息的输入。
提示:使用框架实现页面的布局。
三、实验重点和难点
1. 使用Application对象保存用户共享信息
2. 使用Session对象保存用户相关信息
3. Global.asa文件的定义和应用
四、实验过程
1.在硬盘上新建文件夹,并将其创建为虚拟目录chatroom。
2.打开DreamWeaver8.0,新建站点(chatroom)。
3.创建网站网页,共五个文件:
Login.asp,用户登录
Check.asp,用户登录处理
Main.htm,聊天室主界面(框架实现)
Talk.asp,显示聊天内容
Talking.asp,输入聊天内容
Userlist.asp,显示在线用户
Exit.asp,退出聊天室
4.根据错误提示调试程序。
一 、登陆模块
登陆界面的程序:
<%@ import namespace="System.Data.OleDb"%>
登陆模块的效果图如下:
二、聊天室主界面
1、聊天室主界面talk程序
<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
*
WELCOME TO
“绿水青山”聊天室
PLEASE畅所欲言
*
<%
'循环记录,将聊天基本信息输出到页面
While dr.Read()
Response.Write("[" & FormatDateTime(dr.GetDateTime(0),
DateFormat.LongTime) & "] ")
Response.Write("[" & dr.GetString(1) & "]")
Response.Write("对" & dr.GetString(2) & "")
If Trim(dr.GetString(5)) <> "无" Then
Response.Write("" & dr.GetString(5) & "")
End If
Response.Write("说:" & dr.GetString(4) &
"")
Response.Write("
")
End
While
conn.Close() %>
聊天室主界面talk效果图如下: