sousuo.asp

asp的新闻网站

<table border="0" width="100%"
    cellspacing="0" cellpadding="0">
      <tr>
        <td width="100%"><img src="../images/pic-109.gif"  width="161" height="45"></td>
      </tr>
      <tr>
        <td width="100%">
     
     <!--#include file="../../include/script.asp"-->
    <form name=add action="../include/search.asp" method=post" onsubmit="return check(this)" target="_blank">

        <table border="0" width="154" bgcolor="#F4A0BD">
          <tr>
            <td width="100%" colspan="2" background="../images/bg-002.gif" height="10"></td>
          </tr>
          <tr>
            <td width="100%" colspan="2" height="30"><p align="center"><font color="#FFFFFF">关键字：</font><br>
            <input type="text" name="newstitle" size="13"
            style="background-color: rgb(226,0,127); color: rgb(255,255,255); border: 1px solid rgb(255,255,255)">&nbsp;</td>
          </tr>
          <tr>
            <td width="100%" colspan="2" height="30"><p align="center"><font color="#FFFFFF">日 
            &nbsp; 期：</font><br>
            <input type="text" name="year" size="4" maxLength=4
            style="background-color: rgb(226,0,127); color: rgb(255,255,255); border: 1px solid rgb(255,255,255)">-<input
            type="text" name="month" size="2" maxLength=2
            style="background-color: rgb(226,0,127); color: rgb(255,255,255);border: 1px solid rgb(255,255,255)">-<input
            type="text" name="day" size="2" maxLength=2 onChange="daychange();"
            style="background-color: rgb(226,0,127); color: rgb(255,255,255);border: 1px solid rgb(255,255,255)"></td>
          </tr>
          <tr>
            <td width="70%">&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="30%"><input type="image" name="Submit" value="ok"  src="../images/pic-057.gif"  width="26" height="26"></td>
          </tr>
          <tr>
            <td width="100%" colspan="2" background="../images/bg-002.gif" height="10"></td>
          </tr></form>
        </table>
         
        <table border="0" width="154" bgcolor="#F4A0BD" cellspacing="0" cellpadding="0">
          <tr>
            <td width="100%"><p align="right"><img src="../images/pic-104.gif"
             width="10" height="4"></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>