index.asp

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

ASP
283 行
字号 
<%
'*********************************************************************************
'模块名称：体育新闻首页
'开发人：潘树文
'时间：2001年1月20日
'*********************************************************************************
dim rs          '数据访问对象
dim sql         'select 语句
dim i           '循环控制变量
%><html>
<!--#include file="../include/odbc.asp"-->
<!--#include file="../include/showbody.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>

<!--#include file="include/jujiao.asp"-->

<table border="0" width="770" cellspacing="0" cellpadding="0">
  <tr>
    <td width="20%" style="border-right: 3px solid rgb(228,228,228)" valign="top"
    bgcolor="#D6852C">
    <!--#include file="include/liansai.asp"-->
    <p><br>
    </td>
    <td width="60%" valign="top"><table border="0" width="100%">
      <tr>
        <td width="100%"><img src="../images/pic-071.gif" width="440" height="64"></td>
      </tr>
      <tr>
        <td width="100%"><div align="center"><center><table border="0" width="94%" cellspacing="0"
        cellpadding="0">
          <tr>
            <td width="30%" bgcolor="#C0C0C0" height="19"><p align="center"><font color="#000000"><span
            style="font-size: 14px">国家队</span></font></td>
            <td width="70%"
            style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(192,192,192)"
            height="19">&nbsp; </td>
          </tr>
          <tr>
            <td width="100%" colspan="2"><ul>
             
         <%sql="select * from news2_info where menuid='005001'  order by infoid desc"
        rs.Open sql,conn,3,1
        if not rs.EOF then
			if  rs.recordcount<=8 then
             count=rs.recordcount
            else
            count=8
            end if 
        for i=1 to count
        %>
          <li><a class="l7"
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
            target="_blank"><%=rs("newstitle")%></a> <%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%><br>
          </li>
        <%rs.MoveNext 
         next
         end if
         rs.Close
         
        %> 
            </ul>
            </td>
          </tr>
          <tr>
            <td width="30%" bgcolor="#C0C0C0" height="19"><p align="center"><font color="#000000"><span
            style="font-size: 14px">甲A</span></font></td>
            <td width="70%"
            style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(192,192,192)"
            height="19">&nbsp; </td>
          </tr>
          <tr>
            <td width="100%" colspan="2"><ul>
        <%sql="select * from news2_info where menuid='005010'  order by infoid desc"
        rs.Open sql,conn,3,1
        if not rs.EOF then
			if rs.recordcount<8 then
             count=rs.recordcount
            else
            count=8
            end if 
        for i=1 to count
        %>
          <li><a class="l7"
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
            target="_blank"><%=rs("newstitle")%></a> <%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%><br>
          </li>
        <%rs.MoveNext 
         next
         end if
         rs.Close
         
        %> 
              
            </ul>
            </td>
          </tr>
          <tr>
            <td width="30%" bgcolor="#C0C0C0" height="19"><p align="center"><font color="#000000"><span
            style="font-size: 14px">甲B</span></font></td>
            <td width="70%"
            style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(192,192,192)"
            height="19">&nbsp; </td>
          </tr>
          <tr>
            <td width="100%" colspan="2"><ul>
              <%sql="select * from news2_info where menuid='005011'  order by infoid desc"
        rs.Open sql,conn,3,1
        if not rs.EOF then
			if rs.recordcount<8 then
             count=rs.recordcount
            else
            count=8
            end if 
        for i=1 to count
        %>
          <li><a class="l7"
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%> "
            target="_blank"><%=rs("newstitle")%></a> <%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%><br>
          </li>
        <%rs.MoveNext 
         next
         end if
         rs.Close
         
        %> 
            </ul>
            </td>
          </tr>
          <tr>
            <td width="30%" bgcolor="#C0C0C0" height="19"><p align="center"><font color="#000000"><span
            style="font-size: 14px">国际足坛</span></font></td>
            <td width="70%"
            style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(192,192,192)"
            height="19">&nbsp; </td>
          </tr>
          <tr>
            <td width="100%" colspan="2"><ul>
               <%sql="select * from news2_info where menuid='005012'  order by infoid desc"
        rs.Open sql,conn,3,1
        if not rs.EOF then
			if rs.recordcount<8 then
             count=rs.recordcount
            else
            count=8
            end if 
        for i=1 to count
        %>
          <li><a class="l7"
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
            target="_blank"><%=rs("newstitle")%></a> <%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%><br>
          </li>
        <%rs.MoveNext 
         next
         end if
         rs.Close
         
        %> 
            </ul>
            <p align="right"><a href="morenews.asp?menuid='005001','005011','005012','005010'&menuname=烽火足坛" class="l2" target="_blank">【更多...】</a>&nbsp;&nbsp;&nbsp; <br>        </td>
          </tr>
          <tr>
            <td width="30%" height="19"></td>
            <td width="70%" height="19"></td>
          </tr>
        </table>
        </center></div></td>
      </tr>
      <tr>
        <td width="100%"><img src="../images/pic-073.gif" width="440" height="64"></td>
      </tr>
      <tr>
        <td width="100%"><ul>
          <%sql="select * from news2_info where menuid='005002'  order by infoid desc"
        rs.Open sql,conn,3,1
        if not rs.EOF then
			if rs.recordcount<8 then
             count=rs.recordcount
            else
            count=8
            end if 
        for i=1 to count
        %>
          <li><a class="l7"
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
            target="_blank"><%=rs("newstitle")%></a><%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%> <br>
          </li>
        <%rs.MoveNext 
         next
         end if
         rs.Close
         
        %> 
         <p align="right"><a href="morenews.asp?menuid='005002'&menuname=篮球节拍" class="l2" target="_blank">【更多...】</a>&nbsp;&nbsp;&nbsp; <br> 
        </ul>
        </td>
      </tr>
      <tr>
        <td width="100%"><img src="../images/pic-074.gif"  width="440" height="64"></td>
      </tr>
      <tr>
        <td width="100%"><ul>
           <%sql="select * from news2_info where menuid='005003'  order by infoid desc"
        rs.Open sql,conn,3,1
        if not rs.EOF then
			if rs.recordcount<8 then
             count=rs.recordcount
            else
            count=8
            end if 
        for i=1 to count
        %>
          <li><a class="l7"
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
            target="_blank"><%=rs("newstitle")%></a> <%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%><br>
          </li>
        <%rs.MoveNext 
         next
         end if
         rs.Close
         
        %> 
         <p align="right"><a href="morenews.asp?menuid='005003'&menuname=综合体育" class="l2" target="_blank">【更多...】</a>&nbsp;&nbsp;&nbsp; <br> 
        </ul>
        </td>
      </tr>
      <tr>
        <td width="100%"><img src="../images/pic-075.gif"  width="440" height="64"></td>
      </tr>
      <tr>
        <td width="100%"><ul>
           <%sql="select * from news2_info where menuid='005004'  order by infoid desc"
        rs.Open sql,conn,3,1
        if not rs.EOF then
			if rs.recordcount<8 then
             count=rs.recordcount
            else
            count=8
            end if 
        for i=1 to count
        %>
          <li><a class="l7"
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
            target="_blank"><%=rs("newstitle")%></a><%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%> <br>
          </li>
        <%rs.MoveNext 
         next
         end if
         rs.Close
         
        %> 
          
        <p align="right"><a href="morenews.asp?menuid='005004'&menuname=竞技评说" class="l2" target="_blank">【更多...】</a>&nbsp;&nbsp;&nbsp; <br>
        </td>
      </tr>
    </table>
    </td>
    <td width="20%" valign="top" bgcolor="#000000">
       <!--#include file="include/right.asp"-->
    <p><br>
    </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>

index.asp - 源码说明

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

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

⌨️ 快捷键说明

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