asp搭建一个简单的聊天室

经过一段时间的ASP学习，让我们建立一个最简单的聊天室结合我们所学到的东西。虽然它很简单，但我们可以掌握聊天室的基本过程，并不断改进它的功能。

以下是主要步骤：

1、在Global.asa文件中添加代码。这部分代码主要是application_onstart事件。在这个事件中，我们用15个元素定义一个数据，并将其分配给应用程序对象的属性。内容of.global.asa文件如下。

脚本语言=VBｓｃｒｉｐｔrunat=server
子application_onstart
昏暗的machats（15）定义了一个数据15元。
应用（gachats ）= machats存储内容的谈话。
应用（gicounter ）= 0店已经会话数。
端子
<脚本>
2、在aspchat.asp文件中添加代码。请注意，这部分代码添加在两个横线之间的主页上，这是在两个文本之间。第一个程序决定这个主页的应用程序，如果它是一个后的方法，因为在这种情况下，提交的方法窗口文章是第一次。和这一主页，使用获取方法。所以如果使用发帖的方法，那是一个浏览器，当你再次申请谈话时，必须进行治疗，因为一个新的谈话内容。否则，那一个观众第一次在这个主页上，并没有提交什么对话，所以只有现在显示的对话就可以了。

一个简单的聊天室。


< %
处理输入
如果Request.ServerVariables（request_method ）=后然后
马克议长
如果len（请求（txtwho ））> 0
会议（sswho ）=请求（txtwho ）
最后如果
阻止应用程序对象
锁的应用。
创建本地引用指针
mlcounter =应用（gicounter ）
MaChats =应用（gachats ）
如果写入的行数超过10，则重新启动该数字。
如果mlcoundter > 9
mlcoundter = 0
最后如果
增加用户输入，计数器加1
MaChat（mlchounter）=会议（sswho ）：的要求（txtcents ）
mlcounter = mlcounter + 1
设置本地变量在应用程序范围内有效。
应用gicounter ）= mlcounter
应用（gachats ）=马哈特
消除对应用对象的封锁
解锁应用。
最后如果
%。
< %
写文本
如果应用程序（gicounter ）= 0
lstemp =应用（gachats ）（0）
其他的
在x = 0的应用程序（gicounter ）1
lstemp = lstemp
应用（gachats ）（X）
下一个
最后如果
response.white lstemp
%。
<人力资源>
3、对txtwho内容初始化。当查看器输入一次，他的名字将不会再次进入，以便区分不同的浏览器，其中使用会话对象。使用会话（sswho ）记录客人的姓名。下面的代码直接写在上面的代码存储在AspChat.asp。

形式方法=后行动=aspchat .aspname=frmasp>
＜div对齐= >中心> <中心> P >演讲：<输入类型文本name=txtcents大小=> < / P > >
>中心>
<中心> >
<窗体>
完成。刚刚添加的2,3文件代码之前和HTM步后的代码并保存到aspchat.asp。这是一个很简单的asp聊天室程序，可以随着学习功能的加深不断增强其功能。