华北科技学院计算机学院综合性实验

实 验 报 告

课程名称        ASP.NET程序设计               

实验学期   2015   至  2016   学年 第  一  学期

学生所在系部        计算机学院                  

年级   12级    专业班级    计科B123班           

学生姓名     小星星    学号   201207014316    

任课教师            黄江兰                    

实验成绩                                       

计算机学院制

《ASP.NET程序设计》课程综合性实验报告

开课实验室：  基础实验室                              2014年11 月17日

 

第二篇：ASP聊天室实验报告

ASP聊天室实验报告

一、聊天室功能：

通过ASP语言和HTML语言完成一个简单网页聊天室。通过设置该聊天室的默认密码，提高了安全性，如果密码为“000000”则允许多个用户同时登入聊天室进行实时交流。并且每个用户可以选择自己的昵称并且可以看到彼此的信息。同时可以选择聊天的语气和字体的颜色。聊天室由chat.asp，global.asa， main.asp，talker.asp，speaking.asp，show.asp文件组成

二，聊天室使用方法：

需把所有文件放到一个文件夹中，如果在局域网中，则将此文件夹设置为共享，则其他用户可通过在浏览器中输入http://局域网中本机地址/chat.asp登入聊天室。如果在互联网上，则可用IIS将本机模拟成WEB服务器，然后在浏览器中输入http://本机IP地址/chat.asp 。

三，聊天室介绍：

各文件功能介绍

具体执行流程

chat.asp→main.asp→speaking.asp→talker.asp

↓ 　

show.asp

四，各文件介绍：

1，登入页面chat.asp

登入页面的效果如下图，首先是插入了一个表格，使页面看上去会比较整齐。其次，程序段中，会检查用户是否输入了昵称，如果没有只能停留在当前页面，如果输入了昵称并输入了默认的密码”000000”则进入超链接。

源代码：

＜html＞

＜head＞＜title＞趣味聊天室＜/title＞＜/head＞

＜body bgcolor="pink" alink="pink" vlink="red"＞

＜p align="center"＞

＜%

UID=TRIM(Request("UID"))

if len(uid)＜＞0 and request.form(“PWD”)=”000000” THEN

session("UID")=UID

%＞

＜br＞＜br＞＜br＞＜br＞

＜a href="MAIN.asp"＞＜B＞欢迎进入聊天室＜/B＞＜/a＞

＜%

ELSE

%＞

＜p align="center"＞

＜br＞＜br＞＜br＞＜br＞

＜font face="华文彩云" color="#006600" size="7"＞＜b＞欢迎进入趣味聊天室＜/b＞＜/font＞

＜form action="chat.asp" method="POST"＞

＜table＞

＜tr width="4" align="center" bgcolor="pink"＞

＜td align="center" bgcolor="pink"＞

＜font face="华文行楷" color="black" size="6"＞＜b＞姓名：＜/b＞＜/font＞＜input type="text" name="UID"＞*＜br＞＜/td＞

＜/tr＞

＜br＞＜br＞

＜tr width="100%" align="center" bgcolor="pink"＞

＜td width="100%" align="center" bgcolor="pink"＞

＜font face="华文行楷" color="black" size="6"＞＜b＞密码：＜/b＞＜/font＞＜input type="password" name="PWD"＞*＜br＞＜/td＞

＜/tr＞＜br＞＜br＞

＜tr width="100%" align="center" bgcolor="pink"＞

＜td width="100%" align="center" bgcolor="pink"＞

＜input type=submit value=提交＞＜/td＞

＜/tr＞

＜/body＞

＜/html＞

2，聊天室主界面 main.asp

main.asp是一个框架页，他将屏幕分成三个部分，如下图，在显示这个框架之前先检查登陆人数是否超过了定义的上界，如果没有则完成下面三项准备工作：聊天室用户添加一个，将新用户的昵称加入用户名单，新用户进入的信息添加到公共话语中。最后显示框架。

源代码：

＜%

response.buffer=true

%＞

＜html＞

＜head＞

＜title＞聊天室＜/title＞

＜meta name="GENERATOR" content="Microsoft FrontPage 4.0"＞

＜/head＞

＜%

Items=Split(Application("Peoples"),",")

if UBound(Items)=300 then

response.write "人满为患，请稍后再来！"

Session.Abandon '释放Session

response.end

end if

Uid=Session("Uid")

application.lock

application("peoples")=application("peoples") & Uid & ","

application(Uid)="欢迎进入聊天室！"

application.unlock

Session("Begin")=Time

%＞

＜frameset rows="70%,*"＞

＜frameset cols="82%,*"＞

＜frame name="Ltop" Target="Ltop" scrolling="auto" noresize src="Showing.asp"＞

＜frame name="Rtop" Target="Rtop" noresize scrolling="auto" src="talker.asp"＞

＜/frameset＞

＜frameset cols="100%"＞

＜frame scrolling="auto" noresize src="Speaking.asp"＞

＜/frameset＞

＜noframes＞

＜body＞

＜p＞浏览器不支持 ＜/body＞

＜/noframes＞

＜/frameset＞

＜/html＞

3，全局文件global.asa

全局文件将在web服务器启动后第一个用户访问网络时启动，他的作用一般是初始化。

源代码：

＜Script language="VBscript" RUNAT="Server"＞

Sub Application_OnStart

Application.lock

AllSee="欢迎进入聊天室！"

Application.unlock

end sub

