send.asp

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

<% Response.ContentType="text/vnd.wap.wml" %>
<% Response.Charset="gb2312" %>
<%
'获得在线用户人数
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)&"离开了聊开室。"
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
%>
<?xml version="1.0"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="main" title="登入">
<p>对：<select name="who" value="大家" ivalue="大家">
<option value="大家">大家</option>
<% for n=1 to usernum %>
<option value="<% response.write userlist(n) %>"><% response.write userlist(n) %></option>
<% next %>
</select><br/>
说：<input name="conten"/><br/>
<anchor>确定<go href="display.asp">
<postfield name="towho" value="$(who)"/>
<postfield name="content" value="$(conten)"/>
</go>
</anchor>
</p>
</card>
</wml>