sousuo.asp

asp的新闻网站

<table border="0" width="100%"
        cellspacing="0" cellpadding="0">
          <tr>
            <td width="40%"
            style="border-left: 3px none rgb(210,210,210); border-bottom: 3px none rgb(210,210,210)"
            bgcolor="#000000" height="16"><p align="center"><span style="font-size: 14px"><font
            color="#FFFFFF">新闻搜索</font></span></td>
            <td width="40%" style="border-bottom: 3px none rgb(210,210,210)" bgcolor="#AE0057"
            height="16"></td>
            <td width="15%" style="border-bottom: 3px none rgb(210,210,210)" bgcolor="#CC0066"
            height="16"></td>
            <td width="5%" style="border-bottom: 3px none rgb(210,210,210)" bgcolor="#FF0000"
            height="16"></td>
          </tr>
           <!--#include file="../../include/script.asp"-->
         <form name=add action="../include/search.asp" method=post" onsubmit="return check(this)" target="_blank">
          <tr>
            <td width="40%"
            style="border-left: 3px none rgb(210,210,210); border-bottom: 3px none rgb(210,210,210)"
            height="32"><p align="center">关键字：&nbsp; <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="40%" style="border-bottom: 3px none rgb(210,210,210)" height="32">日&nbsp; 
            期：&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)">&nbsp;&nbsp; </td>
            <td width="15%" style="border-bottom: 3px none rgb(210,210,210)" height="32"><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="5%" style="border-bottom: 3px none rgb(210,210,210)" height="32"><input type="image" name="Submit" value="ok"
            src="../images/pic-022.gif" alt="pic-022.gif (581 字节)" width="26" height="26"></td>
          </tr>
          </form>
          <tr>
            <td width="40%"
            style="border-left: 3px none rgb(210,210,210); border-bottom: 3px none rgb(210,210,210)"></td>
            <td width="40%" style="border-bottom: 3px none rgb(210,210,210)"></td>
            <td width="15%" style="border-bottom: 3px none rgb(210,210,210)"></td>
            <td width="5%" style="border-bottom: 3px none rgb(210,210,210)"></td>
          </tr>
        </table>