您的位置：首页 → 精文荟萃 → 软件资讯 → 在红蜻蜓中实现多房间

在红蜻蜓中实现多房间

时间：2004/10/7 19:08:00来源：本站整理作者：蓝点我要评论(0)

　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　
　　　　　　　　　　　　



　　　　　　　　　　　　在global中完成两件事
新房间在线人员名单的初始化（application_onstart）
Dim nameindex(0)
useronlinename=" "
onliners=0
Application("hxf_c_onlinelist")=nameindex
Application("hxf_c_useronlinename")=useronlinename
Application("hxf_c_chatrs")=onliners
将这一段提前在rs.close setrs=nothing
然后加入
rs.Close
rs.Open "select id from reginfo where grade>6",conn
do while not (rs.EOF or rs.BOF)
--chatroomsn=rs("id")
--Application("hxf_c_onlinelist"&chatroomsn)=nameindex
--Application("hxf_c_useronlinename"&chatroomsn)=useronlinename
--rs.MoveNext
loop

关于Session_OnEnd的修改应该在后面说才对
然后就是加入聊天室了hqtchat.asp关于这儿的调用我们应该加两个参数
chatroomsn和chatroomname聊天室的房间号和聊天室的名称
chatroomsn=request.querystring("chatroomsn")
chatroomname=request.querystring("chatroomname")
创建session("hxf_c_mylocale")=chatroomsn
换聊天室的名称
chatroomname=Application("hxf_c_chatroomname")
为chatroomname=Application("hxf_c_chatroomname")&mychatroomname
换
crm="<%=Application("hxf_c_chatroomname")%>";
为crm="<%=Application("hxf_c_chatroomname")&mychatroomname%>";

然后就是替换了找出你所有文件中的application（"hxf_c_useronlinename"）为application("hxf_c_useronlinename"&session("hxf_c_mylocale"))
替换application("hxf_c_onlinelist")为application("hxf_c_onlinelist"&session("hxf_c_mylocale"))当然Application_OnStrat中的部分除外
事实是我是在chatroomsn=session("hxf_c_mylocale")之后用chatroomsn换掉了上面的session（"hxf_c_mylocale"）在循环中这样调用session并不是一个好主意

这样每个房间有了自己的独立的在线名单了
下一步是什么？我只能对我自己所在聊天室中的人说话而且也只能收到同一房间中的人说的话是的那我们应该在我们说的每一句话中加入一个关于房间号的信息，可是我并不想再加一个sd信息这样会好麻烦的，于是我看中了syscolor，先改syscolor中的blue和black因为这两个值 是不定长的不好处理，改成0000ff和000000好了有什么 变化呢没有只是也是六个字符长的了这样更好处理好了下一步吧
那我们说的话就是newsd(537)=addwordcolor&cstr(chatroomsn)了
机器人吗？它是这样说的autonewsd(537)=sayscolor&cstr(chatroomsn)
其中的chatroomsn=session("hxf_c_mylocale")
好了，我们说的话中有了我们的房间信息了如何接收呢
在t.asp中
Select Case sift
Case "0","1","2"
中的每一个case中我们都在if判 断中多加一个检测
and mid(sd(i+5),7)=chatroomsn
颜色住信息中多出的房间号现在不处理出没有关系的
javascript解释RGB信息时会自己去除的
如果想也可以是 show(j+5)=left(sd(i+5),6)

好了，现在看起来没有事了我们的确有了不同的房间了只是好象没有入口而已
这样好了你可以自己加我是在hqtchat中另加了一个框架我加在f3的上方你可以自便


其中的selectchatroom.asp为
<%Response.Expires=0
mychatroomsn=session("hxf_c_mylocale")
chatroomsn=Request.QueryString("chatroomsn")
%>

--<%online=split(trim(application("hxf_c_useronlinename"))," ")
----onlinenum=ubound(online)+1
--%>
>
--<%=application("hxf_c_chatroomname")%>/
--<%=onlinenum%>人在线

<%
set conn=server.CreateObject("adodb.connection")
conn.Open application("hg_connstr"),conn
set rst=server.CreateObject("adodb.recordset")
rst.Open "SELECT ID,username from reginfo where grade>6",conn
do while not (rst.EOF or rst.BOF)
--chatroomsn=rst("ID")
--chatroomname=rst("username")
--useronline=application("hxf_c_useronlinename"&chatroomsn)
--onlinelist=split(trim(useronline)," ")
--onlinelistnum=ubound(onlinelist)+1
%>
-->
--<%=chatroomname%>/
--<%=onlinelistnum%>人在线
--
<%
--rst.MoveNext
loop
%>

好了现在让我们写changechatroom.asp吧
更简单了，得到房间名称和房间号先
mychatroomsn=Request.QueryString("chatroomsn")
chatroomname=Request.QueryString("chatroomname")
然后在下面加入exitchat.asp中的部分，当然是已经更改过了的exitchat.asp呀
去掉最后对close.asp的调用
最后加入新的处理方法

这样就行了不是很简单吗

新的房间在线名单不会更新
你可以用refresh 和settimeout 但是我想也许不会有多少人关心，而总是重读数据库并不是个好的主意如果你要用 refresh的话我建议是三分钟

事实上这样的房间只有六级的人能开如果你的服务器再的足够好，你可以让每个人都能开当然你应该在限定了房间数量之后实时更新，这样会更有趣些，所有的房间都没有新的管理功能？正是因为这样我才只让六级的人才能有自己的房间，当然他不在线就！！


好象就这样了，应该没有错了，自己做了呀
事实上我已经调试通过了,也算了我给大家的元宵礼物吧

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论