asp是什么意思_asp简单的搜索引擎代码

【www.bbyears.com--word】

 
作者：淘特网
出处：http://www.tot.name
注：转载请注明出处
下面是库中URLINDEX表：URL和Keywords字段分别添加了索引.
 URL　　　　   文本 (索引:有(无重复))
Title　　　　      文本
Description 文本
Summary      文本
Keywords   文本(索引:有(无重复))
doquery.asp
 
LEFTMARGIN=0 TOPMARGIN=0>

 Query:

 

<%
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 = 2
 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( 0 ) & "%""     " First

本文来源：http://www.bbyears.com/bangongshuma/2587.html