📄 index.asp
字号:
<%
if Session.Contents("UserName")="" then
response.write("SORRY！您没有<a href=../../index.htm>登录</a>。")
else
DBPath = Server.MapPath("../../../data/horses.asp")
TotalNumber = 10
set conn=server.createobject("adodb.connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set horses=server.createobject("adodb.recordset")
horses.open "Select * From horselist Order by ID desc",conn,0,1
boughtnumber=horses("boughtnumber")
horsesid=horses("id")
horses.close
set horses=nothing
DBPath = Server.MapPath("../../../data/members.asp")
set userconn=server.createobject("adodb.connection")
userconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set users=server.createobject("adodb.recordset")
users.open "Select * From users Where name='"&Session.Contents("UserName")&"'",userconn,0,1
nowcash=users("cash")
users.close
set users=nothing
set userconn=nothing
%>
<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">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="left"></div>
<p><font size="3"><b>跑马</b></font></p>
</td>
<td align="right"><font color="#CC0000" size="2">系统消息：</font><font size="2">马场现在正式启用，欢迎来赌呀~！赢了不得钱，书生双陪给你！！</font></td>
</tr>
<tr>
<td colspan="2">
<hr size="1">
</td>
</tr>
<tr>
<td colspan="2" height="60">
<blockquote>
<p>马场消息：现在有一匹名为 <b>蒙那利莎</b>名马，价值500NG，有谁愿意买吗？ <a href="newhorse.asp">·按此交易·</a></p>
<p></p>
</blockquote>
</td>
</tr>
</table>
<div align="left"></div>
<div align=center>
<table width=98% border=1 cellspacing=0 cellpadding=3 align="center" bordercolordark="#FFFFFF">
<tr bgcolor="#F2D9B3" width=70%>
<td align=center bgcolor="#F2D9B3">你现在一共有社区货币 <b><font color="#CC0000"><%=nowcash%></font>NG</b>
可以作为赌注</td>
<td align=center width="180"><a href="dispbyme.asp">跑马记录</a> </td>
</tr>
<tr bgcolor="#FAF0E2">
<td align=left bgcolor="#FAF0E2"><b><font color="#CC0000" size="3">目前</font></b>为<a href="dispall.asp?number=<%=horsesid%>">第<b><font size="3"><%=horsesid%></font></b>场</a>，还有<font size="3"><b><%=TotalNumber-boughtnumber%></b></font>个投注机会，请赶快下注~！点击<a href="dispall.asp?number=<%=horsesid%>">查看本场</a>投注情况。
<a href="index.asp">按此刷新！</a></td>
<td align=center width="180" bgcolor="#FAF0E2">开 奖 记 录</td>
</tr>
<tr>
<td>
<FORM METHOD=POST ACTION="horse_post.asp">
<%set horses=server.createobject("adodb.recordset")
horses.open "Select * From horses",conn,0,1%>
<table border=1 cellspacing=0 cellpadding=1 align="center" bordercolordark="#FFFFFF">
<tr>
<td align="center" height="18" bgcolor="#F2D9B3">马 名</td>
<td height="18" align="center" bgcolor="#F2D9B3">身价(NG)</td>
<td height="18" align="center" bgcolor="#F2D9B3">练马师</td>
<td align="center" height="18" bgcolor="#F2D9B3">胜 / 赛</td>
<td align="center" height="18" bgcolor="#F2D9B3">状态</td>
<td align="center" height="18" bgcolor="#F2D9B3">赔 率</td>
<td align="center" height="18" bgcolor="#F2D9B3">目前总投注</td>
</tr>
<%do while not horses.eof%>
<tr>
<td width="120">
<input type="radio" value=<%=horses("name")%> name="chip" checked>
<%=horses("name")%> </td>
<td width="80" align="center"><%=horses("hvalue")%></td>
<td width="80" align="center"><%=horses("owner")%> </td>
<td align="center" width="60"><%=horses("wins")%>/<%=horses("runs")%></td>
<td align="center" width="40"><%=horses("state")%></td>
<td width="60"> 1：<%=left(horses("pl"),5)%></td>
<td align="center" width="100"><%=horses("betmoney")%></td>
</tr>
<%horses.movenext
loop
horses.close
set horses=nothing%>
<tr>
<td align=center colspan=7><br>
我要下注：<b>
<input type="radio" name="money" value=10 checked>
<font color="#CC0000">10</font>NG
<input type="radio" name="money" value=20>
<font color="#CC0000">20</font>NG
<input type="radio" name="money" value=30>
<font color="#CC0000">30</font>NG</b>
<input height=22 type="submit" value="现在下注" name="B2">
</td>
</tr>
</table>
</FORM>
</td>
<td width=180 valign=top align=center><IFRAME src="dispbingo.asp" width="95%" height="220" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="NO"></IFRAME></td>
</tr>
<tr bgcolor="#F2D9B3">
<td colspan=2><font size="3"><b>马场提示</b></font>：不扣魅力值，一个人一场下注<font color="#CC0000"><b>2</b></font>次，当下注满<b>10</b>注后，马赛开始</td>
</tr>
</table>
<p align="center"><a href="../index.asp">其它游戏</a> | <a href="../../home.asp">回
首 面</a></p>
</div>
</body>
</html>
<% end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -