建立asp站内搜索代码

(一首先利用Access 2003建立一个名为list.mdb的数据库在里面建立一个名为list的表然后在list表里面输入一些你想要被查询的文件名字关键的搜索词还有相对应的链接下面建立了四个项目ID编号 title 主题word关键词 url 链接地址如下表所示ID title word url

1 cgi教程本地调试cgi cgi/testcgi.htm

2下载中心聊天室 留言本download/index.htm

二建立了数据库以后就可以建立你的asp搜索页面了下面是一个文件名

为search.htm的asp搜索页面的源程序这个搜索引擎可以同时搜索title和word里面的内容 当然如果你有需要的话可以建立更多的搜索

<!--i nclude file="ADOVBS.inc"-->

<%"建立数据库的连接con="DBQ="+server.mappath("list.mdb")+";DefaultDir=;DIRVER={microsoft AccessDriver(*.mdb)};"

"建立CONNECTION对象并打开数据库set mycon=server.createobj ect("ADODB.CONNECTION")mycon.open.con%>

"创建Recordset对象的例程打开Records et对象传递SQL串以及所有的

连接信息

<%set rs=server.createobj ect("ADODB.Recordset")rs.open"SELECT*FORM list where title and word like''%''

&request.form("word")&"%''",MyCon,adOp enStatie

%>

"建立查询后的显示信息和查询页面,你想取什么名字都可以

<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"b ordercolordark="#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"b ordercolordark="#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%>

"关闭链接

</b ody></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"="提交"name="B 1"><input type="reset"="清除"name="B2"></p></c enter></di v></form>

<hr width="600"align="center">

<ht ml>