網路五子棋代碼2(adminaster.asp 轉)

來源:互聯網
上載者:User
網路 <%@ 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:



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。