<%Response.Buffer=true response.expires=0 sub newsay(who,towho,secret,room_id,mess,c1,c2,act) say_id=says(current,0)+1 current=current+1 if current>MaxTalk then current=0 says(current,0)=say_id says(current,1)=who says(current,2)=towho says(current,3)=secret says(current,4)=room_id ' if secret then ' ttt=1 ' else ttt=0 ' end if says(current,5)="'"&mess&"','"&who&"','"&towho&"',"&ttt&",'"&c1&"','"&c2&"',"&act&",'"&time()&"'," end sub application.lock call get_guests call get_maxuser myname=Session("myname") myid=Session("myid") room_id=guests(myid,5) set rs1=conn.execute("select * from room where ID="&room_id) set rsparam=conn.execute("select * from param") count=0 for j=0 to MaxUser if guests(j,0)<>"" and room_id=guests(j,5) then count=count+1 next scriptstr="" scriptstr=scriptstr&"'"&rs1("room_name")&"','"&rs1("room_owner")&"'," scriptstr=scriptstr&rs1("room_exp") user_num=0 call get_says for i=0 to MaxUser if guests(i,0)<>"" and (datediff("s",guests(i,6),now())>300) then if guests(i,4)<>rsparam("superlevel") then call newsay(guests(i,0),"大家",false,guests(i,5),"【默哀】“砰”的一声，##重重地摔下去了！","#3366cc","blue",-2) guests(i,0)="" elseif guests(i,0)<>"" and datediff("n",guests(i,11),now())>rsparam("nosaytime") then if guests(i,4)<>rsparam("superlevel") then call newsay(guests(i,0),"大家",false,guests(i,5),"【默哀】潜水过久的##不幸沉入海底！","#000099","#990000",-2) guests(i,0)="" elseif guests(i,0)<>"" and guests(i,4)<>rsparam("superlevel") then if guests(i,5)=room_id then scriptstr=scriptstr&",'"&guests(i,0)&"'," if (datediff("s",guests(i,6),now())>50) then scriptstr=scriptstr&"'1'," else scriptstr=scriptstr&"''," end if if guests(i,3) then scriptstr=scriptstr&"1" else scriptstr=scriptstr&"0" end if scriptstr=scriptstr&","&datediff("n",guests(i,11),now()) scriptstr=scriptstr&",'"&guests(i,13)&"'" end if user_num=user_num+1 end if next call put_guests call put_says response.write "" application.unlock%>