<%@ LANGUAGE=VBScript codepage ="936" %>
<!--#include file="config.asp"-->
<%Response.Buffer=true
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0
%>
<%
if Application("st_gohome")="" then
Server.Transfer("global.asp")
Response.end
end if
%>
<!bgsound src=T/JingleBells.mid loop=-2 volume=1!>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE><%=Application("zhbg_chatroomname")%>　<%=Application("zhbg_ver")%>　<%=Application("zhbg_sn")%></TITLE>
<link href="css.CSS" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="Center/top_index.asp"-->
<body  leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% if zhbg_name<>"" then %>
<SCRIPT language=JavaScript src="gif/a1-2.js"></SCRIPT>
<% else %>
<SCRIPT language=JavaScript src="gif/a1.js"></SCRIPT>
<% end if %>
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0" >
  <!--DWLayoutTable-->
  <tr><td width="775" height="28"><font color="#cccccc">
  <%
Response.Write " 当前在线人数为："&Application("ActiveUsers")
%>
<%
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 
%> 人 / 聊天室人数为：<%=onlinenow%> 人 / <!--#include file="count.asp" --> 人次</font>
</td></tr></table>
<table width="667" border="0" align="center" cellpadding="0" cellspacing="0" >
  <!--DWLayoutTable-->
  <tr><td width="667" height="283" valign="top"><img src="GIF/jianshe.jpg">
</td>
  </tr></table>
<br>
<% if zhbg_name<>"" then %>
<SCRIPT language=JavaScript src="../gif/a2-2.js"></SCRIPT>
<% else %>
<SCRIPT language=JavaScript src="../gif/a2.js"></SCRIPT>
<% end if %>
<br></body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>