在线用户列表显示文件list.asp、出错信息文件error.asp

在线用户列表显示文件list.asp
<%
dim onliuser,onlinum
onliuser=application("onliuser")
onlinum=(len(onliuser)-len(replace(onliuser,"','","")))/3+1
%>

在线名单[<% =onlinum %>人]

所有人


出错信息文件error.asp
<%
mess=request("mess")
response.write "

"&mess&"

返回" %>