news.asp

伟业科技全站程序。 并且有原文件。 可以任意修改

<!--#include file="head.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" background="/imgs/beijing.png">
  <!--DWLayoutTable-->
  <tr>
    <td width="6" height="800"></td>
    <td width="184" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <!--DWLayoutTable-->
      <tr>
        <td width="181" valign="top" height="800"><!--#include file="left.asp"--></td>
		<td width="1" bgcolor="#D7D7D7"></td>
        </tr>
    </table></td>
    <td width="585" valign="top"><table width="584" border="0" cellpadding="0" cellspacing="0">
      <!--DWLayoutTable-->
      <tr>
        <td width="584" height="800"><table width="584" height="800" align="center" cellpadding="0"  cellspacing="0">
      <tr>
        <td width="1" bgcolor="#D7D7D7"></td>
        <td width="601" height="119"><img src="mb/dongtaixinwen.jpg" width="586" height="145"></td>
      </tr>
      <tr>
        <td bgcolor="#D7D7D7"></td>
        <td valign="top"><%
dim strFileName
strFileName="news.asp"
pageno=20
%>
<table width="582"  cellspacing="0" cellpadding="0">
          <tr>
            <td width="580"><img src="images/tt_news.gif" width="584" height="35"></td>
          </tr>
          <tr>
            <td align="center"><table width="96%"  border="0" align="center" cellpadding="1" cellspacing="1">
              <%
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where listid=1 and isview=1 order by istop,id desc"
rs.open sql,conn,1,1
rscount=rs.recordcount
if  rscount<1 then
%>
<table width="96%"  border="0" align="center" cellpadding="1" cellspacing="1"><tr><td> 暂无动态新闻...</td></tr></table>
<%
else
call showsql(pageno)
rs.move(rsno)
for i=1 to loopno
%>
              <tr>
                <td height="23">&nbsp;<img src="images/dot_n.gif" width="9" height="7">&nbsp;<a href="javascript:openwin('shownews.asp?id=<%=rs("id")%>')"><font color="<%=rs("titlecolor")%>"><%=rs("title")%></font></a>&nbsp;[<%=rs("addtime")%>] (<font color="#FF0000"><%=rs("hits")%></font>) &nbsp;<%if rs("istop")=1 then%><img src="images/new.gif"><%end if%></td>
              </tr>
              <tr>
                <td height="1" background="images/1.gif" class="newbody"></td>
              </tr>
              <%
rs.movenext
next
%>
            </table>
              <table width="96%" border="0" align="center" cellpadding="1" cellspacing="1">
                <tr>
                  <td align="right"  class="tablebody" colspan="2"><%call showpage(strFileName,rscount,pageno,false,true,"条新闻")%></td>
              </table>
              <%
end if
rs.close
set rs=nothing
%></td>
          </tr>
        </table></td>
      </tr>
    </table>
</td>
		<td width="1" bgcolor="#D7D7D7"></td>
    </table>
    </td>
    <td width="3">&nbsp;</td>
  </tr>
</table>
<!--#include file="foot.asp"-->