keep.asp

来自「三鸟个人网站源码。」· ASP 代码 · 共 38 行

<!-- #include file="online.asp" -->
<%
on error resume next
dim actstr
actstr=request("act")
if not actstr="" then
	keeponline actstr
else
	movelocation
end if
%>

<% sub keeponline(act) %>
<%
addonline session("blueuid"),act
if session("blueuid")="" then
	user="Guest"
else
	user=session("blueuid")
end if
%>
<script language="javascript">
onerror=null;
function refreshframe(){
	top.status="[Xbbs] sending your current action to online list....";
	self.location.reload();
}
timeout=300; //seconds
top.status="[Xbbs] <%=user%>: online";
window.setTimeout("refreshframe();",timeout*1000);
</script>
<% end sub %>

<% sub movelocation %>
<script language="javascript">
	top.location.href="index.asp";
</script>
<% end sub %>