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

楼主

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

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

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

第 2 楼

得分:0

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

第 3 楼

得分:0

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

第 4 楼

得分: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

改后运行出现

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
----------------------------------------------------------------------^

第 7 楼

得分:0

[CODE] "建立数据库的连接
<%
con="DBQ="&server.mappath("list.mdb")&";DefaultDir=;DIRVER={microsoft Access Driver(*.mdb)};"

set mycon=server.createobject("ADODB.CONNECTION")
mycon.open.con %>"建立CONNECTION对象并打开数据库
"创建Recordset对象的例程，打开Recordset对象传递SQL串以及所有的连接信息
<% set rs=server.createobject("ADODB.Recordset")
rs.open "select * from list where title like '%"&request.form("word")&"%' and word like '%"&request.form("word")&"%'"
%>"建立查询后的显示信息和查询页面,你想取什么名字都可以
<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]请大侠们看看我的代码，，为什么运行后还是显示

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

第 8 楼

得分:0

那为什么别的程序都能用啊？

第 9 楼

得分:0

那这个怎么弄啊？

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

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

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

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