lookintegral.asp

来自「asp的新闻网站」· ASP 代码 · 共 94 行

ASP
94 行
字号 
<%
'*********************************************************************************
'模块名称：体育新闻积分榜
'开发人：潘树文
'时间：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>千夜网-&gt;新闻-&gt;体育新闻</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>
<%
set rs=server.CreateObject ("adodb.recordset")
  sql="select * from news2_integral where gameid='"&killstr(request("gameid"))&"'  and flag='1' order by toporder"
  rs.Open sql,conn,3,1
  if not rs.EOF then
%>
<tr><td align=center><br><span style="font-size:12px">第<%=rs("gameterm")%>轮&nbsp;截止时间：<%=rs("stoptime")%></span><br></td></tr>
<%end if%>
</table>
<p>
<table BORDER=0 CELLSPACING=0 CELLPADDING=0 bgcolor=#000000><tr><td>
<table border="0" width="570" cellspacing="1" cellpadding="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>
			<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>
	</tr>
   <%

   for i=1 to rs.RecordCount 
  %>
  
   <tr bgcolor=#ffffff>
		    <td align=center ><%=rs("topOrder")%></td>
		     
			<td align=center ><%=rs("teamName")%></td>
			<td align=center ><%=rs("successNum")%></td>
			<td align=center ><%=rs("tieNum")%></td>
			<td align=center ><%=rs("failNum")%></td>
	        <td align=center ><%=rs("goalNum")%></td>
			<td align=center ><%=rs("lostGoal")%></td>
			<td align=center ><%=rs("totalScore")%></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>

lookintegral.asp - 源码说明

本页面展示了「asp的新闻网站」中的 lookintegral.asp 源码文件，采用 ASP 编程语言编写，共 94 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?