<%@ LANGUAGE=VBScript codepage ="936" %><%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
%>
document.write("<select name=onlinelist style=background-color:ffffff;color:000000>");
<%
zhbg_roominfo=split(Application("zhbg_room"),";")
chatroomnum=ubound(zhbg_roominfo)-1
onlinenow=0
for i=0 to chatroomnum	
	online=split(trim(Application("zhbg_useronlinename"&i)),"  ")
	onlinenum=ubound(online)+1
	onlinenow=onlinenow+onlinenum
next 
%>
document.write("<option selected>非凡国度<%=onlinenow%>人聊天</option>");
<%
for i=0 to chatroomnum	
	chatroomxx=split(zhbg_roominfo(i),"|")
	online=split(trim(Application("zhbg_useronlinename"&i)),"  ")
	onlinenum=ubound(online)+1
%>
document.write("<option style='color:ff6600'>[<%=chatroomxx(0)%><%=onlinenum%>人]</option>");
<%
if onlinenum>0 then 
online=split(trim(Application("zhbg_useronlinename"&i)),"  ")
onlinenum=ubound(online)+1
useronlinename=trim(Application("zhbg_useronlinename"&i))&"  "
'为了隐身功能增加
  zhbg_admin=split(Application("zhbg_admin"),",")
  for j=0 to ubound(zhbg_admin) 
    useronlinename=replace(useronlinename,zhbg_admin(j)&"  ","")
  next
useronlinename=replace(trim(useronlinename),"  ","</option><option>")
%>
document.write("<option><%=useronlinename%></option>")
<%
end if
next%>
document.write("</select>"); 