<%
if not pageliston=true then
response.redirect "../none.html"
end if
%>
  <table width="100%"  border="0" cellpadding="3" cellspacing="1" bgcolor="#000000">
    <form name="guestsearchform" method="post" action=""><tr align="center">
      <td height="17" class="tablecolor1">查找数据</td>
    </tr>
    <tr>
      <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="13%" align="center">查找类型</td>
          <td width="11%"><select name="stype" id="stype">
            <option value="names">发言人</option>
            <option value="msg" selected>内容</option>
            <option value="qq">QQ</option>
            <option value="date">日期</option>
            <option value="sex">性别</option>
            <option value="address">来自</option>
          </select></td>
          <td width="76%"><input name="key" type="text" class="form_none" onFocus="if(this.value=='关键字')this.value='';" onBlur="if(this.value=='')this.value='关键字';" value="关键字">
            <input name="Submit" type="button" class="input4" value="查找">
            <input name="all" type="button" class="input4" id="all" value="所有"></td>
          </tr>
      </table></td>
    </tr></form>
  </table><br>
  <%
set guestbook=server.CreateObject("adodb.recordset")
sql="select * from guestbook order by id"
guestbook.open sql,conn,1,1
%>
<table width="100%"  border="0" cellpadding="3" cellspacing="1" bgcolor="#000000">
  <tr align="center">
    <td colspan="9" class="tablecolor1">分页函数调用</td>
  </tr>
  <tr align="center" class="tablecolor">
    <td width="8%">ID</td>
    <td width="14%">名字</td>
    <td width="8%">性别</td>
    <td width="14%">留言 </td>
    <td width="14%">QQ</td>
    <td width="20%">日期</td>
    <td colspan="3">操作</td>
  </tr>
<%
thecolors=outcolor
do until guestbook.Eof
%>
  <tr align="center" class="tablecolor">
    <td><%=guestbook("id")%></td>
    <td><%=guestbook("names")%></td>
    <td><%=guestbook("sex")%></td>
    <td>详细<%=guestbook("id")%></td>
    <td><%=guestbook("QQ")%></td>
    <td><%=guestbook("date")%></td>
    <td width="7%">修改</td>
    <td width="7%">删除</td>
    <td width="8%">全删</td>
  </tr>
  <%   
guestbook.MoveNext             
if thecolors=outcolor then
thecolors=overcolor
else
thecolors=outcolor
end if  
loop               
%>
  <tr align="center">
    <td colspan="9" class="tablecolor1">&nbsp;</td>
  </tr>
</table>
  <%guestbook.close
set guestbook=nothing%>
    

