建立asp站内搜索代码

站内搜索代码  时间:2021-01-27  阅读:()

(一首先利用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>

蓝速数据(58/年)秒杀服务器独立1核2G 1M

蓝速数据金秋上云季2G58/年怎么样?蓝速数据物理机拼团0元购劲爆?蓝速数据服务器秒杀爆产品好不好?蓝速数据是广州五联科技信息有限公司旗下品牌云计算平台、采用国内首选Zkeys公有云建设多种开通方式、具有IDC、ISP从业资格证IDC运营商新老用户值得信赖的商家。我司主要从事内地的枣庄、宿迁、深圳、绍兴、成都(市、县)。待开放地区:北京、广州、十堰、西安、镇江(市、县)。等地区数据中心业务,均KV...

PacificRack 端午节再来一款年付$38 VPS主机 2核4GB内存1TB流量

这不端午节和大家一样回家休息几天,也没有照顾网站的更新。今天又出去忙一天没有时间更新,这里简单搜集看看是不是有一些商家促销活动,因为我看到电商平台各种推送活动今天又开始一波,所以说现在的各种促销让人真的很累。比如在前面我们也有看到PacificRack 商家发布过年中活动,这不在端午节(昨天)又发布一款闪购活动,有些朋友姑且较多是端午节活动,刚才有看到活动还在的,如果有需要的朋友可以看看。第一、端...

美得云(20元)香港特价将军澳CTG+CN2云服务器

美得云成立于2021年,是一家云产品管理服务商(cloud)专业提供云计算服务、DDOS防护、网络安全服务、国内海外数据中心托管租用等业务、20000+用户的选择,43800+小时稳定运行香港特价将军澳CTG+CN2云服务器、采用高端CPU 优质CN2路线 SDD硬盘。香港CTG+CN22核2G3M20G数据盘25元点击购买香港CTG+CN2​2核2G5M30G数据盘39元点击购买香港CTG+CN...

站内搜索代码为你推荐
盗版win8.1升级win10win8.1能升级正版win10吗麒麟820和980哪个好820和980哪个处理器好?免费阅读小说app哪个好想看小说有什么好用的app推荐?网页传奇哪个好玩哪个传奇类网页游戏即好玩又不花钱??牡丹江教育云空间登录云端学习如何登录?qq空间登录网址如何查询QQ空间登入地址?dns服务器设置DNS服务器建立的详细步骤?dns服务器有什么用DNS服务器是什么,有什么作用。360云网盘下载360云盘怎么下载和移走以前的文件?360云盘资源谁有360云盘账号和密码啊?告诉我下呗,决不删东西!男生都懂的那种……谢谢了!
备案域名购买 上海vps VPS之家 256m内存 vmsnap3 xen 泉州电信 支付宝扫码领红包 免费的asp空间 酸酸乳 windowsserverr2 时间同步服务器 低价 装修瓦工培训 xendesktop qq空间论坛 qq空间技术网 dhcp服务器是什么 灵动:鬼影实录 美国凤凰城旅游 更多