＜/Script＞

4，聊天室下屏speaking.asp

speaking.asp用于输入用户所要说的话语，并允许用户选择说话的语气和字体颜色并进行处理话语的对象。如果用户提出了退出请求，则用户名单会自动清楚您的用户名。

源代码：

＜HTML＞

＜%

'HEAD＞

'＜META HTTP-EQUIV="CONTENT-TYPE" CONTENT="text/HTML;charset=gb2312"＞

'＜title＞＜/title＞

'＜meta name="GENERATOR" content="Microsoft FrontPage 4.0"＞

'＜/HEAD

%＞

＜BODY bgcolor="rgb(230,300,100)"＞

＜%

Ext=Request("Ext")

if Ext="退出" Then

Uid=Session("Uid")

Items=Split(Application("Peoples"),",")

Application.lock

Application("Peoples")=""

For i=0 to UBound(Items)-1

if Items(i)＜＞Uid Then

Application("Peoples")=Application("Peoples")&Items(I)&","

end if

Next

Application(Uid)=""

Application.Unlock

Session.Abandon

Response.End

else

if Request("Content")＜＞"" then

'构造显示信息

Uid=Session("Uid")

Strig="＜font Color='" & Request("Color") & "'＞"_

& Uid & Request("Facial") & "说："_

& Request("Content") & "＜/Font＞＜BR＞"

发送显示信息

Who=Request("Who")

Items=Split(Application("Peoples"),",")

Application.lock

if Request("Who")="All" Then

For i=0 to UBound(Items)-1

Application(Items(i))=strig & Application(Items(i))

Next

else

For i=0 to UBound(Items)-1

if Items(i)=Uid or Items(i)=Who Then

Application(Items(i))=strig & Application(Items(i))

end if

Next

end if

Application.Unlock

end if

%＞

＜form Method="POST" action=""＞

＜p＞

字体颜色

＜Select Name="Color" Size=1 ＞

＜Option Value="Blue"＞蓝色＜/Option＞

＜Option Value="Yellow"＞黄色＜/Option＞

＜Option Value="Green"＞绿色＜/Option＞

＜Option Value="Red"＞红色＜/Option＞

＜Option Value="Gray"＞灰色＜/Option＞

＜Option Value="Black"＞黑色＜/Option＞

＜Option Value="White"＞白色＜/Option＞

＜/Select＞

＜Input Type="Text" Name="Content" Size="50"＞

＜Input Type="Submit" Name="Ext" Value="提交"＞＜P＞

选择谈话表情

＜Select Name="Facial" Size=1 ＞

＜Option Value="兴高采烈地"＞兴高采烈地＜/Option＞

＜Option Value="无聊搭闲地"＞无聊搭闲地＜/Option＞

＜Option Value="悲哀忧伤地"＞悲哀忧伤地＜/Option＞

＜Option Value="悲怒谴责地"＞悲怒谴责地＜/Option＞

＜/Select＞

选择聊天对象

＜Select Name="Who" Size=1 ＞

＜Option Value="All"＞全体成员＜/Option＞

＜%

Items=Split(Application("Peoples"),",")

for i=0 to UBound(Items)-1

%＞

＜Option Value="＜%=Items(i)%＞"＞＜%=Items(i)%＞＜Option＞

＜%Next%＞

＜/Select＞

      

      

＜Input Type="Submit" Name="Ext" Value="退出"＞

＜%end if%＞

＜/BODY＞

＜/HTML＞

5，聊天室右屏talker.asp

用于显示聊天者每当一个用户登录就会显示其用户名，当退出时，进行刷新就会剔除其用户名。

源代码：

＜html＞

＜head＞

＜meta http-equiv="refresh" content="30; URL=Talker.asp"＞

＜title＞聊天成员＜/title＞

＜base target="Rtop"＞

＜/head＞

＜body bgcolor="rgb(224,241,227)"＞

＜%If session("Uid")＜＞"" Then%＞

＜p＞

＜strong＞＜font color="#ff00ff"＞聊天者：＜/font＞＜/strong＞＜br＞＜/p＞

＜p＞

＜%

Items=Split(application("Peoples"),",")

For i=0 to UBound(Items)

Response.Write "＜Font color=green＞" & "-" &_

Items(i) & "-" & "＜/font＞ ＜br＞"

Next

Else%＞

＜big＞＜font face="隶书"color="#ff0000"＞＜big＞＜strong＞请您离开＜/strong＞＜/font＞

＜font color="#ff00ff"＞＜br＞

＜/font＞＜/big＞

＜%end if%＞

＜/p＞

＜/body＞

＜/html＞

6，聊天室上屏show.asp

用于显示speaking.asp中的话语部分，如果用户退出则显示：请您离开聊天室！

源代码：

＜html＞

＜head＞

＜meta http-equiv="refresh" content="10; URL=Showing.asp"＞

＜title＞聊天内容＜/title＞

＜base target="Ltop"＞

＜/head＞

＜body bgcolor="rgb(200,200,200)"＞

＜%

Uid = Session("Uid")

if Session("Ext")＜＞"退出" then

response.write application( Uid )

else '删除客户

%＞

＜p＞

＜font color="#ff0000"＞

＜strong＞＜font face="隶书"＞＜big＞＜big＞＜center＞

请您离开聊天室！＜/center＞

＜/big＞＜/big＞＜/font＞＜/strong＞

＜%

end if

%＞

＜/body＞

＜/html＞