<%
key=trim(request("key"))
sm=trim(request("sm"))
%>
<html>
<head>
<HTML>
<link href="css.css" rel="stylesheet" type="text/css">
<HEAD>
<TITLE>周公解梦搜索_<%=key%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" href="CSS.css" type="text/css">
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
      <table width="758" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight=#CCCCCC bordercolordark=#FFFFFF class="Black14">
	  	<tr bgcolor=#EFF2F3 height=30 class=Black12>
          <td width="65%"   align="left"><form name="form1" action="search.asp" method="post" >解梦检索： 
                      <input type="text" name="key" value="<%=key%>" size="20"> 
                      <input type="submit" name="submit" value="Search"></td>
          <td width="35%"   align="right"><a href="/">首页</a> ＞ <a href="./">周公解梦</a> ＞ 搜索结果 </td>
        </tr></form>
</table>
<table width="758" align="center">
<tr><td>
<hr></hr>
</tr></td></table>
            
      <table width="758" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight=#CCCCCC bordercolordark=#FFFFFF class="Black14">
	  	<tr bgcolor=#DFEFFF height=30 class=Black12>
          <td width="15%"   align="center"><strong>梦见</strong></td>
          <td width="85%"   align="center"><strong>解梦</strong></td>
        </tr>

<%
if key<>"" then
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dream.asa")
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rst=server.createobject("adodb.recordset")
rst.open "select * from 25175code",conn,1,1
do while (not rst.eof)
tmpstr=rst("sm")&getpy(rst("sm"))'&rst("dq")&getpy(rst("dq"))
if instr(1,tmpstr,key,1)>0 then
 %>
      <table width="758" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight=#CCCCCC bordercolordark=#FFFFFF class="Black14">
<tr bgcolor=#DFEEEF height=30 class=Black12>
          <td width="15%"   align="center"><font color=FF0000><%=rst("sm")%></font></td>
          <td width="85%"   align="left"><font color=666666><%=rst("dq")%></font></td>
        </tr></td></table>
<%
end if
rst.movenext
loop
%>
 </table>
            <%
rst.close
conn.close
%>
            <%
end if
%>
            <!-- #include file="pingying.asp" -->
          </TD>
        </TR>
      </TBODY>
    </TABLE>
 <br>
</table>
</body>
</html>
