关于站内搜索

feixuejian881 2003-08-22 04:20:36

我在这里看到不少站内搜索的源码，想借用一个，但试着运行总出错，请大家帮忙看看。情况如下：我有一数据库名sour,内一表名也是sour。内容如下：
ID leibie word URL
1 文字攻击攻击行为详夈#aggress\aggress.htm##点击徾入
2 文字防御
3 文字觅食以下都是链接URL
4 文字贮食
5 文字繁殖
6 文字社群
7 文字通信
8 文字节律
9 文字本能
10 文字学习
11 图片攻击
12 图片防御
13 图片觅食
14 图片贮食
15 图片繁殖
16 图片社群
17 图片通信
18 图片节律
19 图片本能
20 图片学习
21 科学家攻击
22 科学家防御
23 科学家觅食
24 科学家贮食
25 科学家繁殖
26 科学家社群
27 科学家通信
28 科学家节律
29 科学家本能
30 科学家学习

...全文

37 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

feixuejian881 2003-08-22

打赏
举报

feixuejian881 2003-08-22

打赏
举报

帖错了。<%
con="DBQ="+server.mappath("sour.mdb")+";DefaultDir=;DIRVER={microsoft Access Driver(*.mdb)};"
set mycon=server.createobject("ADODB.CONNECTION")
mycon.open.con %>
<% set rs=server.createobject("ADODB.Recordset")
rs.open "SELECT*FROM sour where leibie="&request.myform("biglocation")&"",MyConn,adOpenStatie
%>

feixuejian881 2003-08-22

打赏
举报

还是不行啊！连联接数据库都报错了。这是ADOVBS.inc文件，一运行就报这个文件的第四行错。更要命的是我的主页上的搜索运行时根本不进入SEACH.ASP,而是说网页无法显示！
<%
con="DBQ="+server.mappath("../myaccess/sour.mdb")+";DefaultDir=;DIRVER={microsoft Access Driver(*.mdb)};"
set mycon=server.createobject("ADODB.CONNECTION")
mycon.open.con %>
<% set rs=server.createobject("ADODB.Recordset")
rs.open "SELECT*FROM sour where word like '%'&request.form("word")&"%'",MyCon,adOpenStatie
%>

xiejunhua 2003-08-22

打赏
举报

your=request.form("word")

Set rs=Server.CreateObject("ADODB.RECORDSET")
Sql="select * from sour where word like '%"& your &"%' "
rs.Open Sql,Mycon,1,1

diya 2003-08-22

打赏
举报

rs.open "SELECT*FROM sour where word like '%"&request.form("word")&"%'"

feixuejian881 2003-08-22

打赏
举报

源程序借用的是这一个：

<%
con="DBQ="+server.mappath("../myaccess/sour.mdb")+";DefaultDir=;DIRVER={microsoft Access Driver(*.mdb)};"
set mycon=server.createobject("ADODB.CONNECTION")
mycon.open.con %>
<% set rs=server.createobject("ADODB.Recordset")
rs.open "SELECT*FROM sour where 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>
下面我们来建立搜索页面
<html><head><title>搜索页面</title></head>

<from method="POST" action="search.asp">
<div align="center"><center><p><input type="text" name="word" size="30">
<input type="submit" value="提交" name="B1"><input type="reset" value="清除" name="B2"></p>
</center></div></form>
<hr width="600" align="center">
<html>
开始是在第一句 报错说没这个文件，后来我看了一个帖说把连接和打开数据库的写成一个ADOVBS.inc文件。这样做了没再报错，但在rs.open "SELECT*FROM sour where word like '%'&request.form("word")&"%这一句上总报错。不知问题在哪，请指教。
我另一个帖还有50分，问题一帖就自个解决了，分给不了了。就算在这一个上了。