left.asp

asp的新闻网站

<table border="0" width="100%"  cellspacing="0" cellpadding="0">
      <tr>
        <td width="100%" colspan="2"><img src="../images/pic-164.gif"  width="130" height="48"></td>
      </tr>
      <tr>
        <td width="100%"
        style="border-left: 1px none rgb(190,142,202); border-right: 1px none rgb(190,142,202)"
        colspan="2"><p align="center"><font color="white">关键字：</font><br>
        <input type="text" name="newstitle" size="13"
        style="background-color: rgb(2,128,217); color: rgb(255,255,255); border: 1px solid rgb(0,0,0)"></td>
      </tr>
      <tr>
        <td width="100%"
        style="border-left: 1px none rgb(190,142,202); border-right: 1px none rgb(190,142,202)"
        colspan="2"><p align="center"><font color="white">日&nbsp; 期：</font><br>
        &nbsp; <input type="text" name="year" size="4" maxLength=4
        style="background-color: rgb(2,128,217); border: 1px solid rgb(0,0,0)">-<input type="text"
        name="month" size="2"  maxLength=2 style="background-color: rgb(2,128,217); border: 1px solid rgb(0,0,0)">-<input
        type="text" name="day" size="2" maxLength=2 onChange="daychange();"
        style="background-color: rgb(2,128,217); border: 1px solid rgb(0,0,0)">&nbsp;&nbsp; </td>
      </tr>
      <tr>
        <td width="70%"
        style="border-left: 1px none rgb(190,142,202); border-right: 1px none rgb(190,142,202); border-bottom: 1px none rgb(190,142,202)"><p
        align="center"><select name="menuid" size="1"
        style="font-size: 9pt; background-color: rgb(2,128,217); color: rgb(255,255,255)">
           <%set rs8=server.CreateObject ("adodb.recordset")      
               sql="select * from news2_menu where visible='1' order by menuindex "      
               rs8.Open sql,conn,3,1      
             %>      
             <%if not rs8.EOF  then        
               for i=1 to rs8.RecordCount         
               if left(rs8("menuid"),3)<>"012" then  
             %>        
                <option  value="<%=left(rs8("menuid"),3)%>"><%=rs8("menuname")%></option>         
             <%        
               end if 
               rs8.MoveNext         
               next        
               else        
               Response.Write "menu erro!"        
               end if        
               rs8.Close 
               set rs8=nothing%> 
        </select></td>
        <td width="30%"
        style="border-left: 1px none rgb(190,142,202); border-right: 1px none rgb(190,142,202); border-bottom: 1px none rgb(190,142,202)"><input type="image" name="Submit" value="ok"
        src="../images/pic-165.gif" width="27" height="26"></td>
      </tr>
    </table>
     </form>
    <table border="0" width="100%">
      <tr>
        <td width="100%"><img src="../images/pic-158.gif"  width="130" height="48"></td>
      </tr>
      <tr>
        
        <%sql="select * from news2_commend where menuid='009008' and visible<>'0' order by infoindex "
        rs.Open sql,conn,3,1
        if not rs.EOF then%>
        <td width="100%" valign="top" enctype=multipart/form-data><p  align="center">
        <a href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"  target="_blank">
        <img src="<%=smallpicUrl%><%=rs("smallpic")%>"  width="100" height="120" border="0"></a></td>
        
        </td>
      </tr>
      <tr>
        <td width="100%"><p align="center"><font color="#FFFFFF">
         <a href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"  target="_blank" class="l8">
         <%=rs("newstitle")%></font></a></td>
      </tr>
      <%end if
      rs.close%>
    </table>
    <table border="0" width="100%" cellpadding="2">
      <tr>
        <td width="100%"><img src="../images/pic-161.gif"  width="130" height="48"></td>
      </tr>
      <tr>
      <%sql="select top 1 * from news2_info where menuid='009001'  order by infoid desc "
        rs.Open sql,conn,3,1
        if not rs.EOF then%>
        <td width="100%"><p align="center"><font color="#FFFFFF"> <a href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"  target="_blank" class="l8">
         <%=rs("newstitle")%></font></a>
        </font><img src="../images/pic-162.gif"  width="23" height="12"></td>
        <%end if
      rs.close%></tr> 
    </table>
    <table border="0" width="100%" cellpadding="2">
      <tr>
        <td width="100%"><table border="0" width="100%" cellspacing="0" cellpadding="0">
          <tr>
            <td width="100%"><img src="../images/pic-163.gif"  width="130" height="48"></td>
          </tr>
          <tr> <td width="100%">
             <%sql="select top 3 * from news2_info where menuid='009002' order by infoid desc "
        rs.Open sql,conn,3,1
        if not rs.EOF then
          for i=1 to rs.RecordCount 
        %>
       <p align="center"><font color="#FFFFFF"> <a href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"  target="_blank" class="l8">
         <%=rs("newstitle")%></font></a>
        </font><img src="../images/pic-162.gif"  width="23" height="12"><br>
        <%
        rs.MoveNext 
        next
        end if
      rs.close%></td></tr>
          
        </table>
        </td>
      </tr>
    </table>
    <table border="0" width="100%">
      <tr>
        <td width="100%"><img src="../images/pic-166.gif"  width="130" height="48"></td>
      </tr>
     <%  '输出科教_专题新闻（注：后台控制输出记录数） 
        sql="select   * from news2_specialcommend where menuid='010014' and visible<>'0' order by infoindex "    
        rs.Open sql,conn,3,1    
        if not rs.EOF then    
        for i=1 to rs.RecordCount     
        %>     
          <tr> 
            <td width="100%" align="center">
            <%if not isnull(rs("smallpic")) then%>
            <a  href="../zhuanti/index.asp?infoid=<%=rs("infoid")%>" target="_blank">
            <img src="<%=smallpicUrl%><%=rs("smallpic")%>" alt="<%showbody(rs("introduction"))%>" width="100" height="75" border="0"></a>
            <%end if%>
            </td> 
          </tr> 
          <tr> 
            <td width="100%"><p align="center"><font color="#FFFFFF"><a class="l8" href="../zhuanti/index.asp?infoid=<%=rs("infoid")%>" target="_blank"><%=rs("newsTitle")%></a></font></td>
          </tr> 
        <%rs.MoveNext     
         next    
         end if    
         rs.Close             
        %> 
    </table>
    <table border="0" width="100%">
      <tr>
        <td width="100%"><img src="../images/pic-169.gif"  width="130" height="48"></td>
      </tr>
    </table>
    <table border="0" width="100%">
      <tr>
        <td width="100%">
        - <a class="l8" href="http://www.xinhuanet.com/" target="_blank">新华网</a><br>
        - <a class="l8" href="http://www.cctv.com" target="_blank">中央电视台</a><br>
        - <a class="l8" href="http://www.huabao.net" target="_blank">华报网</a><br>
        - <a class="l8" href="http://www.sina.com.cn" target="_blank">新浪网</a><br>
        - <a class="l8" href="http://www.sohu.com/" target="_blank">搜狐网</a><br>
       <br>
        </td>
      </tr>
    </table>