網路 <%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<P align=center>
<%
starttime=application("five").getstarttime
visitnum=application("five").getvisitnum
%>
<TABLE border=1 cellPadding=1 cellSpacing=1 width=90%>
<TR>
<TD>
<DIV align=center><STRONG><FONT color=crimson face=幼圓>
</FONT></STRONG>
<P align=center><STRONG><FONT color=crimson
face=幼圓>BusyAnts五子棋伺服器</FONT></STRONG></P></DIV></TD></TR>
<TR>
<TD>啟動時間：<%=starttime%>（現在時間<%=now()%>）</TD></TR>
<TR>
<TD>已耗用時間：<%Response.Write datediff("h",cdate(starttime),now()) & "小時" & datediff("n",cdate(starttime),now()) & "分"%>
<TR>
<TD>登入人數：<%Response.Write "到目前為止已有" & visitnum & "玩家登入到本伺服器"%>
</TD></TR></TABLE></P>
<P align=center>
<TABLE border=1 cellPadding=1 cellSpacing=1 width=90%>
<TR>
<TD style="WIDTH: 70px" width=70>編號
<TD style="WIDTH: 120px" width=120>玩家</TD>
<TD>狀態</TD></TR>
<%
playername=application("five").getallplayer & "<BR>"
fightname=application("five").getallfight & "<br>"
playerstate=application("five").getallstate & "<br>"
if playername="" then
Response.Write "<TR><TDcolSpan=3>目前站上沒有玩家</TR>"
else
marray=split(playername,";")
for i=1 to ubound(marray)
Response.Write "<TR><TD>" & i
pos1=instr(marray(i),":")
Response.Write "<TD>" & mid(marray(i),1,pos1-1) & "</TD>"
Response.Write "<TD>" & mid(marray(i),pos1+1) & "</TD></TR>"
next
end if
%>
</TABLE></P>
<P align=center>
<TABLE border=1 cellPadding=1 cellSpacing=1 width=90%>
<TR>
<TD style="WIDTH: 70px" width=70>棋局編號
<TD>玩家</TD></TR>
<%
if playername="目前沒有人在對奕" then
Response.Write "<TR><TDcolSpan=2>目前沒有人在對奕</TR>"
else
marray=split(fightname,";")
for i=0 to ubound(marray)-1
Response.Write "<TR><TD>" & i+1
pos1=instr(marray(i),":")
Response.Write "<TD>" & mid(marray(i),pos1+1) & "</TD></TR>"
next
end if
%>
</TABLE></P>
<P align=center>
<TABLE WIDTH=90% BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD style="WIDTH: 70px" width=70>玩家編號</TD>
<TD style="WIDTH:
