<%=("msg")%>
<%application("people")=""%>
(3)用户验证界面:
文件
<%
user=trim("username"))
ifuser=""then
"?
msg=对不起,用户名不能为空!
"
else
items=split(application("people"),",")
'检查用户名是不是重名
ifinstr(application("people"),user&",")<>0then
"?
msg=对不起,用户名重名!
"
endif
'检查聊天室是不是满员
ifubound(items)>3then
"?
msg=对不起,聊天室满员!
"
endif
session("curruser")=user
()
application("people")=application("people")&user&","
temptalk=application("talk")
(ubound(temptalk))
fori=5to1step-1
temptalk(i)=temptalk(i-1)
next
temptalk(0)="("&time&")"&user&"说:
大家好!
"
application("talk")=temptalk
()
""
endif
%>
(4)聊天室主页:
文件
此网页利用了框架,但您的阅读器不支持框架.
(5)输入聊天内容界面:
<%
if("quit")="退出"then
""
endif
ifrequest("content")<>""then
name=session("curruser")
temptalk=application("talk")
str="("&time&")"&name&"说:
"&("content"))
()
fori=5to1step-1
temptalk(i)=temptalk(i-1)
next
temptalk(0)=str
application("talk")=temptalk
()
endif
%>