sousuo.asp

来自「asp的新闻网站」· ASP 代码 · 共 43 行

    <table border="0" width="100%" cellspacing="0" cellpadding="0">
    <!--#include file="../../include/script.asp"-->
      <form name=add action="../include/search.asp" method=post" onsubmit="return check(this)" target="_blank">
<tr>
        <td width="20%"
        style="border-left: 3px solid rgb(210,210,210); border-bottom: 3px solid rgb(210,210,210)"><p
        align="center"><img src="../images/pic-043.gif"  width="100" height="30"></td>
        <td width="30%" style="border-bottom: 3px solid rgb(210,210,210)">关键字：&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="30%" style="border-bottom: 3px solid rgb(210,210,210)">日&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; </td>
        <td width="15%" style="border-bottom: 3px solid rgb(210,210,210)"><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 solid rgb(210,210,210)"><input type="image" name="Submit" value="ok"
        src="../images/pic-022.gif"  width="26" height="26"></td>
      </tr>  </form>
    </table>