index.asp

来自「asp的新闻网站」· ASP 代码 · 共 588 行 · 第 1/3 页

        if not rs.EOF then    
        for i=1 to rs.RecordCount     
        %>    
        
          <tr>           
            <td width="10%" align="center"><img src="../images/ord<%=i%>.gif"  width="12" height="13"></td>           
            <td width="30%"><%=rs("stockName")%></td>           
            <td width="25%" align="right"><%=rs("stockValue")%></td>           
            <td width="5%"><img src="../images/pic-200.gif"  width="9" height="11"></td>           
            <td width="25%" align="right"><font color="red"><%=rs("risePercent")%>%</font></td>           
          </tr>           

        <%rs.MoveNext     
         next    
         end if    
         rs.Close             
        %>    
        </table>           
        </center></div></td>           
        <td width="2%" valign="top" background="../images/bg-007.gif"><img src="../images/pic-084.gif"           
         width="18" height="112"></td>           
      </tr>           
    </table>           
    </td>           
    <td width="20%" valign="top">
    <table border="0" width="100%">           
      <tr>  <%'加入收藏夹 设为首页%>         
        <td width="100%"><font color="white"><p align="center"></font>
        <img onclick="var strHref=window.location.href;this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.1001n.com.cn');" 
style="CURSOR: hand"         
        src="../images/pic-085.gif"  width="66" height="37">&nbsp; 
        <img   onclick="javascript:window.external.addfavorite('http://www.1001n.com.cn','千夜网财经新闻');" style="CURSOR: hand"             
        src="../images/pic-086.gif" width="66" height="37"></td>                
      </tr>                
      <tr>                
        <td width="100%" bgcolor="#0000A0"><font color="white"><p align="center">股票指数</font></td>                
      </tr>                
      <tr>                
        <td width="100%"><!--#include file="stockImg.htm"--></td>                
      </tr>                
    <!--  <tr>                
        <td width="100%" bgcolor="#0000A0"><font color="white"><p align="center">沪证综合指数</font></td>                
      </tr>                
      <tr>                
        <td width="100%"><img src="../images/pic-078.gif"  width="175" height="116"></td>                
      </tr>         -->       
      <tr>                
        <td width="100%"><br><p align="center"><img src="../images/pic-061.gif"                
        width="135" height="60"></td>                
      </tr>                
    </table>                
    </td>                
  </tr>                
</table>                
</center></div>                
                
<table border="0" width="100%" height="10">                
  <tr>                
    <td width="100%"></td>                
  </tr>                
</table>                
<div align="center"><center>                
                
<table border="0" width="770" cellspacing="0" cellpadding="0">                
 <% '输出外汇牌价  %>           
 <%           
    sql="select * from news2_exchange"           
    rs.Open sql,conn,3,1           
    if not rs.EOF then           
               
    stoptime=rs.fields("stopTime").value       '取出截止日期，以第一条记录的日期为准           
            
 %>           
             
  <tr>                
    <td width="20%" valign="top"><div align="center"><center><table border="0" width="90%"                
    cellspacing="0" cellpadding="0">                
      <tr>                
        <td width="100%" bgcolor="#D2D2FF" style="border: 1px solid rgb(128,128,255)"><p                
        align="center"><font color="#000000"><span style="font-size: 14px">外汇牌价(<%=stoptime%>)</span></font></td>                
      </tr>                
      <tr>                
        <td width="100%"                
        style="border-left: 1px solid rgb(128,128,255); border-right: 1px solid rgb(128,128,255); border-bottom: 1px solid rgb(128,128,255)"><div                
        align="center"><center><table border="1" borderColorDark="#CCCCFF"                
        borderColorLight="#0366D6" cellPadding="2" cellSpacing="0" width="146">                
<TBODY>                
          <tr bgColor="#9999ff">                
            <td width="44">货币</td>                
            <td width="53">现汇买入</td>                
            <td width="49">卖出</td>                
          </tr>                
                  
       <%           
         for i=1 to rs.RecordCount         '输出数据          
        %>                    
                     
          <tr>                
            <td width="46"><%=rs("moneyName")%></td>                
            <td width="53"><%=rs("buyPrice")%></td>                
            <td width="49"><%=rs("salePrice")%></td>                
          </tr>                
        <%rs.MoveNext             
         next            
         end if            
         rs.Close                     
        %>                      
              
          <tr>                
            <td align="middle" colSpan="3">单位：人民币元/100外币</td>                
          </tr>                
</TBODY>                
        </table>                
        </center></div></td>                
      </tr>                
      <tr>                
        <td width="100%"></td>                
      </tr>                
    </table>                
    </center></div></td>                
    <td width="40%" valign="top"><div align="center"><center><table border="0" width="95%"                
    cellspacing="0" cellpadding="0">                
      <tr>                
        <td width="100%"><p align="center"><img src="../images/pic-087.gif"                
         width="293" height="23"></td>                
      </tr>                
      <tr>                
        <td width="100%"                
        style="border-left: 1px solid rgb(154,196,226); border-right: 1px solid rgb(154,196,226); border-bottom: 1px solid rgb(154,196,226)"><div                
        align="center"><center><table border="0" width="100%" cellpadding="3">                
       <% '输出购物指南前10条文章标题  %>           
       <%           
        sql="select top 10 * from news2_info where menuid='006002' order by infoid desc "           
        rs.Open sql,conn,3,1           
        if not rs.EOF then           
        for i=1 to rs.RecordCount            
        %>            
                     
          <tr>                
            <td width="5%" valign="top"><img src="../images/pic-082.gif"  width="13" height="13"></td>                
            <td width="95%" valign="top"><a class="l3"                
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"                
            target="_blank"><span class="l6"><%=rs("newstitle")%></span></a>
            <%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%></td>                
          </tr>                
        <% rs.MoveNext             
         next            
         end if            
         rs.Close                     
        %>                      
        </table>                
        </center></div></td>                
      </tr>                
    </table>                
    </center></div></td>                
    <td width="40%" valign="top"><div align="center"><center><table border="0" width="95%"                
    cellspacing="0" cellpadding="0">                
      <tr>                
        <td width="100%"><p align="center"><img src="../images/pic-088.gif"                
         width="293" height="23"></td>                
      </tr>                
      <tr>                
        <td width="100%"                
        style="border-left: 1px solid rgb(154,196,226); border-right: 1px solid rgb(154,196,226); border-bottom: 1px solid rgb(154,196,226)"><div                
        align="center"><center><table border="0" width="100%" cellpadding="3" bgcolor="#FFFFFF">                
       <% '输出市场传闻前10条文章标题  %>           
       <%           
        sql="select top 10 * from news2_info where menuid='006001'  order by infoid desc "           
        rs.Open sql,conn,3,1           
        if not rs.EOF then           
        for i=1 to rs.RecordCount            
        %>            
                     
          <tr>                
            <td width="5%" valign="top"><img src="../images/pic-089.gif"  width="12" height="12"></td>                
            <td width="95%" valign="top"><a class="l3"                
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"                
            target="_blank"><span class="l6"><%=rs("newstitle")%></span></a>
            <%=" ["&rs("derivation")&"]"%><% showtime(rs("regtime"))%></td>                
          </tr>             
        <% rs.MoveNext             
         next            
         end if            
         rs.Close                     
        %>                 
                    
        </table>                
        </center></div></td>                
      </tr>                
    </table>                
    </center></div></td>                
  </tr>                
</table>                
</center></div>                
                
<table border="0" width="100%" height="10">