用ASP編寫一個類似搜索引擎功能的代碼

1、用ASP編寫一個類似搜索引擎功能的代碼首先建一個access 數(shù)據(jù)庫，庫中有一個URLINDEX表，其中URL和Keywords字段分別添加了索引，如下： URL 文本 (索引:有(無重復(fù) Title 文本 Description 文本 Summary 文本 Keywords 文本(索引:有(無重復(fù) 程序文件doquery.asp，代碼：LEFTMARGIN=0 TOPMARGIN=0> Query: <% dim act act=request("act" if(act="search" then QueryString = Request

2、.form( "QueryString" QueryWords = Split( QueryString strIndent = " " 如果搜索為空則返回 If QueryString = "" Then Response.Redirect( "default.asp" End If Session.timeout = 2 If IsObject(Session("sitesearch_conn" Then Set conn = Session("sitesearch_conn&qu

3、ot; 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 * FRO

4、M URLIndex WHERE" 搜索Description字段 sql = sql & " ( Description LIKE %" & QueryWords( 0 & "%" First For i = LBound( QueryWords + 1 to UBound( QueryWords If QueryWords( i <> "" and UCase( QueryWords(i <> "OR" and UCase( QueryWords(i &

5、lt;> "AND" Then If uCase( QueryWords( i-1 = "OR" Then sql = sql & " OR Description LIKE %" & QueryWords( i & "%" Else sql = sql & " AND Description LIKE %" & QueryWords( i & "%" End If End If Next 搜索Keywords字段 sql

6、 = sql & " OR ( Keywords LIKE %" & QueryWords( 0 & "%" For i = LBound( QueryWords + 1 to UBound( QueryWords If QueryWords( i <> "" and UCase( QueryWords(i <> "OR" and UCase( QueryWords(i <> "AND" Then If uCase( QueryWord

7、s( i-1 = "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 %" & QueryWo

8、rds( 0 & "%" For i = LBound( QueryWords + 1 to UBound( QueryWords If QueryWords( i <> "" and UCase( QueryWords(i <> "OR" and UCase( QueryWords(i <> "AND" Then If uCase( QueryWords( i-1 = "OR" Then sql = sql & " OR Title

9、 LIKE %" & QueryWords( i & "%" Else sql = sql & " AND Title LIKE %" & QueryWords( i & "%" End If End If Next 搜索Summary字段 sql = sql & " OR ( Summary LIKE %" & QueryWords( 0 & "%" For i = LBound( QueryWords + 1 to U

10、Bound( QueryWords If QueryWords( i <> "" and UCase( QueryWords(i <> "OR" and UCase( QueryWords(i <> "AND" Then If uCase( QueryWords( i-1 = "OR" Then sql = sql & " OR Summary LIKE %" & QueryWords( i & "%" Else s

11、ql = sql & " AND Summary LIKE %" & QueryWords( i & "%" End If End If Next sql = sql & " " Set rs = Server.CreateObject("ADODB.Recordset" rs.Open sql, conn, 3, 3 Response.Write "你搜索的是: " & QueryString Response.Write "搜索的關(guān)鍵字: &

12、quot; For i = LBound( QueryWords to UBound( QueryWords Response.Write "" & strIndent & i & ": " & QueryWords( i Next Print the SQL String Response.Write "sql 語句 : " & sql Print the Results Response.Write "結(jié)果 : " On Error Resume Next rs.MoveFirst Do While Not rs.eof Response.Write "" & "" & rs.Fields("Title" & " - " Response.Write rs.Fields("Descripti