morenews.asp

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

ASP
112
字号
<%
'*********************************************************************************
'模块名称:娱乐新闻更多新闻列表
'开发人:潘树文
'时间:2001年2月1日
'*********************************************************************************
dim rs          '数据访问对象
dim sql         'select 语句
dim i           '循环控制变量
%><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>

<body topmargin="3" leftmargin="3">
<div align="center"><center>
<!--#include file="../include/odbc.asp"-->
<!--#include file="../include/showbody.asp"-->
<!--#include file="../include/killstr.asp"-->
<%flag="007000"%>
<!--#include file="../include/secondhead.asp"-->
</center></div><div align="center"><center>

<table border="0" width="770" cellspacing="0" cellpadding="0">
  <tr>
    <td width="20%" valign="top" bgcolor="#FFF0F8">  <!--#include file="include/sousuo.asp"-->
   <!--#include file="include/tuku.asp"-->
     <!--#include file="include/xiezhen.asp"-->
   <!--#include file="include/meimei.asp"-->
    <!--#include file="include/diaocha.asp"-->
    <!--#include file="include/liaotian.asp"-->
    <!--#include file="include/link.asp"-->
    <p><br>
    </td>
    <td width="60%" valign="top"><div align="center"><center><table border="0" width="98%"
    cellspacing="0" cellpadding="0">
      <tr>
        <td width="100%" colspan="2">&nbsp; </td>
      </tr>
      <tr>
        <td width="30%" bgcolor="#000000" height="19"><p align="center"><span
        style="font-size: 14px"><font color="#FFFFFF"><%=request("menuname")%></font></span></td>
        <td width="70%"
        style="border-right: 1px none rgb(255,128,64); border-top: 1px solid rgb(0,0,0)"
        height="19">&nbsp; </td>
      </tr>
      
      <tr>
        <td width="100%" colspan="2"><ul>
          <%if request("mysql") ="" then
          sql="select * from news2_info where menuid='"&killstr(request("menuid"))&"'  order by infoid desc "
        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 
        %>
          <li><a class="l7"
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
            target="_blank"><%=rs("newstitle")%></a> <br>
          </li>
        <%rs.MoveNext
			 if right(trim(cstr(i)),1)="0"  then '隔十行空一行*******************************************
				 Response.Write "<br>"
			 end if  
         If rs.EOF Then Exit For 
         next
         end if
         
         
        %>  
        
        </td>
      </tr>
      
      <tr>
        <td width="100%" height="19" colspan="2"><%call listPage(rs)%></td>
      </tr>
      <% rs.Close%>
      
      <tr>
        <td width="30%" height="19"></td>
        <td width="70%" height="19"></td>
      </tr>
    </table>
    </center></div></td>
    <td width="20%" valign="top" bgcolor="#FFF0F8">     <!--#include file="include/zhuanti.asp"-->
   <!--#include file="include/jinqu.asp"-->
    <!--#include file="include/jinbao.asp"-->
    <!--#include file="include/dianji.asp"-->
     <!--#include file="include/mail.asp"-->
    </td>
  </tr>
</table>
</center></div>

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

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

⌨️ 快捷键说明

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