<%response.expires=0
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''此段程序为聊天室的初始化部分
on error resume next '初始化成功后可删除此程序段
err.clear '最好一并删除initchat.asp程序
set rs=conn.execute("select * from ver") '
ver=trim(rs("ver")) 'ver2.2传说水吧初始化部分
set rs=conn.execute("select id,room_name from room order by ID") '
if err or (rs.eof or rs.bof) or ver<>"2.3" then '2001.6.15 write by free
err.clear '
response.redirect("initchat.asp") '
response.end '
end if '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
application.lock
call get_init
if chatinit<>"true" then
response.redirect("initglobal.asp")
response.end
end if
call get_guests
call get_maxuser
application.unlock
set rsparam=conn.execute("select * from param")
room_name=rs("room_name")
max_id=rs("ID")
op_str=""
count_all=0
max_count=0
do while not (rs.bof or rs.eof)
count=0
for i=0 to MaxUser
if guests(i,0)<>"" and guests(i,5)=rs("ID") and guests(i,4)<>rsparam("superlevel") then
count=count+1
count_all=count_all+1
end if
next
if count>max_count then
max_count=count
max_id=rs("ID")
end if
op_str=op_str+""
rs.movenext
loop
%>
【<%=room_name%>】
<%rsparam.close
set rsparam=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing%>