Question

asp搜索的问题，为什么我的代码在access中搜不出数据？偶尔能搜出来一次，然后就不行了

id:自动编号 topic：主题 content：内容
search.asp

<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->

<%

dim key
dim sql
dim rs
dim rscount
dim page_count
dim page_size
dim currentpage
dim str_search
page_size=10

key=request("key")
if key<>"" then
str_search="key="& key
end if
sql="select * from tab where topic like '%"& key &"%' or content like '%"& key &"%' order by hot desc"

set rs = CreateObject("adodb.recordset")
rs.open sql,conn,1,1
rs.movelast
rscount=rs.recordcount
rs.pagesize=page_size
page_count=rs.pagecount
if request("currentpage")<>"" then
currentpage=request("currentpage")
if currentpage<=1 then currentpage=1
'if currentpage>=page_count then currentpage=page_count
else
currentpage=1
end if
rs.absolutepage=currentpage

%>

<table bgcolor="#B4B4DA" width="98%" align="center">
<tr>
<td><a href="index.asp">返回</a></td>
<td align="right">共找到<%=rscount%>个网页</td>
</tr>
</table>
<%
for i=1 to page_size
%>

<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1">
<tr>
<td>
<a href="<%=rs("url")%>" target="_blank"><%=rs("topic")%></a>
 

</td>
</tr>
<tr>
<td><font size="2"> <%=rs("content left(key,20)")%></font></td>
</tr>

</table>

<%

rs.movenext'记录集指针移动到下一个记录
if rs.eof then exit for
next
rs.close'关闭记录集对象
set rs=nothing
conn.close
set conn=nothing

%>

<input name="Button" type="button" class="bt1" value="首 页" onClick="location='?currentpage=1&<%=str_search%>'">
<input name="Button" type="button" class="bt1" value="上一页" onClick="location='?currentpage=<%=currentpage-1%>&<%=str_search%>'">
<input name="Button" type="button" class="bt1" value="下一页" onClick="location='?currentpage=<%=currentpage+1%>&<%=str_search%>'">
<input name="Button" type="button" class="bt1" value="末 页" onClick="location='?currentpage=<%=page_count%>&<%=str_search%>'">
第<font color="#FF0000"><%=currentpage%></font>页，共<font color="#FF0000"><%=page_count%></font>页，每页<font color="#FF0000"><%=page_size%></font>条

Answer 1

给你一段代码参考一下，很简单的哦！
简单的asp站内搜索实例载入时间： 2009-4-10 文章来源： lele天空 作者： lele整理 浏览：5 次
--------------------------------------------------------------------------------
下面是一个名为“搜索.asp”文件代码：
<form method="post" action="搜索.asp">
关键字：
<input maxlength=16 size=9 type="text" name="name">
内 容：
<input maxlength=16 size=9 type="text" neirong="name">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</form>
<!--#include file="数据库.asp" -->
<%
name=request.form("name")
if name<>"" then
name=request.form("name")
exec="select * from wenjian where timu like '%"&name&"%'"&" order by riqi desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
n=0
else
response.redirect "错误.asp"
end if
%>

<%do while not rs.eof%>
<tr>
<td>
<a href="../<%=rs("路径")%>/<%=rs("文件名")%>"><span style="font-size:12pt;line-height: 14pt"><font color="#0000ff"><%=rs("题目")%>
</font></span></a></p>
<%
n=n+1
if rs("内容")="" then exit do
rs.movenext
loop
%>

<hr />
<div align="right">共搜索到<%=n%>条有关信息</div>
<%
rs.close
set rs=nothing
set conn=nothing
%>

将以上的中文文件名改为英文名，中文字段改成英文字段名，以上使用中文只是表述清楚。
下面的关键语句：
exec="select * from wenjian where timu like '%"&name&"%'"&" order by riqi
中的'%"&name&"%'是条件语句中的重点，它代表你所选择的搜索关键词。

Answer 2

如果程序没有问题的话,那就是like的问题,数据量大的时候使用like会失效的

Answer 3

把这个放到后面试试
rs.close'关闭记录集对象
set rs=nothing
conn.close
set conn=nothing