怎样用asp创建聊天室？（高分）_软件运维

用ASP建造自己的聊天室

聊天室想必你一定去过吧，但想不想建立自己的聊天室呢？其实这一点都不难，Active Server Script提供了Application对象和Session对象，Application对象代表了一个Active Server应用程序，也就是一个Web网页，Session对象则表示一个用户，代表一个用户对这个页面的一次访问，通过Application对象可以让访问它的所有用户共享信息，并可以在Web服务器运行期间持久地保存数据，而Session对象也可以在用户的一次访问期间持久地保持数据，利用这两个对象，就可以十分方便地建造自己的Chat应用程序。

---- 一、Application对象：

---- 1．属性：Application对象没有内置的属性，但用户可以定义自己的属性：

---- Application(“属性名称”)=值，一旦分配了属性，它就会一直存在，直到Web服务器关闭服务，而且它能被所有用户读取，所以可以用它在用户之间发送谈话内容。

---- 2．方法：当两个用户同时对Application属性的值进行写入 *** 作时，会出现一方的修改被另一方的 *** 作直接覆盖掉的情况，为了避免这种现象，用户可以调用Lock方法进行锁定，这样只有当前用户才能够对Application的属性进行 *** 作，用户完成 *** 作后调用Unlock方法解锁，使得其他用户也可以修改Application的属性。

---- 3．事件：创建Active Server应用程序需要在Web服务器上存放应用程序的虚拟主目录下创建Global.asa文件，它含有Application对象和Session对象的事件处理例程，通常，Application_Onstart事件用来定义应用级的属性。

---- 二、创建一个Chat应用程序：程序运行时如下图所示(略)

---- 1．设置应用程序的变量：这里需建立两个应用程序级的变量，gchars数组用来存放用户的谈话内容，gcounter用做计数器，控制页面的显示行数，在这里我们让页面最多显示最近的10行谈话内容。当应用程序启动时这些变量必须进行初始化，所以它们的创建都要在Global.asa文件中的Application_onstart事件中：

sub application_onstart()

dim lchars(10)

application("gchars")=lchars

application("gcounter")=0

end sub

</script >

---- 2．确定处理ASP的方式：当用户第一次请求这个ASP文件时，用的是GET方法，然后，当用户输入完谈话内容后提交时用的是POST方法，在这里表单是向自身提交的，所以这个ASP文件会被再次请求，我们通过测试Request . ServerVariales(“Request_Method”)变量来确定文件被请求的方式：IF Request . ServerVariales(“Request_Method”)=“POST” then

---- 3．确定讲话者：当用户第一次提交谈话内容时需输入自己的姓名，一旦在txtname框中输入数据后，程序将建立一个会话级变量来存放用户姓名，并自动显示在txtname框中，用户就不需再次输入了，除非你想用另一个名字加入会谈。

IF len(request(“txtname”)) >0 then

Session(“ssname”)=request(“txtname”)

End if

<h5 >您的姓名：

<input type=“type” name=“txtname”

length=“20” value=<%=session(“ssname”)% >>

----

---- 4．处理用户的谈话内容：首先要确定已经为Chat写入的谈话行数，为方便阅读，在这里将显示行数限定为10行，如果Application(“gcounter”)大于9，则将其置为0，然后将谈话者姓名和内容一起存放到Application(“gchars”)数组中：

Application(“gchars”)

(Application(“gcounter”))=Session(“ssname”) &

“:” &request(txttalk)

然后将计数器加1:Application(“gcounter”) =Application(“gcounter”)+1

---- 5．将数组内容写入到客户的浏览器中：用户提交谈话内容后，程序必须将数组内容写到客户的浏览器中，让聊天室中的所有人都能看到被提交的谈话内容：

if application("gcounter")=0 then

lstemp=application("gchars")(0)

else

for x=0 to application("gcounter")-1

lstemp=lstemp &"<br >" &application("gchars")(x)

end if

---- 最后，用Response.write方法将lstemp变量的值写到客户的浏览器中去：

response.write lstemp

---- 下面给出Default.asp的完整代码：

<%response.expires=0

response.buffer=true% >

<html ><head ><title >Chat sample</title ></head >

<h3 >我的聊天室</h3 ></center ><hr >

<% if request.servervariables("request_method")="POST" then

if len(request("txtname")) >0 then

session("ssname")=request("txtname")

end if

application.lock

mcounter=application("gcounter")

mchars=application("gchars")

if mcounter >9 then

mcounter=0

end if

mchars(mcounter)=session("ssname")

&":" &request("txttalk")

mcounter=mcounter+1

application("gcounter")=mcounter

application("gchars")=mchars

application.unlock

end if % >

<% if application("gcounter")=0 then

lstemp=application("gchars")(0)

else

for x=0 to application("gcounter")-1

lstemp=lstemp &"<br >" &application("gchars")(x)

end if

response.write lstemp % >

更新显示</a ></b >

<h5 >发言:

<h5 >您的姓名:

<input type="text" name="txtname" length="20"

value=<%=session("ssname")% >>

</form ></center ></body ></html >

---- 以上代码在NT4.0、IIS4.0、IE4.0中和Pwin98、PWS、IE4.0中分别运行通过。

用

ASP.NET

做一个最简单的聊天室，逻辑清晰简单，能帮你了解

Application

的用法。

第一步我们先构想我们需要的页面，应该也就是两个吧，第一个登陆页面

，第二个聊

天室主页面

default.aspx

。

哦对了我们还需要加一个全局变量文件

Global.asax

。用来初始化我们要用到的

Application

对象。

这样做，在

Application_Start

和

Application_End

事件里添加如下代码：

void Application_Start(object sender, EventArgs e)

{

在应用程序启动时运行的代码

建立用户列表

string user = ""//

用户列表

Application["user"] = user

Application["userNum"] = 0

string chats = ""//

聊天记录

Application["chats"] = chats

当前的聊天记录数

Application["current"] = 0

}

void Application_End(object sender, EventArgs e)

{

在应用程序关闭时运行的代码

Application["user"] = ""

Application["chats"] = ""

}

现在我们先做个登陆页面，不用复杂，一个

TextBox

，我们把它的

设为

nameTextBox

，用来输

入昵称，一个

Button

按钮，用来登录。好吧就这么简单。

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/yw/11549786.html

怎样用asp创建聊天室？（高分）

发表评论

评论列表（0条）