jujiao.asp

asp的新闻网站

<table border="0" width="770" cellspacing="0" cellpadding="0">
  <tr>
    <td width="165" valign="top"
    style="border-left: 3px solid rgb(221,221,221); border-bottom: 3px solid rgb(221,221,221); border-top: 3px solid rgb(221,221,221)">
    <table  border="0" width="100%" cellspacing="0" cellpadding="0">
      <tr>
        <td width="100%" height="23" valign="top"><img src="../images/pic-063.gif"
        width="165" height="35"><br>
        </td>
      </tr>
      <tr>
        <td width="100%" height="10" valign="top" background="../images/bg-002.gif"></td>
      </tr>
      
        <%sql="select * from news2_commend where menuid='005013' and visible<>'0' order by infoindex "
        rs.Open sql,conn,3,1
        if not rs.EOF then%>
        <tr><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="120" height="150" border="0"></a></td>
        </tr>
        <tr><td width="100%" bgcolor="#FFF8F4"><p align="center">
        <a href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"  target="_blank" class="l2"><%=rs("newstitle")%></a></td>
        </tr>
         <%if trim(rs("introduction"))<>"" then%>
      <tr>
        <td width="100%" bgcolor="#F7F7F7">
        <a href="../looknews.asp?menuid=<%=rs("menuid")%>&infoid=<%=rs("infoid")%>"  target="_blank" class="l2">
        <% showbody(rs("introduction"))%></a><br>
        </td>
      </tr>
       <%end if
       
       end if
       rs.close%>
    
      <tr>
        <td width="100%" background="../images/bg-002.gif" height="10"></td>
      </tr>
    </table>
    </td>
    <td width="385" valign="top"
    style="border-top: 3px solid rgb(221,221,221); border-bottom: 3px solid rgb(221,221,221)"
    bgcolor="#F7F7F7"><table border="0" width="100%" cellspacing="0" cellpadding="0">
      <tr>
        <td width="371"><br>
        <ul>
         
         <%sql="select * from news2_commend where menuid='005014' 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>
    </table>
    </td>
    <td width="220"
    style="border-right: 3px solid rgb(221,221,221); border-top: 3px solid rgb(221,221,221); border-bottom: 3px solid rgb(221,221,221);"
    valign="top" align="right"><table border="0" width="100%" cellspacing="0" cellpadding="0">
      <tr>
        <td width="100%"><img src="../images/pic-008.jpg"  width="220" height="200"></td>
      </tr>
      <tr>
        <td width="100%"><div align="center"><center>
        <!--#include file="../../include/script.asp"-->
     <form name=add action="../include/search.asp" method=post" onsubmit="return check(this)" target="_blank">
        <table border="0" width="90%" cellspacing="0"
        cellpadding="0">
          <tr>
            <td width="10%" rowspan="3"><img src="../images/pic-066.gif" width="26" height="100"></td>
            <td width="90%" colspan="2"
            style="border-right: 1px solid rgb(255,0,0); border-top: 1px solid rgb(255,0,0)"><p
            align="center">关键字：<input type="text" name="newstitle" size="13"
            style="background-color: rgb(235,235,235); border: 1px solid rgb(0,0,0)"></td>
          </tr>
          <tr>
            <td width="90%" colspan="2" style="border-right: 1px solid rgb(255,0,0)"><p align="center">日&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%" style="border-bottom: 1px solid rgb(255,0,0)"><p align="center"><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="30%"
            style="border-right: 1px solid rgb(255,0,0); border-bottom: 1px solid rgb(255,0,0)">
            <input type="image" name="Submit" value="ok"
            src="../images/pic-069.gif"  width="33" height="16"></td>
          </tr>
        </table>
        </form>
        </center></div></td>
      </tr>
      <tr>
        <td width="100%" height="5"></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
</center></div><div align="center"><center>