ASP在红蜻蜓中实现多房间

在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的上方你可以自便
<frame src="selectchatroom.asp?chatroomsn=<%=chatroomsn%>" name="chatroomfrm" scrolling="NO" noresize marginwidth="0" marginheight="0">

其中的selectchatroom.asp为
<%Response.Expires=0
mychatroomsn=session("hxf_c_mylocale")
chatroomsn=Request.QueryString("chatroomsn")
%>
<form name=form1>
<select name=chatroomselect onchange='javascript:changechatroom();'>
--<%online=split(trim(application("hxf_c_useronlinename"))," ")
----onlinenum=ubound(online) 1
--%>
<option value='/' <%if chatroomsn=mychatroomsn then Response.Write "selected"%>>
--<%=application("hxf_c_chatroomname")%>/
--<%=onlinenum%>人在线
</option>
<%
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
%>
--<option value="<%=chatroomsn%>/<%=chatroomname%>" <%if cstr(chatroomsn)=mychatroomsn then Response.Write "selected"%>>
--<%=chatroomname%>/
--<%=onlinelistnum%>人在线
--</option>
<%
--rst.MoveNext
loop
%>
</select>
</form>
<script language=javascript>
function changechatroom()
{
--var chatroomoption=document.form1.chatroomselect.value;
--var chatroomoptmp;
--var chatroomsn;
--var chatroomname;
--chatroomtmp=chatroomoption.indexOf('/');
--chatroomsn=chatroomoption.substring(0,chatroomtmp);
--chatroomname=chatroomoption.substring(chatroomtmp 1);
--top.t.location.href="about:blank";
--top.d.location.href="about:blank";
--top.f3.location.href="changechatroom.asp?chatroomsn=" chatroomsn "&chatroomname=" chatroomname;
}
</script>

好了现在让我们写changechatroom.asp吧

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有