当前位置：首页 > 软件开发 > Web开发 > ASP

网络五子棋代码2（adminaster.asp 转）

来源：岁月联盟编辑：zhuzhu 时间：2003-07-11

<%@ 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: 120px" width=120>玩家上站时间</TD>
        <TD>玩家IP地址</TD>
    </TR>
    <%
if playerstate="" then
    Response.Write "<TR><TDcolSpan=2>目前没有人在对奕</TR>"
else
    marray=split(playerstate,";")
    for i=0 to ubound(marray)-1
        pos1=instr(marray(i),":")
        pos2=instr(marray(i),",")
        Response.Write "<TR><TD>" & i+1 & "：" & mid(marray(i),1,pos1-1)
        Response.Write "<TD>" & mid(marray(i),pos1+1,pos2-pos1-1) & "</TD>"
        Response.Write "<TD>" & mid(marray(i),pos2+1) & "</TD></TR>"
    next
end if
%>

</TABLE></P>
<P align=center>
<TABLE border=1 cellPadding=1 cellSpacing=1 width=90%>
    <TR>
        <TD>
            <DIV align=center style="BACKGROUND-COLOR: antiquewhite"
           >信息提示</DIV></TD></TR>
    <TR>
        <TD>
            <%Response.Write "<PRE>" & application("five").getmessage & "</PRE>"
        %>

        </TD></TR></TABLE>
<P></P>
</BODY>
</HTML>