lookissue.asp

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

ASP
109 行
字号 
<%
'*********************************************************************************
'模块名称：IT新闻往期排行信息查看
'开发人：潘树文
'时间：2001年1月18日
'*********************************************************************************

%>
<html>
<!--#include file="../include/odbc.asp"-->
<!--#include file="../include/checkserver.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../style.css">
<title>千夜网-&gt;新闻-&gt;IT新闻</title>
</head>
<%set rs=server.CreateObject ("adodb.recordset")%>
<body topmargin="3" leftmargin="3">
<div align="center"><center>
<%flag="008000"%>
<!--#include file="../include/secondhead.asp"-->
</center></div><div align="center"><center>

<table border="0" width="770" cellspacing="0" cellpadding="0">
  <tr>
    <td width="174" valign="top" bgcolor="#FAFAFA" background="../images/bg-009.gif"><br>
     <!--#include file="include/left.asp"-->
    <p><br>
    </td>
    <td width="436" valign="top"><div align="center"><center><table border="0" width="95%"
    cellspacing="0" cellpadding="0">
      <tr>
        <td width="100%" colspan="2" background="../images/bg-002.gif" height="12">&nbsp; </td>
      </tr>
        <%sql="select * from news2_menu where menuid='"&request("menuid")&"'  "
        rs.Open sql,conn,3,1
        if not rs.EOF then
        
        %>
         <tr>
        <td width="30%" bgcolor="#B500B5" height="19"><p align="center"><span
        style="font-size: 14px"><font color="#FFFFFF"><%=rs("menuname")%></font></span></td>
         <%
         end if
         rs.Close
         
        %>  <td width="70%"
        style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(181,0,181)"
        height="19">&nbsp; </td>
      </tr>
       
      
      <tr><td><br><p><span style="font-size:14px">第<%=request("issue")%>期信息</span></p></td></tr>
      <tr>
        <td width="100%" colspan="2"><ul>
         <%if request("mysql")="" then
         sql="SELECT *  FROM news2_review WHERE menuid ='"&request("menuid")&"' and issue='"&request("issue")&"' and infoid<>'0000000000' order by infoindex "
         else
          sql=request("mysql")
          end if
        rs.Open sql,conn,3,1
        %><!--#include file="../include/rollpage.asp"--><%
        if not rs.EOF then
        rs.PageSize = 40
	    rs.AbsolutePage = getPageNo(rs)
        for i=1 to rs.PageSize
        If rs.EOF Then Exit For 
        %> <tr>
                <td align=left valign="top"><img src="../images/ord<%=trim(cstr(i))%>.gif" width="12" height="13">
               &nbsp;<a class="l7"  href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
            target="_blank"><span class="l6"><%=rs("newstitle")%></span></a></td>
              </tr>
              
             <%rs.MoveNext
               If rs.EOF Then Exit For  
         next
        end if
          %>  
        
        </td>
      </tr>
      
     <tr>
        <td width="100%" height="19" align=right colspan="2"><%call listPage(rs)%></td>
      </tr> <% rs.Close%>
    </table>
    </center></div></td>
    <td width="160" valign="top" bgcolor="#FAFAFA"><br><!--#include file="include/right.asp"-->
    <p><br>
    </td>
  </tr>
</table>
</center></div><div align="center"><center>

<table border="0" width="770" height="6" cellspacing="0" cellpadding="0">
  <tr>
    <td width="10"><img src="../images/pic-140.gif" alt="pic-140.gif (176 字节)" width="10" height="10"></td>
    <td width="760" bgcolor="#0280D9"></td>
  </tr>
</table>
</center></div>

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

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

lookissue.asp - 源码说明

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

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

⌨️ 快捷键说明

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