📄 dispall.asp
字号:
<%
dim number,win
if Session.Contents("UserName")="" then %>
<script language=vbscript>
MsgBox "对不起，你还没有登录！"
location.href = "../../index.htm"
</script>
<% else
PageSize = 20
number= bn
if number="" or clng(number)<1 then number=1
DBPath = Server.MapPath("../../../data/horses.asp")
set buyconn=server.createobject("adodb.connection")
buyconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
num=request.QueryString("number")
set buys=server.createobject("adodb.recordset")
buys.open "Select * From horsebuylist Where number="+cstr(num),buyconn,0,1
set upnumber=server.createobject("adodb.recordset")
upnumber.open "Select * From horselist where id= "+CStr(num),buyconn,3,3
' super del (move to post)
'if upnumber("BoughtNumber")=10 and upnumber("add")<2 then
' buyconn.execute("Update horselist Set add=add+1 Where ID= "+cstr(num) )
' if upnumber("add")=1 then
' DBPath = Server.MapPath("../../../data/members.mdb")
' set addconn=server.createobject("adodb.connection")
' addconn.Open "driver={Microsoft Access Driver (*.asp)};dbq=" & DBPath
' set addcon=server.createobject("adodb.recordset")
' addcon.open "Select * From users ",addconn,0,1
' nam=buys("username")
' win=buys("winmoney")
' do while not buys.eof
' addcon.execute("Update users Set cash=cash+win Where name='"&nam&"'")
' buys.movenext
' if buys.eof then
' exit do
' end if
' loop
' end if
'end if
' super del is end
%>
<HTML>
<HEAD>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type=text/css>
<!--
body,table {font-size: 9pt; font-family: 宋体}
input { font-size: 9pt; color: #000000; background-color: #f7f7f7; padding-top: 3px}
.c { font-family: 宋体; font-size: 9pt; font-style: normal; line-height: 12pt; font-weight: normal; font-variant: normal; text-decoration: none}
--></style>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#0033CC" vlink="#003399">
<div align=center>
<p><font size="3" class="c"><b>跑马场</b></font></p>
<table width=90% border=1 cellspacing=0 cellpadding=3 align="center" bordercolordark="#FFFFFF">
<tr bgcolor="#F2D9B3">
<td colspan=6> 第<b><font color="#CC0000"> <%=request.QueryString("number")%> </font></b>场</td>
</tr>
<tr bgcolor="#FAF0E2">
<td>购买者</td>
<td>马名</td>
<td>下注金额</td>
<td>赔率</td>
<td>下注时间</td>
<td>中奖金额</td>
</tr>
<%
count=0
do while not buys.eof and count<PageSize
%>
<tr bgcolor="#FEF7ED">
<td><%if buys("winmoney")>0 then
response.write("<b><font color=cc0000>"&buys("username")&"</font></b>")
else
response.write(buys("username"))
end if
%></td>
<td><%=buys("horse")%></td>
<td><%=buys("money")%></td>
<td><%response.write("1："&buys("pl"))%></td>
<td>20<%=buys("time")%></td>
<td><%if buys("winmoney")>0 then
response.write("<b><font color=cc0000>"&buys("winmoney")&"</font></b>")
else
response.write(" ")
end if
%></td>
</tr>
<%buys.movenext%> <%count=count+1%> <%loop%>
<tr bgcolor="#F2D9B3">
<td colspan=6 align=right> <a href="javascript:history.back()">返回</a> </td>
</tr>
</table>
</div>
</body>
</HTML>
<%
buys.close
set buys=nothing
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -