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

简单的聊天室演示程序

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

这个聊天室程序是为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
%>

 

风云舞者的聊天室

在线成员:
<%
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 "" & rs("会员")
else
response.write "" & rs("会员")
end if
end if
rs.movenext
loop
%>

用户名:

<%
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 "用户名称不可以含有空格、<符号、>符号、_符号，而且最少为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 "对不起，" & request.form("user") & " 这个用户还未离线，请您另起一个名字":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
%>