📄 lookpredictgame.asp
字号:
<%
'*********************************************************************************
'模块名称：体育新闻赛程预报
'开发人：潘树文
'时间：2001年1月20日
'*********************************************************************************
dim rs '数据访问对象
dim sql 'select 语句
dim i '循环控制变量
%>
<html>
<!--#include file="../include/odbc.asp"-->
<!--#include file="../include/showbody.asp"-->
<!--#include file="../include/killstr.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../style.css">
<title>千夜网->新闻->体育新闻</title>
</head>
<body topmargin="3" leftmargin="3">
<div align="center"><center>
<%flag="005000"%>
<!--#include file="../include/secondhead.asp"-->
</center></div><div align="center"><center>
<table border="0" width="770" cellspacing="0" cellpadding="0">
<tr><td align=center><br><span style="font-size:14px"><%=request("gamename")%>--赛程预报</span><br></td></tr>
</table>
<p>
<table BORDER=0 CELLSPACING=0 CELLPADDING=0 bgcolor=#000000><tr><td>
<table border="0" width="570" cellspacing="1" cellpadding="1">
<%set rs=server.CreateObject ("adodb.recordset")
sql="select * from news2_predictgame where gameid='"&killstr(request("gameid"))&"' and gametime >='"&dateadd("d",-1,now)&"' order by gametime desc"
rs.Open sql,conn,3,1
if not rs.EOF then
%>
<tr bgcolor=#dcdcdc>
<td align=center><b>轮次</b></td>
<td align=center><b>主客队</b></td>
<td align=center><b>比赛日期</b></td>
<td align=center><b>信息更新日期</b></td>
</tr>
<%
for i=1 to rs.RecordCount
%>
<tr bgcolor=#ffffff>
<td align=center><%=rs("gameterm")%></td>
<td align=center><%=rs("ownerclient")%></td>
<td align=center><%=rs("gametime")%></td>
<td align=center><%=rs("regtime")%></td>
</tr>
<%
rs.MoveNext
next
else
Response.Write "本赛程暂无预报信息！请稍候再来"
end if
%>
</table>
</td></tr>
</table>
</center></div>
<hr width="90%" size="1" color="#FF0000">
<div align="center"><center>
<!--#include file="../include/bottom.txt"-->
</center></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -