一個非常簡單完整的聊天室演示程式,推薦初學者下載 (轉)

風雲舞者的聊天室

線上成員:
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
l
%>

使用者名稱:

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
%>