tech.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">
<%
dim strFileName
strFileName="news.asp"
pageno=20
%>
<table width="584" border="0" cellpadding="0" cellspacing="0">
  <!--DWLayoutTable-->
  <tr>
    <td width="584" height="132" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <!--DWLayoutTable-->
      <tr>
        <td width="584" height="132" valign="top"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="584" height="132">
          <param name="movie" value="/mb/idc.swf">
          <param name="quality" value="high">
          <embed src="/mb/idc.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="584" height="132"></embed>
        </object></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td height="35" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <!--DWLayoutTable-->
      <tr>
        <td width="584" height="35" valign="top"><img src="/images/tt_tech.gif" width="584" height="35"></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td height="633" valign="top"><table width="584"  cellspacing="0" cellpadding="0">
          
          <tr>
            <td width="584" valign="top"><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=2 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/ico_up.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"-->