分享
 
 
 

ASP编程入门进阶(十一):Chat 聊天程序

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

作者:cnbruce 转贴自:5D多媒体

通常的聊天室所采用的程序,也就是Chat程序了,其基本结构原理是不会采用到数据库的。那究竟采用什么技术呢?我们知道ASP变量当中Session变量的作用是记录单个用户的信息,并且能跟踪用户的行为。

Application对象的作用则起的全局变量,可以实现站点多个用户之间在页面中共享信息的。

那可以想象,在针对当前聊天程序中,一个聊天成员即为一个Session变量,聊天成员之间的会话则当成Application变量进行共享显示,以使各成员都能看见。

那下面就采用一很经典的实例程序,进行了解和分析。

1,chat.asp

<%If Request.ServerVariables("Request_Method")="GET" then%>

<form method="post" action="chat.asp">

<input type="text" name="nick" value="your nick name"><p>

<input type="submit" value="come in"><p>

<input type="hidden" name="log" size="20" value="1">

</form>

<%Response.End

Else

Response.clear

dim talk

If Request.Form("nick")<>"" then

Session("nick")=Request.Form("nick")

End if

%><form method="post" action="chat.asp" name=form1>

<%=Session("nick")%>说话:

<input type="text" name="talk" size="50"><br>

<input type="submit" value="提交">

<input type="reset" value="取消"></p>

</form>

<a href="chat.asp">离开</a><br><%

If Request.Form("log")<>1 then

If trim(Request.Form("talk"))="" then

talk=Session("nick")&"不说一句话就想来敷衍大家"

Else

talk=trim(Request.Form("talk"))

End If

Application.lock

Application("show")="来自"&Request.ServerVariables("remote_addr")& "的_

" &Session("nick")&"在"&time& "的时候说:" &talk& "<br>" &Application("show")

Application.UnLock

Response.Write Application("show")

End if

%>

简单解释:

1,<%If Request.ServerVariables("Request_Method")="GET" then%>的作用就是判断当前页面接受的方式,如果为GET方式则会显示“要求输入昵称”的表单页。因为页面的默然接受方式为GET,当在URL地址栏直接敲入时,也就是没有任何信息的时候,就应该显示要求“输入昵称”。

2,<input type="hidden" name="log" size="20" value="1">和下面的If Request.Form("log")<>1 then是有关联的:显然第一次输入昵称进入,同样将log隐藏域发送。但作为第一次的进入是无任何语句发言的,所以判断接受的log值不为1,亦即非首次登录(表示已经登录)时,执行内部相关聊天显示程序。

3,trim(Request.Form("talk"))="",trim就是个函数了:删去字符串前,后的空格。初此,还有rtrim():去掉字符串后的空格;ltrim():去掉字符串前的空格。

<script language=vbs>

cnbruce=" This is a Test ! "

alert("全部显示:"&cnbruce)

alert("删除前面空格:"<rim(cnbruce))

alert("删除后面空格:"&rtrim(cnbruce))

alert("删除前后空格:"&trim(cnbruce))

</script>

Application.lock

Application("show")="来自"&Request.ServerVariables("remote_addr")& "的_

" &Session("nick")&"在"&time& "的时候说:" &talk& "<br>" &Application("show")

Application.UnLock

提取精华得:

Application.lock

Application("show")=talk& "<br>" &Application("show")

Application.UnLock

可以看到是Application变量的叠加功能,每次Application("show")的值都建立在原有Application变量值的基础之上,再附加上最新的聊天内容:talk变量的值。这样就保证所有用户都能看到的共享信息了。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有