如何用ASP实现对Access数据库的搜索？ - ASP技术论坛

楼主

问题点数：0 回复次数：15

如何用ASP实现对Access数据库的搜索？

如何用ASP实现对Access数据库的搜索？
在网上看到一种方法http://www.38web.net/blog/more.asp?name=38web&id=141，照着做，可就是不行，也不知是哪里出错了！~请大侠指教~~

第 2 楼

得分:0

con="DBQ="+server.mappath("list.mdb")+";DefaultDir=;DIRVER={microsoft Access Driver(*.mdb)};"

可能的错误,连接符号不对

con="DBQ="&server.mappath("list.mdb")&";DefaultDir=;DIRVER={microsoft Access Driver(*.mdb)};"

第 3 楼

得分:0

多谢大侠，可是改后还是不行，，

第 4 楼

得分:0

HTTP 500 - 内部服务器错误
Internet Explorer

第 5 楼

得分:0

[CODE]
<% "建立数据库的连接
con="DBQ="+server.mappath("list.mdb")+";DefaultDir=;DIRVER={microsoft Access Driver(*.mdb)};"
"建立CONNECTION对象并打开数据库
set mycon=server.createobject("ADODB.CONNECTION")
mycon.open.con %>
"创建Recordset对象的例程，打开Recordset对象传递SQL串以及所有的连接信息
<% set rs=server.createobject("ADODB.Recordset")
rs.open "SELECT*FORM list where title and word like '%'&request.form("word")&"%'",MyCon,adOpenStatie
%>
"建立查询后的显示信息和查询页面,你想取什么名字都可以
<html><head><title>查询结果</title></head>
<body bgcolor="#ffffff">
<p align="center"><br>
"统计查询共有<% Response.Write(RS.RecordCount) %>条纪录</p><br>
<div align="center"><center>
<table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
<tr align="center">
<td width="20%" align="center" bgcolor="#ffffff">ID</td>
<td width="60%" align="center" bgcolor="#ffffff">主题</td>
<td width="20%" align="center" bgcolor="#ffffff">查看</td></table>
<table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
<tr align="center">

<% while not rs.eof %>
<tr align="center">
<td width="20%" align="center" bgcolor="#ffffff"><% =rs("id") %></td>
<td width="60%" align="center" bgcolor="#ffffff"><% =rs("title") %></td>
<td width="20%" align="center" bgcolor="#ffffff"><a href="<% =rs("url") %>">GO</a></td>
<% rs.movenext %></tr> <% wend %></table></center></div><% rs.close %>
<% mycon.close %>
"关闭链接
</body></html>
[/CODE]高手请看看这代码有没有问题，，

第 6 楼

得分:0

rs.open "SELECT*FORM list where title and word like '%"&request.form("word")&"%'",MyCon,adOpenStatie

这句改改试试？另外把整个错误页面的信息贴出来。

第 8 楼

得分:0

rs.open "SELECT*FORM list where title and word like '%'&request.form("word")&"%'",MyCon,adOpenStatie

把这句修改为rs.open "SELECT*FORM list where title and word like '%'&request.form("word")&"%'",MyCon,1,3

删掉这句

第 9 楼

得分:0

改后运行出现

Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误错误 '800a0401'

语句未结束

/1/search.asp，行9

rs.open "SELECT*FORM list where title and word like '%'&request.form("word")&"%'",MyCon,1,3
----------------------------------------------------------------------^

第 10 楼

得分:0

select * from list where title like '%"&request.form("word")&"%' and word like '%"&request.form("word")&"%'"

HTTP 500 - 内部服务器错误 Internet Explorer

HTTP 500 - 内部服务器错误
Internet Explorer