一个非常简单完整的聊天室演示程序,推荐初学者下载

原创 2003年07月20日 10:05:00

简单的聊天室演示程序

一个比较基本的聊天室程序,具备最基本的“在线成员”“私聊”“清屏”“自动滚屏”等功能

这个聊天室程序是为ASP初学者学习参考而做,程序压缩包不大,20几K

下载地址:http://www.lshdic.com/download/lshdic/asp_liaotian.zip

这个聊天室是结合数据库的,由于代码分布不集中,在此只贴出用户登陆的那页代码

<%
set link1=server.CreateObject("ADODB.Connection")
link1.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("聊天室.mdb")
set rs=link1.Execute("select * from 会员表")
if request.form("ok")="" then
%>
<HTML>
<HEAD>
<META http-equiv='Content-Type' content='text/html;charset=gb2312'>
<Meta name='Gemeratpr' content='网络程序员伴侣(Lshdic)2004'>
<TITLE>登陆聊天室</TITLE>
<STYLE>
*{font-size:12px;color:;}
</STYLE>
</HEAD>
<BODY topmargin='2' leftmargin='2'>
<center>&nbsp;<p>风云舞者的聊天室<p>
<form method='post'>
在线成员:<select style='width:125'>
<%
str1=0
do while not rs.eof
times=DateDiff("s",rs("时间"),now)   '得到“当前时间”与“会员最后操作时间”之间间隔的秒数
if times<1200 then                   '20分钟内的最大停塞时间
if str1=0 then
str1=1:response.write "<option selected>" & rs("会员")
else
response.write "<option>" & rs("会员")
end if
end if
rs.movenext
loop
%>
</select><p>
用户名:<input type='text' maxlength='10' name='user'><p>
<input type='submit' value='提交' name='ok'>
</form>
<%
else
if request.form("user")="" then response.write "你必须填写用户名":response.end
if instr(request.form("user")," ")<>0 or instr(request.form("user"),"<")<>0 or instr(request.form("user"),">")<>0 or len(request.form("user"))<1 then response.write "用户名称不可以含有空格、&lt;符号、&gt;符号、_符号,而且最少为1个字符":response.end
if request.form("user")="大家" then response.write "用户名称不可以是“大家”":response.end
if rs.eof=true and rs.bof=false then rs.movefirst
isolduser=0
do while not rs.eof
if lcase(request.form("user"))=lcase(rs("会员")) and DateDiff("s",rs("时间"),now)<1200 then
response.write "对不起,<font color=red>" & request.form("user") & "</font> 这个用户还未离线,请您另起一个名字":response.end
elseif lcase(request.form("user"))=lcase(rs("会员")) and DateDiff("s",rs("时间"),now)>1200 then
isolduser=1:exit do
end if
rs.movenext
loop
if isolduser=1 then    '如果该会员以存在数据库中
link1.Execute "update 会员表 set 时间='" & now & "',id=" & session.SessionID & " where 会员='" & request.form("user") & "'"
else
link1.Execute "Insert into 会员表(会员,时间,id) values ('" & request.form("user") & "','" & now & "'," & session.SessionID & ")"
end if
application.Lock()
application("mc_" & session.SessionID)=""    '为该用户创建一个存储聊天数据的application变量中
application.UnLock()
session("who")=request.form("user")     '为该用户创建一个Session变量为了以后动态判断
response.Redirect "MC_allform.asp"
end if
%>
</BODY>
</HTML>

网球初学者网球拍的推荐

在技术博客发体育爱好的文章似乎不太适宜,不过谁叫我就这么一个博客呢…… 以下为我根据自己的经验对百度知道的一个问题的回答,全文如下 --------------------------------...
  • yangtze_1006
  • yangtze_1006
  • 2014年02月17日 11:15
  • 3840

推荐!《数据结构》演示程序(提供下载)

点击下载《数据结构》演示程序
  • metababy
  • metababy
  • 2005年12月29日 14:21
  • 1365

简易网页聊天室DEMO

主要实现了群聊功能 原理很简单: 本地(javascript)向服务器发送消息(图片或者文字),由服务器(php)向各个主机转发 上传图片由ajax和html5实现,可以参考我之前的博客Html5&A...
  • u011606714
  • u011606714
  • 2015年03月16日 10:42
  • 1004

j(转)ava(转)学习书(转)籍推荐(转)(转)

(转) 来源: 余亮的日志 1. Java 语言基础     谈到Java 语言基础学习的书籍,大家肯定会推荐Bruce Eckel 的《Thinking in Ja...
  • yangtao6888
  • yangtao6888
  • 2012年07月17日 11:22
  • 1281

给初学者的一些推荐和建议!--delphi

本人虽不敢自诩高人,但学习编程也有一些年头,也经常看到一些初涉编程行业的朋友苦于自身难于提高,憋着浑身的劲头却恼于无的放失....所以,今日发这 个帖子给所有热爱编程的初学者提供一些学习方面的帮助.....
  • javne
  • javne
  • 2006年02月17日 16:11
  • 1355

Tornado实现聊天室功能(websocket)

小试了一把Tornado的websocket来实现聊天室的功能,非常简单,上代码: 服务器端: import logging import tornado.escape import to...
  • lrenjundk
  • lrenjundk
  • 2013年05月09日 15:50
  • 4276

Lua初学者(一)--Lua 简单教学

基础学习、安装、配置Lua环境,基础篇(一),资源上传百度云,直接下载即可。 有好的个人总结都会后续录入的。...
  • zhuzhuyule
  • zhuzhuyule
  • 2014年11月05日 20:31
  • 1592

实现任意长的整数进行加法运算的演示程序

 -----------------------------------------------------------------------问题描述: 设计一个实现任意长的整数进行加法运算的演示程...
  • sdp
  • sdp
  • 2006年11月07日 23:33
  • 3256

Java 入门 之 聊天室项目思路 服务器端

项目思路: 1)先登录服务器,如果服务器没有登陆,那个各个客户端就不可以正常工作; 2)登陆各个客户端,实现各个客户端的输入,在客户端呈现,传输到服务器端。 3)所有客户端的输入在服务器上呈现,并...
  • u013630349
  • u013630349
  • 2016年02月20日 09:17
  • 1505

C#聊天室

///ServerForm C# code using System;using System.Collections.Generic;using System
  • wudi626
  • wudi626
  • 2008年05月02日 14:35
  • 1827
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个非常简单完整的聊天室演示程序,推荐初学者下载
举报原因:
原因补充:

(最多只允许输入30个字)