📄 dispbingo.asp
字号:
<%
dim page
if Session.Contents("UserName")="" then
response.write("SORRY！您没有<a href=index.htm>登录</a>。")
else
page=request.querystring("page")
DBPath = Server.MapPath("../../../data/horses.asp")
PageSize = 9
set horseconn=server.createobject("adodb.connection")
horseconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set horses=server.createobject("adodb.recordset")
horses.open "Select * From horselist ORDER BY id DESC",horseconn,3,3
horses.PageSize = PageSize
pgnum=horses.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then horses.AbsolutePage=page
%>
<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>
<table align=center border=0 cellPadding=2 cellSpacing=1 bgcolor=ffffff>
<tr align="center" bgcolor="#F2D9B3">
<td width="60"> <b>场 次</b></td>
<td width="90"> <b>中奖马</b></td>
</tr>
<%
count=0
do while not horses.eof and count<horses.PageSize
%>
<tr>
<td align=center width="60" bgcolor="#FEF7ED"><a href="dispall.asp?number=<%=horses("id")%>" target="main">第<%=horses("id")%>场</a></td>
<td align=center width="90" bgcolor="#FEF7ED"><%if horses("winer")<>"" then
response.write(horses("winer"))
else
response.write("未开")
end if%></td>
</tr>
<%horses.movenext%>
<%count=count+1%>
<%loop%>
<tr bgcolor="#F2D9B3">
<td align=center width="60"><a href="dispbingo.asp?page=<%=page-1%>">上一页</a></td>
<td align=center width="90"><a href="dispbingo.asp?page=<%=page+1%>">下一页</a></td>
</tr>
</table>
</div>
</body>
</HTML>
<%
horses.close
set horses=nothing
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -