📄 search.asp
字号:
<%
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">
<center><IMG SRC="title.gif" ALT="" WIDTH=400 HEIGHT=80 border="0"></center>
<table width="760" 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="搜索"></td>
<td width="35%" align="right"><a href="/">首页</a> ＞ <a href="./">周公解梦</a> ＞ 搜索结果 </td>
</tr></form>
</table>
<table width="760" align="center">
<tr><td>
<hr></hr>
</tr></td></table>
<table width="760" 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.mdb")
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="760" 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 width=760 border="0" cellspacing="0" cellpadding="0" align="center" height="80">
<tr>
<td align="center" class="Black14">
Copyright 2006 Vixf.com Inc. All rights reserved. <a href=http://www.Vixf.com target=_blank>VIXF INC</a> 版权所有 <br>
黑ICP备07004007号 mailto: <a href="mailto:ask@Vixf.com">ask@Vixf.com</a> <br>
本解梦结果仅供娱乐，切勿迷信！ <br>
<script type="text/javascript" src="http://js.tongji.cn.yahoo.com/75068/ystat.js"></script><noscript><a href="http://tongji.cn.yahoo.com"><img src="http://img.tongji.cn.yahoo.com/75068/ystat.gif"/></a></noscript>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -