知识大全 用asp编写类似搜索引擎功能的代码
Posted 知
篇首语:读不在三更五鼓,功只怕一曝十寒。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 用asp编写类似搜索引擎功能的代码相关的知识,希望对你有一定的参考价值。
首先建一个access数据库 库中有一个URLINDEX表 其中URL和Keywords字段分别添加了索引 如下
URL 文本 (索引:有(无重复)) Title 文本 Description 文本 Summary 文本 Keywords 文本(索引:有(无重复)) 程序文件doquery asp 代码 <HTML><HEAD><TITLE>简单搜索引擎</TITLE></HEAD> <BODY BGCOLOR=#ffffff MARGINWIDTH=" " MARGINHEIGHT=" " LEFTMARGIN= TOPMARGIN= > <FORM METHOD="post" ACTION="doquery asp?act=search"> Query: <INPUT TYPE="Text" NAME="QueryString"><BR> <INPUT TYPE="Submit" VALUE="Submit"> </FORM> </CENTER> <% dim act act=request("act") if(act="search") then QueryString = Request form( "QueryString" ) QueryWords = Split( QueryString ) strIndent = " " ’ 如果搜索为空则返回 If QueryString = "" Then Response Redirect( "default asp" ) End If Session timeout = If IsObject(Session("sitesearch_conn")) Then Set conn = Session("sitesearch_conn") Else Set conn = Server CreateObject("ADODB Connection") conn open "driver=Microsoft Access Driver (* mdb);dbq=" & Server MapPath("database/SiteSearch mdb") "" "" Set Session("sitesearch_conn") = conn End If ’ 查询语句 sql = "SELECT * FROM [URLIndex] WHERE" ’搜索Description字段 sql = sql & " ( [Description] LIKE ’%" & QueryWords( ) & "%’" ’ First For i = LBound( QueryWords ) + to UBound( QueryWords ) If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then If uCase( QueryWords( i ) ) = "OR" Then sql = sql & " OR [Description] LIKE ’%" & QueryWords( i ) & "%’" Else sql = sql & " AND [Description] LIKE ’%" & QueryWords( i ) & "%’" End If End If Next ’ 搜索Keywords字段 sql = sql & " ) OR ( [Keywords] LIKE ’%" & QueryWords( ) & "%’" For i = LBound( QueryWords ) + to UBound( QueryWords ) If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then If uCase( QueryWords( i ) ) = "OR" Then sql = sql & " OR [Keywords] LIKE ’%" & QueryWords( i ) & "%’" Else sql = sql & " AND [Keywords] LIKE ’%" & QueryWords( i ) & "%’" End If End If Next ’ 搜索Title字段 sql = sql & " ) OR ( [Title] LIKE ’%" & QueryWords( ) & "%’" For i = LBound( QueryWords ) + to UBound( QueryWords ) If QueryWords( i ) <> "" and UCase( QueryWords(i) ) <> "OR" and UCase( QueryWords(i) ) <> "AND" Then If uCase( QueryWords( i ) ) = "OR" Then sql = sql & " OR [Title] LIKE ’%" & QueryWords( i ) & "%’" Else sql = sql & " AND [Title] LIKE ’%" & QueryWords( i ) & "%’" End If End If Next cha138/Article/program/net/201311/14292相关参考
用VisualC++2005编写更快的代码 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 对于C
用C#代码编写的SN快速输入工具 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 一般软件都要输入
用ASP编写网站流量统计系统 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 在目前的网站统计系统
用ASP编写的实现文本框过滤的函数 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 一个不错的而且
实例编程:用ASP.Net和Access编写留言本 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!用
用ASP建立站内搜索 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 假如你拥有一个庞大的网站内容
最近在考虑自动化测试框架的时候发现原来的想法虽然解决了定位及访问控件的困难但是用例代码却因此对程序实现细节有了很强的依赖这些依赖可能对用例代码的开发带来一些困惑 在思考解决这个问题的时候自然的方
直接用计算机能识别的二进制编码编写的语言是_____。A、C++语言B、C语言C、汇编语言D、机器语言答案:D解析:机器语言是直接用二进制代码指令表达的计算机语言,指令是用0和1组成的一串代码。直接用
asp函数与asp过程提供了一种方法来创建重新编程代码可用模块和避免重写的代码每次您执行特定任务同一个块如果你没有任何职能/ASP页中的程序ASP页从上到下执行时ASP解析引擎只是处理从开始到结束
用ASP查看数据库记录的代码 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 首先是ASP与数据库