sousuo.asp

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

<table border="0" width="159" cellspacing="0" cellpadding="0"> 
      <tr> 
        <td width="100%"><img src="../images/pic-193.gif"  width="159" height="25"></td> 
      </tr> 
      <tr> 
        <td width="100%" bgcolor="#8CCCCA"><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="98%"> 
          <tr> 
            <td width="100%" height="30" colspan="2"><p align="center">关键字： <br> 
            &nbsp; <input type="text" name="newstitle" size="13"                        
            style="background-color: rgb(235,235,235); border: 1px solid rgb(0,0,0)">&nbsp;</td>                        
          </tr>                        
          <tr>                        
            <td width="100%" height="30" colspan="2"><p align="center">日&nbsp; 期：<br>                        
            <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="80%"><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%" height="20"><input type="image" name="Submit" value="ok" src="../images/pic-057.gif"  
            align="left" width="26" height="26"></td> 
          </tr> 
        </table> 
        </form>
        </center></div></td> 
      </tr> 
    </table>