login.asp

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

<% Response.ContentType="text/vnd.wap.wml"
Response.Charset="gb2312"
%><?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="c1" title="login">
<p>
<%
session("usernick")=request("user")
if session("usernick")="" then server.transfer "error.asp"

if IsEmpty(Application("saymsg")) then

dim saymsg(10)
dim CurmsgID
dim userlist(30)
dim whotowho(10,2)
dim userlastsaytime(30)

userlist(1)=session("usernick")
CurmsgID=1
userlastsaytime(1)=now
saymsg(1)="<b>[公告]"&session("usernick")&"进入聊天室。</b>"&time
whotowho(CurmsgID,1)="System"
whotowho(CurmsgID,2)="大家"

response.write " in if<br/>"

Application.lock
Application("saymsg")=saymsg
Application("whotowho")=whotowho
Application("userlist")=userlist
Application("userlastsaytime")=userlastsaytime
Application("CurmsgID")=CurmsgID
Application("usercount")=1
Application.unlock
else

'response.write " in else1<br/>"

userlist=Application("userlist")
userlastsaytime=Application("userlastsaytime")
for n=1 to 30
if session("usernick")=userlist(n) and abs(DateDiff("s",userlastsaytime(n),now))<600 then
session("errornick")="已经有人使用<b>"&session("usernick")&"</b>昵称了，请更换！"
'response.redirect "default.asp" '''''''''''''''''''''''''''
server.transfer "default.asp"
response.end
'response.write "name used"
end if
next
if Application("usercount")>30 then
session("errornick")="本聊天室人员已满，请待会儿再试！"
'response.redirect "default.asp" '''''''''''''''''''''''''''''''
server.transfer "default.asp"
response.end
'response.write " in else2<br/>"
end if
usernum=0 '统计人数的变量
'获得相应数组
saymsg=Application("saymsg")
CurmsgID=Application("CurmsgID")
whotowho=Application("whotowho")
'统计在线人数
for n=1 to 30
if Len(userlist(n))>0 then usernum=usernum+1
next
'判断并删除超时未发言的用户
for n=usernum to 1 step -1
if abs(DateDiff("s",userlastsaytime(n),now))>600 then
CurmsgID=CurmsgID+1
if CurmsgID=10 then CurmsgID=1 '发言数量超过10就从第一句开始覆盖
saymsg(CurmsgID)="<b>[公告]"&userlist(n)&"离开了聊天室。</b>"&"("&time&")"
whotowho(CurmsgID,1)="System"
whotowho(CurmsgID,2)="大家"
'从列表中删除该用户，然后将后面的依次向前移，并将最后一个设置为空
for i=n to usernum-1
userlist(i)=userlist(i+1)
userlastsaytime(i)=userlastsaytime(i+1)
next
'最后移出来的空位就是不要的，设置为空，达到删除的目的
userlist(usernum)=Empty
userlastsaytime(usernum)=Empty
usernum=usernum-1
end if
next
'加入当前新登入用户的相关信息
CrumsgID=CurmsgID+1
usernum=usernum+1
if CurmsgID>10 then CurmsgID=1
saymsg(CurmsgID)="<b>[公告]"&session("usernick")&"进入聊天室。</b>("&time&")"
whotowho(CurmsgID,1)="System"
whotowho(CurmsgID,2)="大家"
userlist(usernum)=session("usernick")
userlastsaytime(usernum)=now
'将更新后的数组和变量，重新赋给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
'response.redirect "chat.wml"
'server.transfer "default.asp"
%>
<%
thistime=now
h=hour(thistime)
dim temp
if h>0 and h<12 then
temp="早上好！"
else if h>12 and h<8 then
temp="下午好！"
else
temp="晚上好！"
end if
end if

'response.write h
response.write temp&"<b>"&session("usernick")&"</b><br/>"
%>
请选择聊天室：<br/>
<select name="room" value="boy" >
<option value="boy">boy</option>
</select><br/>
<anchor>进入<go href="display.asp" mothed="get">
<postfield name="room" value="$(room)"/>
</go>
</anchor>
</p>
</card>
</wml>