<%
	response.expires=0
    if session("0382")="" then
        Response.Write("登錄信息過期, 請重新登錄!")
        response.end
    end if
	on error resume next
	dim delflag,dimsums,onlinesums,num
	Application.Lock
	onlineuser=application("onlinesite")
	dimsums=ubound(onlineuser)
	onlinesums=dimsums
	num=0
	for i=0 to dimsums
		delflag=0
		if onlineuser(i)="" then
			delflag=1
		else
			id=left(onlineuser(i),instr(onlineuser(i),"$")-1)
			onlinesitenum=application("onlineuser"&id)
			if ubound(onlinesitenum)<=0 then
				if onlinesitenum(0)="" then
					delflag=1
				end if
			end if
		end if
		response.write(id&"---"&ubound(onlinesitenum)&"---"&lbound(onlinesitenum)&"---"&err.number&"---"&err.description&"<br>")
		if delflag=0 then
			if num<i then
				onlineuser(num)=onlineuser(i)
			end if
			num=num+1
		else
			if num<i then
				onlineuser(num)=onlineuser(i)
			end if
			response.write("刪除"&onlineuser(num)&"<br>")
			onlinesums=onlinesums-1
		end if
	next
	redim preserve onlineuser(onlinesums)
	application("onlinesite")=onlineuser
	Application.UnLock
%>