redian.asp

asp的新闻网站

<table border="0" width="770" cellspacing="0" cellpadding="0">
  <tr>
    <td width="161" valign="top" background="../images/bg-008.gif"><table border="0" width="100%"
    cellspacing="0" cellpadding="0">
      <tr>
        <td width="100%"><img src="../images/pic-122.gif"  width="161" height="149"></td>
      </tr>
      <tr>
        <td width="100%" valign="bottom" height="50"><img src="../images/pic-123.gif"
         width="161" height="36"></td>
      </tr>
      <tr>
        <td width="100%"><div align="center"><center><table border="0" width="90%"
        bgcolor="#96A9E9" cellpadding="0" cellspacing="0">
          <tr>
            <td width="100%"><table border="0" width="100%" cellpadding="3">
             <%sql="select * from news2_commend where menuid='008018' and visible<>'0' order by infoindex "
        rs.Open sql,conn,3,1
        if not rs.EOF then%>
              <tr>
                <td width="100%"><font color="#FFFFFF">
                <a href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"  target="_blank" class="l8"><%=rs("newstitle")%></a>——</font></td>
              </tr>
        <%end if
       rs.close%>
              <tr>
                <td width="100%"><p align="center"><FONT color=#ffffff>本栏目主编愿为网友答疑解难</FONT> <a href="mailto:"><img src="../images/pic-181.gif" border="0"></a></P></td>
              </tr>
            </table>
            </td>
          </tr>
          <tr>
            <td width="100%"><p align="right"><img src="../images/pic-139.gif"
             width="7" height="3"></td>
          </tr>
        </table>
        </center></div></td>
      </tr>
      <tr>
        <td width="100%" height="0"></td>
      </tr>
    </table>
    </td>
    <td width="609" style="border-top: 15px solid rgb(2,128,217)" valign="top">　<table
    border="0" width="100%" bgcolor="#FAFAFA">
      <tr> <%sql="select * from news2_commend where menuid='008013' and visible<>'0' order by infoindex "
        rs.Open sql,conn,3,1
        if not rs.EOF then%>
        <td width="30%" 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="120" height="150" border="0"></a><p align=center><%=rs("newstitle")%></td>
        
        <%end if
      
        rs.close%>
        <td width="70%" valign="top" bgcolor="#F4FAFF"><ul>
        <%sql="select * from news2_commend where menuid='008012' and visible<>'0' order by infoindex "
        rs.Open sql,conn,3,1
        if not rs.EOF then
        for i=1 to rs.RecordCount 
        %>
          <li><a class="l7"
            href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"
            target="_blank"><%=rs("newstitle")%></a> <%=" ["&rs("derivation")&"]"%><br>
          </li>
        <%rs.MoveNext 
         next
         end if
         rs.Close
         
        %>  
          </ul>
        </td>
      </tr>
      <tr>
        <td width="100%" valign="top" colspan="2" background="../images/bg-002.gif" height="10"></td>
      </tr>
      <tr>
        <td width="100%" valign="top" colspan="2">
       
       <!--#include file="../../include/script.asp"-->
      <form name=add action="../include/search.asp" method=post" onsubmit="return check(this)" target="_blank">

        <table border="0" width="100%" cellspacing="0"  cellpadding="0">
          <tr>
            <td width="20%"><p align="center"><img src="../images/pic-124.gif"
             width="129" height="30"></td>
            <td width="30%"><p align="center">关键字：&nbsp;<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)">&nbsp; 
            </td>
            <td width="30%">日&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>
            <td width="15%"><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="5%"><input type="image" name="Submit" value="ok"  src="../images/pic-125.gif"  width="40" height="40"></td>
          </tr>
        </table>
         </form>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>