redian.asp

asp的新闻网站

<table border="0" width="770" cellspacing="0" cellpadding="0">
  <tr>
    <td width="25%" style="border-top: 3px solid rgb(234,234,234)" valign="top"><img
    src="../images/pic-007.jpg" alt="pic-007.jpg (7097 字节)" width="218" ></td>
   
    <%sql="select * from news2_commend where menuid='004009' and visible<>'0' order by infoindex "
        rs.Open sql,conn,3,1
        if not rs.EOF then%>
        <td width="20%" valign="top"  rowspan="2" style="border-left: 3px solid rgb(234,234,234); border-top: 3px solid rgb(234,234,234); border-bottom: 3px solid rgb(234,234,234)" enctype=multipart/form-data><p  align="center">
       <br> <a href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"  target="_blank" class="l2">
        <img src="<%=smallpicUrl%><%=rs("smallpic")%>"  width="120" height="150" border="0"><br>
        <%=rs("newstitle")%>
        </a></td>
        
        <%end if
      
        rs.close%>
   
  
    <td width="55%"
    style="border-top: 3px solid rgb(234,234,234); border-bottom: 3px solid rgb(234,234,234)"
    valign="top" rowspan="2"><br>
    <ul>
      <%sql="select * from news2_commend where menuid='004008' 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="25%" valign="top">
     <!--#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%">
      <tr>
        <td width="80%" height="30" colspan="2">关键字：<input type="text" name="newstitle" size="13"
        style="background-color: rgb(235,235,235); border: 1px solid rgb(0,0,0)">&nbsp;</td>
        <td width="20%" height="60" rowspan="3"><img src="../images/pic-056.gif"
        alt="pic-056.gif (1042 字节)" width="28" height="85"></td>
      </tr>
      <tr>
        <td width="80%" height="30" colspan="2">日&nbsp; 期：
        <input type="text" name="year" size="4"  maxLength=4
            style="background-color: rgb(235,235,235); border: 1px solid rgb(0,0,0)">-<input
            type="text" name="month" size="2"  maxLength=2
            style="background-color: rgb(235,235,235); border: 1px solid rgb(0,0,0)">-<input
            type="text" name="day" size="2" onChange="daychange();"  maxLength=2
            style="background-color: rgb(235,235,235); border: 1px solid rgb(0,0,0)"></td>
      </tr>
      <tr>
        <td width="60%"><p align="center">&nbsp; <select name="menuid" size="1" style="font-size: 9pt">
         <%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="20%"><input type="image" name="Submit" value="ok" src="../images/pic-057.gif" alt="pic-022.gif (581 字节)" width="26" height="26"></td>
      </tr>
    </table>
    </form>
    </td>
  </tr>
</table>
</center></div><div align="center"><center>