index.asp

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

ASP
317 行
字号 
<%
'*********************************************************************************
'模块名称：科教新闻首页
'开发人：潘树文
'时间：2001年1月19日
'*********************************************************************************

%>
<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>
<%flag="009000"%>
<!--#include file="../include/secondhead.asp"-->
<body topmargin="3" leftmargin="3">
<div align="center"><center>
<%set rs=server.CreateObject ("adodb.recordset")%>

</center></div><div align="center"><center>
<!--#include file="include/redian.asp"-->

</center></div><div align="center"><center>

<table border="0" width="770" cellspacing="0" cellpadding="0">
  <tr>
    <td width="140" valign="top" bgcolor="#9F579F">
   
    <!--#include file="../include/script.asp"-->
    <form name=add action="../include/search.asp" method=post" onsubmit="return check(this)" target="_blank">

    <!--#include file="include/left.asp"-->
    <p><br>
    </td>
    <td width="5" valign="top" bgcolor="#CBA5D5"></td>
    <td width="625" valign="top"><table border="0" width="100%">
      <tr>
        <td width="50%" valign="top"><div align="center"><center><table border="0" width="90%">
          <tr>
            <td width="100%" bgcolor="#9F579F"><table border="0" width="100%" cellspacing="0"
            cellpadding="0">
              <tr>
                <td width="40%" bgcolor="#805089"><strong><font color="#FFFFFF"><span
                style="font-size: 14px">&nbsp; 科技新知</span></font></strong></td>
                <td width="30%"></td>
                <td width="30%" bgcolor="#CBA5D5"></td>
              </tr>
            </table>
            </td>
          </tr>
          <tr>
            <td width="100%" background="../images/bg-013.gif"
            style="border-left: 1px solid rgb(159,87,159); border-right: 1px solid rgb(159,87,159); border-bottom: 1px solid rgb(159,87,159)"><ul>
              <%sql="select  top 5 * from news2_info where menuid='009003'  order by infoid desc "
        rs.Open sql,conn,3,1
        if not rs.EOF then
        for i=1 to rs.RecordCount 
        %>
          <li><a class="l7"
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
            target="_blank"><%=rs("newstitle")%></a><%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%> <br>
     
        <%rs.MoveNext 
         next
         end if
         rs.Close
         
        %>     </li>  
        <p align="right"><a class="l2"
            href="morenews.asp?menuid=009003"
          target="_blank">【更多...】</a>&nbsp;&nbsp;&nbsp; <br>
              
             </td>
          </tr>
        </table>
        </center></div></td>
        <td width="50%" valign="top">　<div align="center"><center><table border="0" width="90%">
          <tr>
            <td width="100%" bgcolor="#9F579F"><table border="0" width="100%" cellspacing="0"
            cellpadding="0">
              <tr>
                <td width="40%" bgcolor="#805089"><strong><font color="#FFFFFF"><span
                style="font-size: 14px">&nbsp; 科学广角</span></font></strong></td>
                <td width="30%"></td>
                <td width="30%" bgcolor="#CBA5D5"></td>
              </tr>
            </table>
            </td>
          </tr>
          <tr>
            <td width="100%" background="../images/bg-013.gif"
            style="border-left: 1px solid rgb(159,87,159); border-right: 1px solid rgb(159,87,159); border-bottom: 1px solid rgb(159,87,159)"><ul>
               <%sql="select top 5 * from news2_info where menuid='009004'  order by infoid desc "
        rs.Open sql,conn,3,1
        if not rs.EOF then
        for i=1 to rs.RecordCount 
        %>
          <li><a class="l7"
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
            target="_blank"><%=rs("newstitle")%></a> <%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%><br>
         
        <%rs.MoveNext 
         next
         end if
         rs.Close
         
        %>   </li>
        <p align="right"><a class="l2"
            href="morenews.asp?menuid=009004"
           target="_blank" >【更多...】</a>&nbsp;&nbsp;&nbsp; <br>
              
            </td>
          </tr>
        </table>
        </center></div></td>
      </tr>
      <tr>
        <td width="50%" valign="top"><div align="center"><center><table border="0" width="90%">
          <tr>
            <td width="100%" bgcolor="#9F579F"><table border="0" width="100%" cellspacing="0"
            cellpadding="0">
              <tr>
                <td width="40%" bgcolor="#805089"><strong><font color="#FFFFFF"><span
                style="font-size: 14px">&nbsp; 医疗阵地</span></font></strong></td>
                <td width="30%"></td>
                <td width="30%" bgcolor="#CBA5D5"></td>
              </tr>
            </table>
            </td>
          </tr>
          <tr>
            <td width="100%" background="../images/bg-013.gif"
            style="border-left: 1px solid rgb(159,87,159); border-right: 1px solid rgb(159,87,159); border-bottom: 1px solid rgb(159,87,159)"><ul>
               <%sql="select top 5 * from news2_info where menuid='009005'  order by infoid desc"
        rs.Open sql,conn,3,1
        if not rs.EOF then
        for i=1 to rs.RecordCount 
        %>
          <li><a class="l7"
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
            target="_blank"><%=rs("newstitle")%></a><%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%><br>
          <%rs.MoveNext 
         next
         end if
         rs.Close
         
        %>  </li>
        <p align="right"><a class="l2"
            href="morenews.asp?menuid=009005"
        target="_blank" >【更多...】</a>&nbsp;&nbsp;&nbsp; <br>
               </td>
          </tr>
        </table>
        </center></div></td>
        <td width="50%" valign="top">　<div align="center"><center><table border="0" width="90%">
          <tr>
            <td width="100%" bgcolor="#9F579F"><table border="0" width="100%" cellspacing="0"
            cellpadding="0">
              <tr>
                <td width="40%" bgcolor="#805089"><strong><font color="#FFFFFF"><span
                style="font-size: 14px">&nbsp; 文教长廊</span></font></strong></td>
                <td width="30%"></td>
                <td width="30%" bgcolor="#CBA5D5"></td>
              </tr>
            </table>
            </td>
          </tr>
          <tr>
            <td width="100%" background="../images/bg-013.gif"
            style="border-left: 1px solid rgb(159,87,159); border-right: 1px solid rgb(159,87,159); border-bottom: 1px solid rgb(159,87,159)"><ul>
               <%sql="select top 5 * from news2_info where menuid='009006'  order by infoid desc "
        rs.Open sql,conn,3,1
        if not rs.EOF then
        for i=1 to rs.RecordCount 
        %>
          <li><a class="l7"
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
            target="_blank"><%=rs("newstitle")%></a> <%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%><br>
        
        <%rs.MoveNext 
         next
         end if
         rs.Close
         
        %>  </li>  
        <p align="right"><a class="l2"
            href="morenews.asp?menuid=009006"
            target="_blank">【更多...】</a>&nbsp;&nbsp;&nbsp; <br>
              </td>
          </tr>
        </table>
        </center></div></td>
      </tr>
      <tr>
        <td width="50%" valign="top"><div align="center"><center><table border="0" width="90%">
          <tr>
            <td width="100%" bgcolor="#9F579F"><table border="0" width="100%" cellspacing="0"
            cellpadding="0">
              <tr>
                <td width="40%" bgcolor="#805089"><strong><font color="#FFFFFF"><span
                style="font-size: 14px">&nbsp; 居家课堂</span></font></strong></td>
                <td width="30%"></td>
                <td width="30%" bgcolor="#CBA5D5"></td>
              </tr>
            </table>
            </td>
          </tr>
          <tr>
            <td width="100%" background="../images/bg-013.gif"
            style="border-left: 1px solid rgb(159,87,159); border-right: 1px solid rgb(159,87,159); border-bottom: 1px solid rgb(159,87,159)"><ul>
               <%sql="select top 5 * from news2_info where menuid='009007'  order by infoid desc "
        rs.Open sql,conn,3,1
        if not rs.EOF then
        for i=1 to rs.RecordCount 
        %>
          <li><a class="l7"
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
            target="_blank"><%=rs("newstitle")%></a> <%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%><br>
        
        <%rs.MoveNext 
         next
         end if
         rs.Close
         
        %>  </li>
        <p align="right"><a class="l2"
            href="morenews.asp?menuid=009007"
            target="_blank">【更多...】</a>&nbsp;&nbsp;&nbsp; <br>
               </td>
          </tr>
        </table>
        </center></div></td>
        <td width="50%" valign="top">　<div align="center"><center><table border="0" width="90%">
          <tr>
            <td width="100%" bgcolor="#9F579F"><table border="0" width="100%" cellspacing="0"
            cellpadding="0">
              <tr>
                <td width="40%" bgcolor="#805089"><strong><font color="#FFFFFF"><span
                style="font-size: 14px">&nbsp; 往日回顾</span></font></strong></td>
                <td width="30%"></td>
                <td width="30%" bgcolor="#CBA5D5"></td>
              </tr>
            </table>
            </td>
          </tr>
          <tr>
            <td width="100%" background="../images/bg-013.gif"
            style="border-left: 1px solid rgb(159,87,159); border-right: 1px solid rgb(159,87,159); border-bottom: 1px solid rgb(159,87,159)"><ul>
             <%sql="select * from news2_review where menuid='009011' and visible='1' order by infoindex "
        rs.Open sql,conn,3,1
        if not rs.EOF then
        for i=1 to rs.RecordCount 
        %> 
               
                <li><a class="l3"
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
            target="_blank"><span class="l6"><%=rs("newstitle")%></span></a><br>
             
               <%rs.MoveNext 
         next
        end if
        rs.Close
         
             %>  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
             <a class="l2" href="morereview.asp?menuid=009011"  target="_blank">【更多...】</a> 
                <span class="l6"></span>
              </td>
          </tr>
        </table>
        </center></div></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
</center></div>

<hr width="90%" size="1" color="#805089">
<script LANGUAGE="JavaScript">
<!--
function openSmallWindow4(){
  window.open("http://www.1001n.com.cn/lxfs.htm",
              "smallWindow",
              "width=480,height=300,lesizable=no,status=no,left=200,top=150");
  }
function openSmallWindow5(){
  window.open("http://www.1001n.com.cn/zpxx.htm",
              "smallWindow",
              "width=550,height=450,lesizable=no,status=no,left=100,top=50,scrollbars=yes");
  }
//-->
</script>
<div align="center"><center>

<table>
  <tr>
    <td width="100%"><p align="center"><font color="#8080FF"><a
    href="http://www.1001n.com.cn/aboutus.asp" style="text-decoration:none"><font
    color="#8080FF">关于我们</font></a>│广告服务│<a href
    onClick="openSmallWindow5()" style="cursor:hand"><font color="#8080FF">招聘信息</font></a>│<a
    href onClick="openSmallWindow4()" style="cursor:hand"><font color="#8080FF">联系方式</font></a></font></td>
  </tr>
  <tr>
    <td width="100%"><p align="center"><font color="#000000">版权所有：东宇电子商务有限公司</font><font
    color="#8080FF"><br>
    </font>Copyright@2000 Dongyu E-commerce Co., Ltd. All rights reserved<br>
    千夜信箱：<a href="mailto:1001n@dongyu.com.cn">1001n@dongyu.com.cn</a></td>
  </tr>
</table>
</center></div>
</body>
</html>

index.asp - 源码说明

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

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

⌨️ 快捷键说明

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