📄 index.asp
字号:
<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="conn.asp"-->
<!--#include file="Function.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
sql="select A.username,A.mytype,A.mymoney,A.a1,A.a2,A.a3,A.result,A.isok,A.addtime,B.id,B.myscore from [GameBsInfo] as A,[GameAdmin] as B where A.username=B.username order by A.id desc,A.username"
Call RsName(rs,sql,1,1)
set rswin=conn.execute("select count(isok) from [GameBsInfo] where isok=1")
set rslost=conn.execute("select count(isok) from [GameBsInfo] where isok=0")
if rs.eof and rs.bof then Call ShowErrorTo("暂无纪录","Login.asp")
%>
<!--#include file="page.inc"-->
<link href="css.css" rel="stylesheet" type="text/css"> <title>用户游戏纪录---雨点赌大小游戏</title>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="top.asp"-->
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" class="table1">
<tr>
<td width="85%" height="24" bgcolor="#F2FBF2" class="14black"><strong><font color="#333333"> 赌大小----所有用户游戏纪录</font></strong></td>
<td width="15%" bgcolor="#F2FBF2" class="14black"><div align="center"><strong><a href="javascript:window.close()">[关闭窗口]</a></strong></div></td>
</tr>
<tr>
<td colspan="2"><table width="99%" border="0" align="center" cellpadding="4" cellspacing="0">
<tr>
<td width="17%" height="26"><div align="left">用户名</div></td>
<td width="9%" height="26"><div align="left">押注类型</div></td>
<td width="17%"><div align="left">押注金额</div></td>
<td colspan="2"><div align="left">摇筛子结果</div></td>
<td width="22%"><div align="left">对/错(<strong><font color="#0000FF" face="Geneva, Arial, Helvetica, sans-serif"><%=rswin(0)%></font></strong>/<strong><font color="#FF0000" face="Geneva, Arial, Helvetica, sans-serif"><%=rslost(0)%></font></strong>) 正确率 <strong><font color="#000000" face="Geneva, Arial, Helvetica, sans-serif"><%=round(rswin(0)/(rswin(0)+rslost(0))*100,2)%>%</font></strong></div></td>
<td width="12%"><div align="left">游戏时间</div></td>
</tr>
<%
i=1
do while not rs.eof%>
<tr bgcolor="#F0FBF0">
<td height="1" colspan="7"> </td>
</tr>
<tr>
<td height="24"><div align="left"><font face="Geneva, Arial, Helvetica, sans-serif"><u><font title="总积分: <%=rs(10)%>"><%=rs(0)%></font></u></font></div></td>
<td><div align="left"><strong>
<%if rs(1)=1 then response.Write("<font color=blue>小</font>") else response.write("<font color=red>大</font>")%>
</strong></div></td>
<td><div align="left"><strong><font face="Geneva, Arial, Helvetica, sans-serif"><%=rs(2)%></font></strong> 个知道币</div></td>
<td width="13%"><div align="left"><font color="#666666"><strong><font face="Geneva, Arial, Helvetica, sans-serif"><%=rs(3)%>+<%=rs(4)%>+<%=rs(5)%>=<%=rs(3)+rs(4)+rs(5)%></font></strong></font></div></td>
<td width="10%"><strong><%if rs(6)=1 then response.Write("<font color=blue>小</font>") else response.write("<font color=red>大</font>")%> </strong></td>
<td><div align="left"><font color="#FF0000" face="Geneva, Arial, Helvetica, sans-serif">
<%if rs(7)=true then response.Write("<font color=blue>正确</font>") else response.write("<font color=red>错误</font>")%>
</font></div></td>
<td><div align="left"><font color="#999999" face="Geneva, Arial, Helvetica, sans-serif"><%=rs(8)%></font></div></td>
</tr>
<%
i=i+1
if i>MaxPerPage then exit do
rs.movenext
loop%>
</table></td>
</tr>
</table>
<table width="540" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="6"> </td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="100%"><%Call PageGo("")%></td>
</tr>
</table>
<!--#include file="bottom.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -