如何实现asp+access数据库实现站内搜索

如何实现asp+access数据库实现站内搜索，请注意了，我的数据库（在根目录下）名为#qqun_qqclg.mdb，想要搜索的表名为：qqsys,主要想搜索里面的四项内... 如何实现asp+access数据库实现站内搜索，请注意了，我的数据库（在根目录下）名为#qqun_qqclg.mdb，想要搜索的表名为：qqsys,主要想搜索里面的四项内容为：qq、name、sf、jieshao，我想实现站内搜索功能，网上的代码本人不太会修改，麻烦大家了
四楼的朋友，你的代码运行后如下：请问知道是什么原因吗？

该页无法显示
您所查找的页面无法显示，因为使用了无效的方法（HTTP 动作）进行访问。
--------------------------------------------------------------------------------

请尝试以下操作：

如果您认为该请求应该被允许，请与网站管理员联系。
确保浏览器的地址栏中显示的网站地址的拼写和格式正确无误。
HTTP 错误 405 - 用于访问该页的 HTTP 动作未被许可。
Internet 信息服务 (IIS)

--------------------------------------------------------------------------------

技术信息（为技术支持人员提供）

转到 Microsoft 产品支持服务并搜索包括“HTTP”和“405”的标题。
打开“IIS 帮助”（可在 IIS 管理器 (inetmgr) 中访问），然后搜索标题为“设置应用程序映射”、“用网站权限保护站点”和“关于自定义错误消息”的主题展开

 我来答

3个回答

#热议# 应届生在签三方时要注意什么？

roobie
2010-04-17 · TA获得超过1387个赞

知道小有建树答主

回答量：947

采纳率：0%

帮助的人：822万

我也去答题访问个人页

关注

展开全部

建立access的数据库news,还有表news,表的字段(id,title),id唯一,输入数据保存,用下面代码可查询,可分页
-----------------------下面保存为search.asp--------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文件</title>
</head>
<body bgcolor="#ffffff">
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<script>
function btn_ck_bh_Click()
{
var cx = document.form1.cxsj.value;
form1.action ="search.asp?cx="+cx;
}
</script>
<table border="1" cellspacing="0" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" width="88%" style="word-break:break-all">
<tr>
<td width="778" align="center" colspan="7">
<form method="POST" name="form1" action=search.asp>
<p>输入搜索内容:<input type="text" name="cxsj" size="20"><input type="submit" value="提交" name="B1" LANGUAGE="javascript" onclick="btn_ck_bh_Click()">
<input type="reset" value="重写" name="B2"></p>
</form>
</td>
</tr>
</table>
<table border="1" cellspacing="0" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" width="88%" style="word-break:break-all">
<tr>
<td width="8%" align="center"><strong><font color="#0080C0">ID 号</font></strong></td>
<td width="58%" align="center"><strong><font color="#0080C0">标题</font></strong></td>
<td width="8%" align="center"><strong><font color="#0080C0">修改</font></strong></td>
<td width="8%" align="center"><strong><font color="#0080C0">删除</font></strong></td>
</tr>
<%
'数据库查询
'获得搜索内容
cx = request("cx")
dim pageCount
'把page转换成整数
page = cint(request("page"))
set conn=server.createobject("adodb.connection")'
set rs=server.createobject("adodb.recordset")
conn.open "DBQ=" & server.mappath("./news.mdb") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

' 获取产品的名字记录集（从 news表中）
if cx <> "" then
sql = "select * from news where title like '%"&cx& "%' order by id desc"
else
sql ="select * from news order by id desc"
end if
rs.open sql,conn,3,3
'如果没有数据记录
if rs.bof then
errmsg=errmsg+"<br>"+"<li>"+keyword+"没有记录,请返回!!"
response.write errmsg
response.end
end if

' 设置记录集在每页的总行数，也就是 PageSize属性
RS.PageSize=40
'把rs.pageCount转换成整数和page才能作比较
pageCount = cint(rs.pageCount)
' 设置当前的页号（ AbsolutePage属性）
if page = 0 then
page =1
end if
RS.AbsolutePage = page
x=1
' 显示当前页中的所有记录（ PageSize中设置的行数）

WHILE NOT RS.EOF AND NumRows<RS.PageSize
%>
<tr onmouseover="this.bgColor='#99ccff'" onmouseout="this.bgColor=''">
<td width="8%"><p align="center"><%=rs("id")%></td>
<td width="58%"><a href="view.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a></td>
<td width="8%" align="center"><a href="edit.asp?id="<%=rs("id")%>>修改</a></td>
<td width="8%" align="center"><a href="delet.asp?id="<%=rs("id")%>>删除</a></td>
</tr>
<%RS.MoveNext
NumRows=NumRows+1
WEND%>
<tr onmouseover="this.bgColor='#99ccff'" onmouseout="this.bgColor=''">
<td width="105%" align="center" colspan="6"> </td> </tr>
<tr>
<td width="105%" align="center" colspan="6">
<p align="center"><FONT color=#333333>共<%=PageCount%>页第<%=page%>页★
<%if page=1 then%>首页<%end if%>
<%if page>1 then%>
<A HREF="search.asp?page=1&cx=<%=cx%>"> 首页</A>
<%end if%>★
<%if page>1 then%><A HREF="search.asp?page=<%=page-1%>&cx=<%=cx%>"><%end if%>上一页</a>
<%
dim pagewhere
dim p
p = 1
'把pagewhere转换成整数
'pagewhere = cint(request("pagewhere"))
pagewhere = pageCount
if pagewhere>0 then
for p=1 to pagewhere
if p <> page then%>
<A HREF="search.asp?page=<%=p%>&cx=<%=cx%>"><%=p%></a>
<%end if
if p =page then%>
<%=p%>
<% end if
next
end if%>
<%if page < PageCount then%>
<A HREF="search.asp?page=<%=page+1%>&cx=<%=cx%>">
<%end if %>下一页</A>★
<%if page=PageCount then%>尾页
<%end if%>
<%if page<PageCount then%>
<A HREF="search.asp?page=<%=PageCount%>&cx=<%=cx%>"> 尾页</A>
<%end if%>
</p></FONT></td> </tr> <tr>
<td width="105%" align="center" colspan="6">搜索内容:<%=cx%></td>
</tr>
</table></center></div>
</body></html>
<%
rs.close
Set rs=nothing
conn.close
set conn=nothing
%>

已赞过 已踩过<

评论收起

集锦科技
2010-04-18 · TA获得超过333个赞

知道小有建树答主

回答量：451

采纳率：0%

帮助的人：279万

我也去答题访问个人页

关注

展开全部

<%
 db="#qqun_qqclg.mdb"
 Set conn = Server.CreateObject("ADODB.Connection")
 connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
 conn.Open connstr
 
 set rs=server.CreateObject("adodb.recordset")
 search=request.Form("search")
 sql="select * from qqsys where qq link %'"&search&"'% or name like %'"&search&"'% or sf like %'"&search&"'% or jieshao like %'"&search&"'%"
 rs.open sql,conn,1,1
 if rs.eof and bof then
   response.Write("没有找到相关内容")
 else
 while not rs.eof
 response.Write(rs("qq"))
 response.Write(rs("name"))
 response.Write(rs("sf"))
 response.Write(rs("jie"))
 response.Write("<br>")
 rs.movenext
 wend
 end if
 rs.close
 set rs=nothing
%>

<form action="?act=search" method="post">
 <input type="text" name="search">
 <input type="submit" name="button">
</form>

时间有限，没有调试


本回答被提问者采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起

人涯0R
2010-04-17

知道答主

回答量：51

采纳率：0%

帮助的人：23.4万

我也去答题访问个人页

关注

展开全部

asp与access的连接代码写没写啊

已赞过 已踩过<

评论收起

更多回答（1）

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

如何实现asp+access数据库实现站内搜索

其他类似问题

为你推荐：