最简单的ASP聊天室

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

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

＜%
Response.End'结束程序的处理
Else
Response.clear'清空缓存中的内容
dimtalk
IfRequest.Form("nick")＜＞""then
'判定客户是是否在聊天界面中
Session("nick")=Request.Form("nick")
EndIf
'------------------------
'客户聊天界面
'------------------------
%＞ 内容来自dedecms

＜formmethod="POST"action="http://www.cs02.com/luo40.asp"name=form1＞＜p＞＜%=Session("nick")%＞说话：＜inputtype="text"name="talk"size="50"＞＜br＞
＜inputtype="submit"value="提交"name="B1"＞
＜inputtype="reset"value="取消"name="B2"＞＜/p＞
＜/form＞
＜AHREF="http://www.cs02.com/luo40.asp"＞离开＜/a＞＜br＞＜br＞ 本文来自织梦

＜%
IfRequest.Form("log")＜＞1then
Iftrim(Request.Form("talk"))=""then
'判定用户是否没有输入任何内容
talk=Session("nick")&"沉默是金。"
Else
talk=trim(Request.Form("talk"))
'去掉字符后的空格
EndIf copyright dedecms

Application.lock
Application("show")="＜tableborder='0'cellpadding='0'cellspacing='0'width='85%'＞＜tr＞＜tdwidth='100%'bgcolor='#C0C0C0'＞＜/td＞＜/tr＞＜tr＞＜tdwidth='100%'＞＜fontcolor='#0000FF'＞来自"&Request.ServerVariables("remote_addr")&"的"&Session("nick")&time&"说：＜/font＞"&talk&"＜/td＞＜/tr＞＜tr＞＜tdwidth='100%'bgcolor='#C0C0C0'＞＜/td＞＜/tr＞＜/table＞＜br＞"&Application("show")
Application.UnLock

Response.WriteApplication("show")
EndIf
EndIf
dedecms.com

看完这篇，您有何感觉呢？