解讀用asp編寫類似搜索引擎功能的代碼

Title文本

Description文本

Summary文本

Keywords文本(索引:有(無重複))

<BODYBGCOLOR=#ffffffMARGINWIDTH=0MARGINHEIGHT=0

LEFTMARGIN=0TOPMARGIN=0>

<FORMMETHOD=postACTION=doquery.asp?act=search>

Query:<INPUTTYPE=TextNAME=QueryString><BR>

<INPUTTYPE=SubmitVALUE=Submit>

</FORM>

</CENTER>

<%

dimact

act=request(act)

if(act=search)then

QueryString=Request.form(QueryString)

QueryWords=Split(QueryString)

strIndent=

'如果搜索為空則返回

IfQueryString=Then

Response.Redirect(default.asp)

EndIf

Session.timeout=2

IfIsObject(Session(sitesearch_conn))Then

Setconn=Session(sitesearch_conn)

Else

Setconn=Server.CreateObject(ADODB.Connection)

conn.opendriver={MicrosoftAccessDriver(*.mdb)};dbq=&Server.MapPath(database/SiteSearch.mdb),,

SetSession(sitesearch_conn)=conn

EndIf

'查詢語句

sql=SELECT*FROM[URLIndex]WHERE

'搜索Description字段

sql=sql&([Description]LIKE '%&QueryWords(0)&% ' 'First

Fori=LBound(QueryWords)+1toUBound(QueryWords)

IfQueryWords(i)<>andUCase(QueryWords(i))<>ORandUCase(QueryWords(i))<>ANDThen

IfuCase(QueryWords(i-1))=ORThen

sql=sql&OR[Description]LIKE '%&QueryWords(i)&% '

Else

sql=sql&AND[Description]LIKE '%&QueryWords(i)&% '

EndIf

EndIf

Next

'搜索Keywords字段

sql=sql&)OR([Keywords]LIKE '%&QueryWords(0)&% '

Fori=LBound(QueryWords)+1toUBound(QueryWords)

IfQueryWords(i)<>andUCase(QueryWords(i))<>ORandUCase(QueryWords(i))<>ANDThen

IfuCase(QueryWords(i-1))=ORThen

sql=sql&OR[Keywords]LIKE '%&QueryWords(i)&% '

Else

sql=sql&AND[Keywords]LIKE '%&QueryWords(i)&% '

EndIf

EndIf

Next

'搜索Title字段

sql=sql&)OR([Title]LIKE '%&QueryWords(0)&% '

Fori=LBound(QueryWords)+1toUBound(QueryWords)

IfQueryWords(i)<>andUCase(QueryWords(i))<>ORandUCase(QueryWords(i))<>ANDThen

IfuCase(QueryWords(i-1))=ORThen

sql=sql&OR[Title]LIKE '%&QueryWords(i)&% '

Else

sql=sql&AND[Title]LIKE '%&QueryWords(i)&% '

EndIf

EndIf

Next