<!--#include file="../conn/conn.asp"-->
<%
dim info
dim changed
if Request.ServerVariables ("REQUEST_METHOD")="GET" then
UserID=Request.QueryString ("user")
myname=session("myname")'Request.QueryString ("roomname")
end if
if Request.ServerVariables ("REQUEST_METHOD")="POST" then
yinword=request.form("yinword")
myname=Request.Form ("userid")
UserID=myname
myroom=session("myroom")'Request.Form ("roomname")
mynickname=Request.Form ("mynickname")
newsql="update chatUserOnLine set TimeLastTalking='" & now & "' where UserID='" & UserID & "'"
conn.Execute (newsql)
Application.Lock
if left(Request.Form ("yinword"),1)="/" then
command=Request.Form ("yinword")
select case left(Request.Form ("yinword"),2)
case "/j" '加入新房間
newroom=trim(mid(Request.Form ("yinword"),4))
newsql="select RoomName,IfLocked,WhoCreate from chatRoomInfo where RoomName='" & newroom & "'"
set newrecord=conn.Execute (newsql)
'Response.Write newrecord("RoomName")
if newrecord.bof or newrecord.eof then
application(UserID)="沒有這個房間號！<br><br>" & application(UserID)
elseif newrecord("IfLocked")=true then
newsql="select UserID from chatUserOnLine where RoomName='" & newroom & "' and UserID='" & newrecord(2) & "'"
set myrecord=conn.Execute (newsql)
if not myrecord.BOF then
application(UserID)="這個房間已經上鎖，不能進入!<br><br>" & application(UserID)
else
Create_Leaved=true
newsql="update chatRoomInfo set IfLocked=0 where RoomName='" & newroom & "'"
end if
elseif Create_Leaved=false then
'changed=true
application(UserID)=application(newroom)
newsql1="select UserID from chatUserOnLine where RoomName='" & newroom & "'"
set targ=server.CreateObject ("ADODB.Recordset")
targ.Open newsql1,conn,1,3
do while not targ.eof
tempname=cstr(targ("UserID"))
'Response.Write targ("UserID")
if tempname<>UserID then
application(tempname)="<br>" & mynickname & "大搖大擺地進來了!(請刷新)<font color=blue size=1>(" & time() & ")</font><br><br>" & application(tempname)
end if
targ.movenext
loop
newsql3="update chatRoomInfo set HowManyUsers=HowManyUsers+1 where RoomName='" & newroom & "'"
conn.Execute (newsql3)
newsql4="update chatRoomInfo set HowManyUsers=HowManyUsers-1 where RoomName='" & myroom & "'"
conn.Execute (newsql4)
newsql2="update chatUserOnLine set RoomName='" & newroom & "' where UserID='" & UserID & "'"
conn.Execute (newsql2)
application(UserID)="妳已經進入了" & newroom & "房間<br><br>" & application(UserID)
session("myroom")=newroom
changed=true
targ.Close
set targ=nothing
end if
case "/r" '查看聊天室房間信息
newsql="select * from chatRoomInfo"
set newrecordseyinword=conn.Execute (newsql)
do while not newrecordseyinword.eof
info=info & newrecordseyinword("RoomName") & "--" & newrecordseyinword("HowManyUsers") & "--" & newrecordseyinword("Topic") & "--" & newrecordseyinword("IfLocked") & "--" & newrecordseyinword("WhoCreate") & "<br>"
newrecordseyinword.movenext
loop
'Response.Write info
application(UserID)=info & "<br>" & application(UserID)
case "/w" '查看聊天室成員信息
if len(trim(Request.Form ("yinword")))=2 then
newsql="select * from chatUserOnLine"
set newrecordset2=conn.Execute (newsql)
do while not newrecordset2.eof
info=info & newrecordset2("UserId") & "--" & newrecordset2("RoomName") & "--" & newrecordset2("IpAdd") & "--" & newrecordset2("TimeLogin") & "<br>"
newrecordset2.movenext
loop
application(UserID)="<font color=red>"& info & "<br>" & application(UserID)
else
if right(left(Request.Form ("yinword"),3),1)<>":" then
info="命令行輸入錯誤<br>"
application(UserID)=info & application(UserID)
else
temproom=mid(trim(Request.Form ("yinword")),4)
newsql="select RoomName from chatRoomInfo where RoomName='" & temproom & "'"
set newrecord3=conn.Execute (newsql)
if not newrecord3.bof then
newsql="select * from chatUserOnLine where RoomName='" & temproom & "'"
set newrecordset2=conn.Execute (newsql)
if newrecordset2.bof then
application(UserID)="<br>該房間暫時沒有人!<br><br>" & application(UserID)
else
do while not newrecordset2.eof
info=info & newrecordset2("UserId") & "--" & newrecordset2("RoomName") & "--" & newrecordset2("IpAdd") & "--" & newrecordset2("TimeLogin") & "<br>"
newrecordset2.movenext
loop
application(UserID)="<br>" & info & "<br>" & application(UserID)
end if
else
info="<br>沒有<font color=red><strong>" & temproom & "</strong></font>這個房間!<br>"
application(UserID)=info & application(UserID)
end if
end if
end if
case "/l" '鎖住本房間
'lockroom=mid(Request.Form ("yinword"),4)
newsql="select WhoCreate from chatRoomInfo where WhoCreate='" & UserID & "' and RoomName='" & session("myroom") & "'"
set newrecordset=conn.Execute (newsql)
if newrecordset.bof then
application(UserID)="不好意思，妳無權鎖住這個房間!<br><br>" & application(UserID)
else
newsql="update chatRoomInfo set IfLocked=1 where RoomName='" & session("myroom") & "'"
conn.Execute (newsql)
application(UserID)="妳已經鎖住了這個房間!<br><br>" & application(UserID)
end if
case "/u"'解開房間
newsql="select WhoCreate from chatRoomInfo where WhoCreate='" & UserID & "' and RoomName='" & session("myroom") & "'"
set newrecordset=conn.Execute (newsql)
if newrecordset.bof then
application(UserID)="不好意思，妳無權解開這個房間或者不在那個房間!<br><br>" & application(UserID)
else
newsql="update chatRoomInfo set IfLocked=0 where RoomName='" & session("myroom") & "'"
conn.Execute (newsql)
application(UserID)="妳已經解開了這個房間!<br><br>" & application(UserID)
end if
case "/c"
application(session("myname"))=""
case "/b" '退出聊天室
%>
<script language="javascript">
<!--
top.location.href ="chatbye.asp"
//-->
</script>
<%
session.Abandon
Response.End
case "/h" '顯示幫助系統
info="/h---顯示幫助提示<br>"
info=info & "/j:roomname---加入新的房間<br>"
info=info & "/r---查看當前房間信息<br>"
info=info & "/w:roomname---查看當前用戶情況<br>"
info=info & "/l--鎖住當前房間，只有創建者才能鎖住<br>"
info=info & "/b--退出聊天室<br>"
info=info & "/u--解開某個房間<br>"
info=info & "/t:modifytopic--修改話題,只有創建者才能修改<br>"
info=info & "/c--清除聊天內容<br>"
application(UserID)= "<br>" & info & "<br>" & application(UserID)
case "/t"'更改房間話題
if right(left(command,3),1)<>":" then
application(UserID)="<br>命令輸入錯誤!<br><br>" & application(UserID)
else
newsql="select WhoCreate from chatRoomInfo where WhoCreate='" & UserID & "' and RoomName='" & session("myroom") & "'"
set newrecordset=conn.Execute (newsql)
if newrecordset.bof then
application(UserID)="不好意思，妳無權修改這個房間的話題!<br><br>" & application(UserID)
else
newsql="update chatRoomInfo set Topic='" & mid(command,4) & "' where RoomName='" & session("myroom") & "'"
conn.Execute (newsql)
newsql="select UserID from chatUserOnLine where RoomName='" & session("myroom") & "'"
set t_newrecordset=conn.Execute (newsql)
do while not t_newrecordset.eof
application(t_newrecordset(0))="房間話題被修改為<font color=#ff0000>" & mid(command,4) & "</font>!<br><br>" & application(t_newrecordset(0))
t_newrecordset.movenext
loop
t_newrecordset.close
set t_newrecordset=nothing
'application(UserID)="妳已經修改這個房間的話題為<font color=vbpurplea>" & mid(command,4) & "</font>!<br><br>" & application(UserID)
end if
end if
case else
application(UserID)= "<br>沒有這個命令，請用/h查看幫助<br>" & application(UserID)
end select
else
if request.form("targ")<>"all" then
id_name=Request.Form ("targ")
'Response.Write id_name
temppos=instr(1,id_name,",",1)
yourid=mid(id_name,1,temppos-1)
yournickname=mid(id_name,temppos+1)
end if
set myrecord=server.CreateObject ("ADODB.Recordset")
mysql="select * from chatUserOnLine where RoomName='" & myroom & "'"
myrecord.Open mysql,conn,1,3
'application.lock
if request.form("targ")="all" or request.form("siliao")<> "ON" then
if request.form("targ")="all" then
tempstr="<font color='" & request.form("color1") & "'>" & mynickname & Request.Form ("facing") & "說： " & request.form("yinword") & "</font><font color=blue size=0.5>(" & time() & ")</font><br>"
else
tempstr="<font color='" & request.form("color1") & "'>" & mynickname & "悄悄對" & yournickname & Request.Form ("facing") & "說： " & request.form("yinword") & "</font><font color=blue size=0.5>(" & time() & ")</font><br>"
end if
do while not myrecord.EOF
application(myrecord("UserId"))=tempstr & application(myrecord("UserId"))
myrecord.MoveNext
loop
application(myroom)=tempstr & Application(myroom)
'if len(application(myroom))>1000 then
'
' length2=len(application(myroom))
' temppos=instrrev(application(myroom),"<br>",length2)-1
' application(myroom)=mid(application(myroom),1,temppos)
' end if
' application(UserID)= "<br>len(application(myroom))" & len(application(myroom)) & "<br>" & application(UserID)
' application(UserID)= "<br>length2" & length2 & "<br>" & application(UserID)
' application(UserID)= "<br>temppos" & temppos & "<br>" & application(UserID)
else
tempstr="<marquee border='0' behavior='alternate'><font color='" & request.form("color1") & "'>" & mynickname & "對" & yournickname & Request.Form ("facing") & "說:" & request.form("yinword") &"</font></marquee>" &"<font colovrr=blue size=0.5>(" & time() & ")</font><br>"
application(yourid)=tempstr & application(yourid)
application(myname)=tempstr & Application(myname)
end if
'if len(application(myname))>20000 then
' length1=len(application(myname))
' temppos=instrrev(application(myname),"<br>",length1-4)-1
' application(myname)=mid(application(myname),1,temppos)
'end if
application.unlock
end if
'Response.Write (application(UserID))
Response.Write application(UserID)
else
Response.Write application(UserID)
end if
conn.Close
set conn=nothing
if changed=true then
%>
<script language="javascript">
<!--
parent.frames[1].location.href="chatsend.asp"
//-->
</script>
<%
end if
%>
<html>
<head>
<meta http-equiv="refresh" content="10;url=chatcontent.asp?user=<% =UserID %>">
<title>聊天內容</title>
<base target="ltop">
</head>
<body bgcolor="rgb(254,252,237)">
</body>
</html>