<%
response.Charset="gb2312"
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
onnow=now()
%><!--#include file="inc/config.asp"--><!--#include file="inc/conn.asp"--><%
m=request("M")
r=request("R")
U=request("U")
L=request("L")
T=request("T")
'if request("U")<>Request.Cookies("XH_Uid") then
'Response.Write "参数不足"
'Response.End
'end if
if M<>"" and R<>"" and U<>"" then
M=int(M)
R=int(R)
U=int(U)
else
Response.Write "参数不足"
Response.End
end if
wl=request("wl")
wl=Replace(request("WL"),",","#")
if u="" then u=0
'rs.open "select * from XH_Player where (XH_OnMap="&M&" and XH_OnRoom="&R&" and datediff('s',XH_OnLine,'"&onnow&"')<10) or id="&U,conn,1,3
rs.open "select * from XH_Player where datediff('s',XH_OnLine,'"&onnow&"')<10 or id="&U,conn,1,3
'$总在线,总在线名单,新短消息数
AllOnNum="$"&rs.RecordCount&","
AllOnUser=""
Onlist=""
do while not rs.eof
if rs("id")=U then
Application.Lock
if rs("XH_OnMap")=M and rs("XH_OnRoom")=R and wl<>"" then
rs("XH_OnWay")=wl
else
rs("XH_OnWay")=L&"#"&T
end if
rs("XH_Xnum")=L
rs("XH_Ynum")=T
rs("XH_OnMap")=M
rs("XH_OnRoom")=R
rs("XH_OnLine")=now()
rs.update
Application.Unlock
NewMsgNum=","&rs("XH_NewMsg")
else
'if AllOnUser="" then
'AllOnUser=rs("XH_Myname")
'else
AllOnUser=AllOnUser&"#"&rs("XH_Myname")
'end if
if rs("XH_OnMap")=M and rs("XH_OnRoom")=R then onlist=onlist&"$"&rs("id")&","&rs("XH_Myname")&","&rs("XH_Myhead")&","&rs("XH_OnWay")
end if
rs.movenext
loop
rs.close
closeconn()
Response.Write AllOnNum&AllOnUser&NewMsgNum&onlist
%>