<% '######################################################################################### '* 程序名称: X-Chat聊天系统 (版本：Beta 1.0 2004.01.15) '*--------------------------------------------------------------------------------------- '* 版权所有: X-Chat工作组 '* 程序设计: X-Chat工作组 '* 联系方式: '* EMAIL：zelonggao@yahoo.com '* MobilePhone:13931870770 8636314 '* UC：65639170 '* MSN：upholder_wuxing@msn.com '* 主页地址: '* http://www.正在建设之中 '* http://www.tamzone.net '*--------------------------------------------------------------------------------------- '* Copyright 2003-2004 X-Chat工作组 - All Rights Reserved. - '######################################################################################### on error resume next'错误忽略，以便能捕获错误信息 Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = 0 '---------------------------------------------------------------------------------------- rem 判断global.asa是否被正确执行 if not Application("initialized") then response.Redirect("initchat.asp") %> 欢迎使用X-Chat聊天系统
 
 
系统最高在线人数:<%=application("c_sysmaxonline")%>人　发生时间: <%oltime=application("c_sysmaxonlinetime"):response.write(cstr(year(oltime))+"-"+cstr(month(oltime))+"-"+cstr(day(oltime))+"")%> 　当前在线:  人　其中会员:<%=Application("c_usermember")%>人
呢称: 密码: (游客无须密码)
　如果您想长期使用最好
 
<%roominfo=Application("c_roominfo")%> <% if not isarray(roominfo) then%> <%else%> <%for i=1 to ubound(roominfo)%> <%next rem 更新当前在线人数 Application("c_useronline")=sumuser end if%>
聊天系统暂时未开放！
<% info=split(roominfo(i),"$") max_user=info(4) if application("c_roomusernum"&cstr(info(1)))<>0 then user=application("c_roomusernum"&cstr(info(1))) else user=0 end if sumuser=sumuser+user if max_user>user then%> <%=info(2)%>[<%=max_user%>/<%=user%>] <%else%> <%=info(2)%>[<%=max_user%>/已满] <%end if %> <%=info(3)%> 
　说明：<1> 呢称中请不要含这些特殊字符： " $ * = , % ? & ; '，
　　　　<2> 如果您刚才已经登录过，请点击这里直接进入或者在这儿注销!