⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 news.asp

📁 这是一个关于企业物流平台的东东
💻 ASP
字号:
<!--#include file=conn/co.asp-->
<% 
if request("newsname")="" then
newsname="公司新闻"
else
newsname=request("newsname")
end if
set rs=server.CreateObject("adodb.recordset")
sql="Select * from new where lei='"&newsname&"' order by time desc"
rs.open sql,conn,1,1
%>
<HTML><HEAD><TITLE>启天物流</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
.style1 {color: #FFFFFF}
-->
</style>

<link href="table.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url(images/bg.gif);
}
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: none;
	color: #999999;
}
a:active {
	text-decoration: none;
}
.style3 {color: #ff6600}
-->
</style></head>
<body topmargin="0" >
<table width=768 border=0 align=center cellpadding=0 cellspacing=0>
  <tbody>
    <tr>
      <td><div align="center">
          <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="766" height="80" align="absmiddle">
            <param name="movie" value="images/%7Etop.swf">
            <param name="quality" value="high">
            <embed src="images/%7Etop.swf" width="766" height="80" align="absmiddle" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash"></embed>
          </object>
      </div></td>
    </tr>
  </tbody>
</table>
<TABLE width=766 border=0 align=center cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD bgColor=#ffffff><IMG 
      src="images/xxcx3.gif" width=766 height=121></TD>
</TR></TBODY></TABLE>


<TABLE cellSpacing=0 cellPadding=2 width=766 align=center border=0 height="5">
  <TBODY>
  <TR>
    <TD bgColor=#004080>      </TD>
</TR></TBODY></TABLE>
<TABLE width=766 border=0 align=center cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD >
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD width="26%" vAlign=top bgcolor="#EEEEEE">
            <table width="200" border="0" cellspacing="0">
              <tr>
                <td width="198"><a href="news.asp?newsname=&#20844;&#21496;&#26032;&#38395;"><img src="images/news.gif" width="198" border="0"></a></td>
              </tr>
              <tr>
                <td><a href="news.asp?newsname=&#34892;&#19994;&#26032;&#38395;"><img src="images/news1.gif" width="198" border="0"></a></td>
              </tr>
            </table></TD>
          <TD width="74%" vAlign=top>
            <TABLE width="92%" height="350" 
            border=0 align=center cellPadding=0 cellSpacing=0>
              <TBODY>
              <TR>
                <TD align=middle valign="top"><div align="left">
                  <br>
                  <br>
                  <table width="17%" height="25"  border="0" background="images/jian.gif">
                    <tr>
                      <td height="25"><div align="center" ><span class="style1"> <%= newsname %></span></div></td>
                    </tr>
                  </table><br>
                  <br>
                  
                  <TABLE height=19 cellSpacing=1 cellPadding=0 
                              width="100%" align=center border=0>
                    <TBODY>
                    <%
                       if not rs.eof then 
						   tel=rs.recordcount               '总共记录数
						   shum=20
						   rs.pagesize=shum                 '每页显示的条数
						   maxpage=rs.pagecount             '总共页数
						   requestpage=clng(request("p"))   '接收页码
						   
						   if requestpage="" or requestpage=0 then   '当前页为空或者为零时 值为1
							   requestpage=1
						   end if 
						   '当前页大于最大页码时 当前页等于最大页码
						   if requestpage>maxpage then 
							   requestpage=maxpage
						   end if 
						   '向下移动相应的行数
						   if not requestpage=1 then 
							   rs.move (requestpage-1)*rs.pagesize
						   end if 
						   
						   for i=1 to rs.pagesize and not rs.eof
						%>
						  <TR >
							<TD width="66%" class="biaodi"><IMG height=9 
									src="images/xiaonew.jpg" 
									width=8> <a href="javascript:" onClick=" window.open('open.asp?id=<%=rs("id")%>','','scrollbars=yes,width=300,height=300')"><%=rs("title")%></a></TD>
							<TD align=right width="34%" class="biaodi">[<%=rs("time")%>]</TD>
						  </TR>
						  <%
							Rs.MoveNext
							if rs.eof then exit for
							next
							Rs.Close
							Set Rs=Nothing
						else
							response.Write("暂无新闻")
                        end if
			          %>
                      <tr>
                        <td colspan="2"><div align="right">共 <%= maxpage %> 页  当前页:<%= requestpage %>               <a href=news.asp?p=<%=requestpage-1%>&newsname=<%=newsname%>>上一页</a>              <a href=news.asp?p=<%=requestpage+1%>&newsname=<%=newsname%>>下一页</a></div></td>
                      </tr>
                    </TBODY>
                  </TABLE>
                  </div>                  </TD>
              </TR></TBODY></TABLE>                                       
              </TD>
        </TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE>

<TABLE class=font cellSpacing=0 cellPadding=4 width=766 align=center border=0>
  <TBODY>
  <TR>
    <TD bgColor=#36498D><div align="center"><A href="jianjie.asp" ><span class="style1">公司简介</span></A> <span class="style1">|</span> <A href="fuwu.asp" ><span class="style1">物流服务</span></A> <span class="style1">|</span> <A href="news.asp" ><span class="style1">新闻动态</span></A> <span class="style1">|</span> <A href="zhaopin.asp"  ><span class="style1">招聘信息</span></A><span class="style1">|</span> <A href="lianxi.asp" ><span class="style1">联系我们</span></A></div></TD>
  </TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=6 width=766 align=center border=0>
  <TBODY>
  <TR>
    <TD class=font align=middle bgColor=#ffffff>
      <P>版权所有 明日科技有限公司<BR>
        </P>
</TD></TR></TBODY></TABLE></BODY></HTML>

⌨️ 快捷键说明

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