最简单的ASP聊天室（转）

最新推荐文章于 2024-10-17 11:25:41 发布

cuankuangzhong6373

最新推荐文章于 2024-10-17 11:25:41 发布

阅读量1.2k

点赞数

本文档详细解析了一个基于VBScript的聊天室网页脚本，包括用户登录与聊天界面的实现，展示了如何通过Request对象获取用户输入，并使用Session和Application对象进行用户管理和消息展示。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

＜%@ Language=VBScript %＞
＜%
Response.Buffer=true ' 设置输出缓存，用于显示不同页面。
On error resume next ' 忽略程序出错部分
If Request.ServerVariables("Request_Method")="GET" then
' 判断客户是以什么方式请求 WEB 页面
'------------------------
' 客户登陆界面
'------------------------
%＞

＜form method="POST" action="http://www.cs02.com/luo40.asp"＞＜p＞
＜input type="text" name="nick" size="20" value="nick" style="background-color: rgb(192,192,192)"＞＜br＞
＜input type="submit" value=" 进入聊天室 " name="B1" style="color: rgb(255,255,0); font-size: 9pt; background-color: rgb(0,128,128)"＞
＜p＞＜input type="hidden" name="log" size="20" value="1"＞＜br＞＜/p＞
＜/form＞

＜%
Response.End ' 结束程序的处理
Else
Response.clear ' 清空缓存中的内容
dim talk
If Request.Form("nick")＜＞"" then
' 判断客户是是否在聊天界面中
Session("nick")=Request.Form("nick")
End If
'------------------------
'客户聊天界面
'------------------------
%＞

＜form method="POST" action="http://www.cs02.com/luo40.asp" name=form1＞＜p＞＜%=Session("nick")%＞说话：＜input type="text" name="talk" size="50"＞＜br＞
＜input type="submit" value=" 提交 " name="B1"＞
＜input type="reset" value=" 取消 " name="B2"＞＜/p＞
＜/form＞
＜A HREF="http://www.cs02.com/luo40.asp"＞离开＜/a＞＜br＞＜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")="＜table border='0' cellpadding='0' cellspacing='0' width='85%'＞＜tr＞＜td width='100%' bgcolor='#C0C0C0'＞＜/td＞＜/tr＞＜tr＞＜td width='100%'＞＜font color='#0000FF'＞来自 "&Request.ServerVariables("remote_addr")&" 的 "&Session("nick")&time&" 说：＜/font＞"&talk&"＜/td＞＜/tr＞＜tr＞＜td width='100%' bgcolor='#C0C0C0'＞＜/td＞＜/tr＞＜/table＞＜br＞"&Application("show")
Application.UnLock

Response.Write Application("show")
End If
End If
%＞

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-124679/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10294527/viewspace-124679/