Network <%@ 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= Young round >
</FONT></STRONG>
<p Align=center><strong><font Color=crimson
Face= Young round >busyants Gobang server </FONT></STRONG></P></DIV></TD></TR>
<TR>
<TD> start Time:<%=starttime%> (now Time <%=now ()%>) </TD></TR>
<TR>
<TD> run Time: <%response.write DateDiff ("H", CDate (StartTime), now ()) & "Hours" & DateDiff ("N", CDate ( StartTime), now ()) & "Min"%>
<TR>
<TD> Number: <%response.write "& visitnum &" Player login to this server so far%>
</TD></TR></TABLE></P>
<p align=center>
<table border=1 cellpadding=1 cellspacing=1 width=90%>
<TR>
<TD style= "width:70px" width=70> number
<TD style= "width:120px" width=120> player </TD>
<TD> Status </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> There are no players on the stand </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> chess number
<TD> Players </TD></TR>
<%
If Playername= "There is no one on the game" then
Response.Write "<TR><TDcolSpan=2> No one is currently on the game </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> player number </TD>
<TD style= "WIDTH:
