index.asp

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

ASP
117 行
字号 
<%
'*********************************************************************************
'模块名称：社会新闻首页
'开发人：潘树文
'时间：2001年2月8日
'*********************************************************************************

%>
<!--#include file="../include/odbc.asp"-->
<!--#include file="../include/showbody.asp"-->
<html>

<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>

<%set rs=server.CreateObject ("adodb.recordset")%>
<body topmargin="3" leftmargin="3">
<div align="center"><center>
<%flag="004000"%>
<!--#include file="../include/secondhead.asp"-->
</center></div><div align="center"><center>
<%set rs=server.CreateObject ("adodb.recordset")%>
<!--#include file="include/redian.asp"-->

<table border="0" width="770" cellspacing="0" cellpadding="0">
  <tr>
    <td width="20%" valign="top" bgcolor="#F9F9F9"><div align="center"><center>
    <!--#include file="include/jiaodian.asp"-->
    </center></div><p><br>
    </p>
    <div align="center"><center>
     <!--#include file="include/diaocha.asp"-->
    </center></div><p><br>
    <br>
    </p>
    <div align="center"><center>
     <!--#include file="include/zhuanti.asp"-->
    </center></div><p><br>
    </p>
    <div align="center"><center>
     <!--#include file="include/mail.asp"-->
    </center></div><p><br>
    </td>
    <td width="60%" valign="top">　<div align="center"><center>
    <table border="0" width="94%" cellspacing="0" cellpadding="0">
      <tr>
        <td width="100%" colspan="2"></td>
      </tr>
      <%
          dim sql2,sql
          sql2="select menuid,menuname from news2_menu where left(menuid,3)='004' and remdclass='1' and menuid<>'004014'"
         
          rs.Open sql2,conn,1,1
          while not rs.EOF
          %>
      <tr>
        <td width="30%" bgcolor="#9F207C" height="19"><p align="center"><span
        style="font-size: 14px"><font color="#FFFFFF"><%=rs("menuname")%></font></span></td>
        <td width="70%"
        style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(159,32,124)"
        height="19">&nbsp; </td>
      </tr>
      <tr>
        <td width="100%" colspan="2"><ul>
          <%
          sql="select * from news2_info where menuid='"&rs("menuid")&"'  order by infoid desc"

          set rs2=server.CreateObject ("adodb.recordset")
          rs2.open sql,conn,3,1
         
          for i=1 to 8
          if rs2.EOF then exit for%>
              <li><a class="l7" href="../looknews.asp?menuid=<%=rs2("menuid")%>&infoid=<%=rs2("infoid")%>"  target="_blank"><%=rs2("newstitle")%></a>
             <%=" ["&rs2("derivation")&"]"%><% showtime(rs2("regtime"))%> 
          <%
			Response.Write "</font><br></li>"
			rs2.movenext
			next
			set rs2=nothing%>
            </ul>
            <p align="right"><a href="morenews.asp?menuid=<%=rs("menuid")%>&menuname=<%=rs("menuname")%>" class="l2" target="_blank">【更多...】</a>&nbsp;&nbsp;&nbsp; <br>
            </td>
          </tr>
          <%
          rs.MoveNext
          wend
         rs.close%>
        </table>
    </center></div></td>
    <td width="20%" valign="top" bgcolor="#F9F9F9"
    style="border-right: 3px solid rgb(234,234,234)"><div align="center"><center>
     <!--#include file="include/fengqing.asp"-->
    </center></div><p>　</p>
    <div align="center"><center>
    <!--#include file="include/paihang.asp"-->
    </center></div><p><br>
    </p>
    <div align="center"><center>
    <!--#include file="include/link.asp"-->
    </center></div><p><br>
    </td>
  </tr>
</table>
</center></div>

<hr width="90%" size="1" color="#800000">

<div align="center"><center>

<!--#include file="../include/bottom.txt"-->
</center></div>
</body>
</html>

index.asp - 源码说明

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

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

⌨️ 快捷键说明

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