sousuo.asp

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

  
<table border="0" width="770" cellspacing="0" cellpadding="0">  
  <tr>  
    <td width="100%"  
    style="border-right: 2px solid rgb(140,204,202); border-bottom: 2px solid rgb(140,204,202)">
    
    <!--#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%" background="../images/bg-010.gif">  
      <tr>  
        <td width="10%"><p align="right"><img src="../images/pic-043.gif"  
         width="100" height="30"></td>  
        <td width="25%"><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="25%"><p align="center">日&nbsp; 期：&nbsp; <input type="text" name="year"   maxLength=4                                                                               
        size="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%"><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%"><p align="center"><input type="image" name="Submit" value="ok" src="../images/pic-022.gif"
         width="26" height="26"></td>
        <td width="20%"><img src="../images/pic-144.gif"  width="135" height="11"></td>
      </tr> </form>
    </table>
    
    </td>
  </tr>
</table>
</center></div><div align="center"><center>