userlist.asp

wap聊天室code 现在开发手机软件很流行 找了这个手机聊天室跟大家分享一下

<% Response.ContentType="text/vnd.wap.wml" %>
<% Response.Charset="gb2312"
response.buffer=true
response.cachecontrol="Private" '禁止代理服务器缓存本页面
response.expires=0 '让页面立即过期
%>
<% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'获得在线用户人数
usernum=0
userlist=Application("userlist")
userlastsaytime=Application("userlastsaytime")
CurmsgID=Application("CurmsgID")
''''''''
saymsg=Application("saymsg")
whotowho=Application("whotowho")
''''''''
for n= 1 to 30
if Len(userlist(n))>0 then usernum=usernum+1
next
if usernum>0 then
'从用户列表删除超时用户
for i=usernum to 1 step -1
if abs(DateDiff("s",userlastsaytime(i),now))>600 then
CurmsgID=CurmsgID+1
if CurmsgID>10 then CurmsgID=1
saymsg(CurmsgID)="[公告]"&userlist(i)&"离开了聊开室。"&time
whotowho(CurmsgID,1)="System"
whotowho(CurmsgID,2)="大家"
'从列表中删除该用户
for n=1 to usernum-1
userlist(n)=userlist(n+1)
userlastsaytime(n)=userlastsaytime(n+1)
next
userlist(usernum)=Empty
userlastsaytime(usernum)=Empty
usernum=usernum-1
end if
next
'若全部离开了，则删除所保存的聊天内容
if usernum=0 then
for n=1 to 10
saymsg(n)=""
whotowho(n,1)=""
whotowho(n,2)=""
next
CurmsgID=0
end if
'将更新后的结果重新回存到Application对象中保存
Application.lock
Application("saymsg")=saymsg
Application("whotowho")=whotowho
Application("userlist")=userlist
Application("userlastsaytime")=userlastsaytime
Application("CurmsgID")=CurmsgID
Application("usercount")=usernum
Application.unlock
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<wml>
<card id="main" title="用户列表">
<p>
<% response.write "在线人数："&usernum&"<br/>"
for i=1 to usernum
response.write userlist(i)&"<br/>"
next
%>
<a href="display.asp">返回</a>
</p>
</card>
</wml>